Select Case e.DataCol.name
Case "检查日期1"
If e.OldValue <> Nothing Then
Dim dr As DataRow = DataTables("监督检查表").Find("检查日期 = '" & e.OldValue & "'")
If dr Is Nothing Then
dr = DataTables("监督检查表").AddNew()
dr("单位名称") = e.DataRow("单位名称")
dr("县") = e.DataRow("县")
dr("乡镇") = e.DataRow("乡镇")
dr("街道村") = e.DataRow("街道村")
dr("门牌号") = e.DataRow("门牌号")
dr("计划名称") = e.DataRow("计划名称1")
dr("检查日期") = e.DataRow("检查日期1")
dr("检查人员") = e.DataRow("检查人员1")
dr("检查结果") = e.DataRow("检查结果1")
dr("检查记录") = e.DataRow("检查记录1")
dr("整改期限") = e.DataRow("整改期限1")
dr("复查结果") = e.DataRow("复查结果1")
Else
dr("检查日期") = e.DataRow("检查日期1")
End If
End If
Case "检查结果","复查结果"
If e.DataRow.Isnull("检查日期1") = False Then
Dim dr As DataRow = DataTables("监督检查表").Find("检查日期 = '" & e.DataRow("检查日期1") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End If
End Select
另外这2个表应该是根据“单位名称”进行关联的吧，也许这样更合理
Dim dr As DataRow = DataTables("监督检查表").Find("检查日期 = '" & e.OldValue & "' and 单位名称='" & e.DataRow("单位名称") & "'")
加好友 
发短信
Post By：2016/10/12 9:03:00 [只看该作者]
