调试
If e.DataCol.Name = "号码"
msgbox(e.DataRow("号码"))
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
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
msgbox(1)
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:21:00 [显示全部帖子]
