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

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

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

大红袍

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

加好友

发短信

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

Post By：2016/5/6 14:51:00 [显示全部帖子]

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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

大红袍

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

加好友

发短信

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

Post By：2016/5/6 16:50:00 [显示全部帖子]

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

大红袍

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

加好友

发短信

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

Post By：2016/5/6 17:10:00 [显示全部帖子]

什么不行啊。

大红袍

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

加好友

发短信

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

Post By：2016/5/6 17:13:00 [显示全部帖子]

不明白你什么意思。你员工那里，要定义好哪个用户是哪个班的啊

大红袍

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

加好友

发短信

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

Post By：2016/5/6 17:31:00 [显示全部帖子]

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

大红袍

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

加好友

发短信

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

Post By：2016/5/17 13:19:00 [显示全部帖子]

改一下代码

If e.Col.name = "员工" Then '如果选择的主表是订单表
    If e.Row.Isnull("日期") Then
        e.Col.Combolist = DataTables("员工情况").GetComboListString("姓名")
    Else
        Dim str As String = DataTables("员工情况").GetComboListString("请假人", "请假日期 = #" & e.Row("日期") & "#")
        Dim str2 As String = e.Table.DataTable.GetComboListString("员工", "日期 = #" & e.Row("日期") & "# and (时段 = '" & e.Row("时段") & "' or 时段 = '全天') and _Identify <> " & e.Row("_Identify"))
        e.Col.Combolist = DataTables("员工情况").GetComboListString("姓名", "姓名 not in ('" & str.replace("|", "','") & "', '" & str2.replace(",", "','").replace("|", "','") & "') ")
    End If
End If

大红袍

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

加好友

发短信

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

Post By：2016/5/18 10:21:00 [显示全部帖子]

If e.Col.name = "员工" Then '如果选择的主表是订单表
    If e.Row.Isnull("日期") Then
        e.Col.Combolist = DataTables("员工情况").GetComboListString("姓名")
    Else
        Dim str As String = DataTables("员工情况").GetComboListString("请假人", "请假日期 = #" & e.Row("日期") & "#")
        Dim str2 As String
        If e.Row("时段") = "全天" Then
            str2 = e.Table.DataTable.GetComboListString("员工", "日期 = #" & e.Row("日期") & "# and _Identify <> " & e.Row("_Identify"))
        Else
            str2 = e.Table.DataTable.GetComboListString("员工", "日期 = #" & e.Row("日期") & "# and (时段 = '" & e.Row("时段") & "' or 时段 = '全天') and _Identify <> " & e.Row("_Identify"))
        End If
        e.Col.Combolist = DataTables("员工情况").GetComboListString("姓名", "姓名 not in ('" & str.replace("|", "','") & "', '" & str2.replace(",", "','").replace("|", "','") & "') ")
    End If
End If

下一主题 >> << 上一主题

主题：[求助]请假的输入的问题。（已解决）