[求助]现在只能请全天，希望能细分请假每个班次。谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.Col.name = "员工" Then '如果选择的主表是订单表

If e.Row.Isnull("日期") Then

e.Col.Combolist = DataTables("员工情况").GetComboListString("姓名")

Else

Dim str As String

Dim str2 As String

If e.Row("时段") = Nothing Then

str2 = e.Table.DataTable.GetComboListString("员工", "日期 = '" & e.Row("日期") & "' and _Identify <> " & e.Row("_Identify"))

str = DataTables("员工情况").GetComboListString("请假人", "请假日期 = '" & e.Row("日期") & "'")

Else

str2 = e.Table.DataTable.GetComboListString("员工", "日期 = '" & e.Row("日期") & "' and (时段 = '" & e.Row("时段") & "' or 时段 = '全天') And _Identify <> " & e.Row("_Identify"))

str = DataTables("员工情况").GetComboListString("请假人", "请假日期 = '" & e.Row("日期") & "' and ',' + 时段 + ',' like '%," & e.Row("时段") & ",%'")

End If

'Output.Show("姓名 not in ('" & str.replace("|", "','") & "', '" & str2.replace(",", "','").replace("|", "','") & "') ")

e.Col.Combolist = DataTables("员工情况").GetComboListString("姓名", "姓名 not in ('" & str.replace("|", "','") & "', '" & str2.replace(",", "','").replace("|", "','") & "') ")

End If

主题：[求助]现在只能请全天，希望能细分请假每个班次。谢谢