Select Case e.DataCol.Name
Case "确认", "第一列", "第五列"
If e.DataRow("确认") = True Then
Dim ss() As String
Dim ss3() As String
If e.DataRow.IsNull("第一列") = False And e.DataRow.IsNull("第五列") = False Then
' ss = e.DataRow("第一列").split(",")
ss = ( e.DataRow("第一列").split(","), e.DataRow("第五列").split(","))
' ss3 = e.DataRow("第五列").split(",")
For Each s As String In ss
' "'")
If dr9 Is Nothing Then
dr9 = DataTables("表B").AddNew
dr9("第一列") = s
dr9("第五列") = s
dr9("识别码") = e.DataRow("识别码")
End If
Next
End If
If e.DataCol.Name = "第一列" AndAlso e.oldvalue > "" And e.DataCol.Name = "第五列" AndAlso e.oldvalue > "" Then
' If e.DataCol.Name = "第一列" AndAlso e.oldvalue > "" Then
For Each s As String In e.oldvalue.split(",")
Output.Show(s)
End If
Next
End If
DataTables("表B").Save()
End If
End Select
[此贴子已经被作者于2024/3/22 16:53:37编辑过]
加好友 
发短信
Post By：2024/3/22 16:19:00 [只看该作者]
