主题：[求助]循环语句求教，继续求解

排班表中有三列，分别是上午、下午、病房值班。现需要分别进行判断，如果“上午”或“下午”列中无值或者“夜班值班”列全部为false，则提示“排班未完成”。如果所有的“上午”及“下午”列全部不为空，且“夜班值班”列至少有一个是“true”，则提示“排班完成” 循环语句怎么弄呀。谢谢！

For Each dr As DataRow In DataTables("医生排班表").DataRows

                    If dr("上午") Is Nothing OrElse dr("下午") Is Nothing OrElse dr("病房夜班") = False Then

                        Exit For

                    End If

messagebox.show（"排班未完成"）

                Next

1. 已完成排班，是一种颜色在相应的单元格中标示（没有实现）；

2.如果没排班，用另外的颜色标示；

3.如果排班未完成，则用另外一种颜色。

现在已经实现部分功能，但出现了只要鼠标移到小日历中的某个单元格，就老闪，有没有折中的方法。

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

点击浏览该文件:54321.table

 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