Dim DR As DataRowDR = DataTables("BRT_Task").Find("TaskCode = '" & Tables("任务选择_Table2").Current("任务代码") & "'") If DR IsNot Nothing AndAlso DR("StartReportDate") <> 1
End If