[求助]请假的输入的问题。（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请假的输入的问题。（已解决）

共有3498人关注过本帖树形打印复制链接主题：[求助]请假的输入的问题。（已解决）

manyifuwu

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：500 积分：5409 威望：0 精华：0 注册：2009/2/5 13:09:00

[求助]请假的输入的问题。（已解决） 发帖心情

Post By：2016/5/6 13:14:00 [只看该作者]

我希望，表“员工情况”张三5月10日请假，那在派单表选择5月10日时，员工列里不显示张三？希望指导。谢谢

[此贴子已经被作者于2016/5/18 13:43:46编辑过]

manyifuwu

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：500 积分：5409 威望：0 精华：0 注册：2009/2/5 13:09:00

Post By：2016/5/6 13:16:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/6 14:51:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

manyifuwu

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：500 积分：5409 威望：0 精华：0 注册：2009/2/5 13:09:00

Post By：2016/5/6 16:17:00 [只看该作者]

非常感谢！

再请教：例如 2016年5月09日时段：一班已选定张三。。。。在此5月09日一班再选择，没有张三。谢谢!

[此贴子已经被作者于2016/5/6 16:23:14编辑过]

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/6 16:34:00 [只看该作者]

DataColChanged事件

Select Case e.DataCol.name
    Case "日期","时段"
        If e.DataRow.IsNull("员工") = False AndAlso e.DataRow.IsNull("日期") = False Then
            Dim nstr As String = ""
            Dim ls As List(Of String) = DataTables("员工情况").GetValues("请假人", "请假日期 = #" & e.DataRow("日期") & "#")
            For Each yg As String In e.DataRow("员工").split(",")
                If ls.Contains(yg) = False Then
                    nstr &= yg & ","
                End If
            Next
            e.DataRow("员工") = nstr.trim(",")
        End If
End Select

[此贴子已经被作者于2016/5/6 16:49:17编辑过]