老师好，下面代码不能复制到三D宝子表。
If e.DataCol.Name = "号码"
If e.DataRow("号码") = "111" OrElse e.DataRow("号码") ="222" OrElse e.DataRow("号码") ="333" OrElse e.DataRow("号码") ="444" OrElse e.DataRow("号码") ="555" OrElse e.DataRow("号码") ="666" Then
'If e.DataCol.Name = "审核"
' If e.DataRow("审核") = True Then
Dim nma() As String = {"编号","开奖时间","期数","号码"} 'A表数据来源列
Dim nmb() As String = {"编号","开奖时间","期数","号码"} 'B表数据接收列
e.DataRow.save
Dim dr2 As DataRow = DataTables("三D宝子").Find("编号 = '" & e.DataRow("编号") & "'")
If dr2 Is Nothing Then
dr2 = DataTables("三D宝子").AddNew
End If
For i As Integer = 0 To nma.Length - 1
dr2(nmb(i)) = e.DataRow(nma(i))
Next
End If
End If
加好友 
发短信
Post By：2024/3/1 14:17:00 [只看该作者]
