- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助，多值字段动态生成明细 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186823)
-- 发布时间：2023/6/1 10:36:00
-- 求助，多值字段动态生成明细
老师好：求一个代码，表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
-- 发布时间：2023/6/1 10:51:00
--
Select Case e.DataCol.Name
Case "确认"
If e.DataRow("确认") = True Then
If e.DataRow.IsNull("第一列") = False Then
Dim ss() As String = 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
Next
If e.oldvalue > "" Then
For Each s As String In e.oldvalue.split(",")
If Array.IndexOf(ss, s) = -1 Then
DataTables("表B").DeleteFor("第一列=\'" & s & "\' and 识别码=\'" & e.DataRow("识别码") & "\'")
End If
Next
End If
End If
DataTables("表B").Save()
End If
End Select
-- 发布时间：2023/6/1 11:23:00
--
老师好，代码不太对，我上传了文件，再次麻烦您了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.foxdb |
-- 发布时间：2023/6/1 11:26:00
--
表A增加的可以了，但是，表A减少的时候，表B没变化
-- 发布时间：2023/6/1 11:28:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2 (2).zip |
[此贴子已经被作者于2023/6/1 13:37:14编辑过]
-- 发布时间：2023/6/1 11:34:00
--
老师，版本太高，我打不开，麻烦把代码贴出来一下哦，多谢
-- 发布时间：2023/6/1 11:54:00
--
更新到最新版本
-- 发布时间：2023/6/1 12:55:00
--
测试5楼实例报错
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：表，表A，DataColChanged
详细错误信息：
调用的目标发生了异常。
从字符串“”到类型“Boolean”的转换无效。
输入字符串的格式不正确。
-- 发布时间：2023/6/1 13:38:00
--
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
Next
End If
If e.DataCol.Name = "第一列" AndAlso e.oldvalue > "" 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
Next
End If
DataTables("表B").Save()
End If
End Select
-- 发布时间：2023/6/1 13:52:00
--
老师，可以了，谢谢！
回复：八楼，把红色代码 “” 改为：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
Next
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
Next
End If
DataTables("表B").Save()
End If
End Select