Sel ect Case e.DataCol.Name
Case "项目编号"
If e.DataRow.IsNull(e.DataCol.name) =False AndAlso e.DataRow.OriginalValue("项目编号") <> Nothing Then
Dim nm() As String = {"施工合同"}
For Each n As String In nm
If DataTables.Contains(n) =False Then
DataTables(n).load
End If
DataTables(n).sqlReplaceFor("项目编号",e.DataRow("项目编号"),"项目编号 = '" & e.DataRow.OriginalValue("项目编号") & "'")
DataTables(n).save
Next
Else
MessageBox.Show("""项目编号""为空,请输入新的值.","提示!",MessageBoxButtons.OK,MessageBoxIcon.Warning)
e.Cancel = True
End If
Case "项目名称"
If e.DataRow.IsNull(e.DataCol.name) =False And e.DataRow.OriginalIsNull("项目名称") =False Then
Dim nm() As String = {"施工合同"}
For Each n As String In nm
DataTables(n).sqlReplaceFor("项目名称",e.DataRow("项目名称"),"项目编号 = '" & e.DataRow("项目编号") & "'")
DataTables(n).save
Next
End If
End Se lect
加好友 
发短信
Post By：2016/12/20 15:55:00 [只看该作者]
