If e.DataCol.Name = "是否"
If e.DataRow("是否") = True Then
Dim nma() As String = {"一列","二列","三列","四列","五列","六列"} 'A表数据来源列
Dim nmb() As String = {"一列","二列","三列","四列","五列","六列"} 'B表数据接收列
Dim dr As DataRow = DataTables("B表").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
dr("第十列") = e.DataRow("_Identify")
Else
DataTables("B表").deletefor("第十列='" & e.DataRow("_Identify") & "'")
End If
End If
加好友 
发短信
Post By：2019/6/12 12:06:00 [显示全部帖子]
