[求助]现在只能请全天，希望能细分请假每个班次。谢谢 - 专家坐堂 - 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 = DataTables("员工情况").GetComboListString("请假人", "请假日期 = #" & e.Row("日期") & "# and 时段 = '" & e.Row("时段") & "'")
        e.Col.Combolist = DataTables("员工情况").GetComboListString("姓名", "姓名 not in ('" & str.replace("|", "','") & "')")
    End If
End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:请假 (1).table

显示什么的行号序列号？

你需要这种？ http://www.foxtable.com/webhelp/scr/2465.htm

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 时段 = '全天' or 时段 is null) And _Identify <> " & e.Row("_Identify"))

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

End If

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

End If

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

改成

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

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