写代码要规范:
If e.DataCol.Name="数据列" Then Dim dr As DataRow = DataTables("表B").find(" 第一列 ='" & e.DataRow(" 第一列 ") & "'And 第二列 ='" & e.DataRow(" 第二列 ") & "'And 砖号 ='" & e.DataRow("第三列 ") & "'") If dr IsNot Nothing Then dr("数据列")=e.NewValue End IfEnd If