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

代码改成

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