参考：http://www.foxtable.com/webhelp/scr/1451.htm
类似
Select Case e.DataCol.Name
Case "第一列","第二列","第三列","第四列","第五列"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("第五列") =False Then
Dim filter As String
filter = "编号 = '" & dr("编号") & "'"
pr = DataTables("表B").Find(filter)
If pr Is Nothing Then
pr = DataTables("表B").AddNew
dr("编号 ") = pr("编号")
End If
dr("第一列") = pr("第一列")
dr("第二列") = pr("第二列")
......
End If
End Select
加好友 
发短信
Post By：2017/7/22 10:19:00 [显示全部帖子]
