老师好：求一个代码，表A的第一列为多值字段
'1.如果在表B中找到,识别码等于表A的识别码,并且,表A的第一列,有增加,表B的第一列,增加表A第一列变化的内容
'2.如果在表B中找到,识别码等于表A的识别码,并且,表A的第一列,有减少,表B的第一列,也减少表A第一列变化的内容
'3.****表B不能重复增加,不是把表B删除后再生成哦
Select Case e.DataCol.Name
Case "确认"
'Dim drTS As DataRow = DataTables("表B").find("识别码 ='" & e.DataRow("识别码") & "'" )
'If drTS IsNot Nothing Then
'Return '那么返回
'End If
If e.DataRow("确认") = True
If e.DataRow.IsNull("第一列") = False
Dim ss As String = e.DataRow("第一列")
For Each s As String In ss.split(",")
Dim dr9 As DataRow = DataTables("表B").AddNew
dr9("第一列") = s
dr9("识别码") = e.DataRow("识别码")
Next
End If
DataTables("表B").Save()
End If
End Select
表A
第一列 识别码
1，2，3，4 001
表B
第一列 识别码
1 001
2 001
3 001
当表A第一列有变更：增加4，表B也增加4
加好友 
发短信
Post By：2023/6/1 10:36:00 [只看该作者]
