Case "检查结果", "复查日期1", "复查结果1"
If e.DataRow.Isnull("检查日期1") = False Then
Dim dr As DataRow = DataTables("监督检查表").Find("检查日期 = '" & e.DataRow("检查日期1") & "' and 单位名称='" & e.DataRow("单位名称") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
Else
msgbox("请先输入检查日期1")
End If
End Select