改成
Dim drs1 As List(of DataRow) = DataTables("协同工作执行情况表").SQLSelect("关联id="& cr("identify") &" And 实际完成时间 Is null")