求助，多值字段动态生成明细 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好：求一个代码，表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("识别码")

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

老师好，代码不太对，我上传了文件，再次麻烦您了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.foxdb

表A增加的可以了，但是，表A减少的时候，表B没变化

老师，版本太高，我打不开，麻烦把代码贴出来一下哦，多谢

老师，可以了，谢谢！

回复：八楼，把红色代码 “” 改为：Nothing 就可以了；

Select Case e.DataCol.Name

Case "确认", "第一列"

If e.DataRow("确认") = True Then

Dim ss() As String

If e.DataRow.IsNull("第一列") = False Then

ss = e.DataRow("第一列").split(",")

For Each s As String In ss

Dim dr9 As DataRow = DataTables("表B").find("第一列='" & s & "' and 识别码='" & e.DataRow("识别码") & "'")

If dr9 Is Nothing Then

dr9 = DataTables("表B").AddNew

dr9("第一列") = s

dr9("识别码") = e.DataRow("识别码")

End If

If e.DataCol.Name = "第一列" AndAlso e.oldvalue <> Nothing Then

For Each s As String In e.oldvalue.split(",")

Output.Show(s)

If ss Is Nothing OrElse Array.IndexOf(ss, s) = -1 Then

DataTables("表B").DeleteFor("第一列='" & s & "' and 识别码='" & e.DataRow("识别码") & "'")

End If

DataTables("表B").Save()

End If

End Select

主题：求助，多值字段动态生成明细