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

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

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

此主题相关图片如下：捕获.png

我希望：2016-05-06   一班    已选择了  王五。

  如果在增加一行     还是2016-05-06   一班     选择员工，就没有王五了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.table

非常感谢！

 已解决！

 

麻烦您！再请教一个问题？

例如：时段列  增加了选择全天， 同一天已选择员工不在上午、下午、晚上 中出现了。   （全天：包含了上午、下午、晚上的时段)

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.table

改一下代码

 

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

老师：全天先选择员工后，后选上午和下午的员工可以排除了。但先选了上午后，后选全天里还是有该员工。全天（全天：包含了上午、下午、晚上的时段)，既然上午已选安排此员工，该员工就不构成选择全天的条件了；

怎么可以该员工，如果上午已安排，在全天里也不应该显示可以选？谢谢您！

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

大红袍老师！非常强大！狐表有您更精彩！