主题：[求助]窗口求助

 Dim t As Table = Tables("医生排班表")

            t.Filter="日期=#" & MyDate & "#"

            Dim ys As String = t.DataTable.GetComboListString("医生姓名", t.Filter)

            Dim drs As List (of DataRow) = DataTables("医生名单").Select("医生姓名 not in ('" & ys.Replace("|", "','") & "')")

            If drs.count > 0 Then

                e.Graphics.FillRectangle(BJ_排班未完成,单元格)

            Else

                Dim fdr1 As DataRow = DataTables("医生排班表").find("病房夜班 = 'true'")

                Dim fdr2 As DataRow = DataTables("医生排班表").find("上午 is null or 下午 is null")

                If fdr1 IsNot Nothing AndAlso fdr2 Is Nothing Then

                   e.Graphics.FillRectangle(BJ_排班完成,单元格)

                    MessageBox.Show("排本玩")

                Else

                    e.Graphics.FillRectangle(BJ_排班未完成,单元格)

                End If