主题：[求助]跨表更新

数据表的[代理律师]变化时，“代理人”表的[代理案件]、[代理数量]同时更新。
现在，在数据表的[代理律师]添加数据时没有问题，但删除数据时，怎样更新？

1、“数据表”DataColChanged

If e.DataCol.name = "代理律师" Then
    Dim dr = DataTables("代理人").Find("[代理人] = '" & e.DataRow("代理律师") & "'")      '到信息表去找
    If dr Is Nothing Then
        dr = DataTables("代理人").AddNew
        dr("代理案件") = e.DataRow("案号")
        dr("代理人") = e.DataRow("代理律师")
    Else
        dr("代理案件") = dr("代理案件") & vbcrlf & e.DataRow("案号")
        dr("代理人") = e.DataRow("代理律师")
    End If
End If

 

2、“代理人”DataColChanged
Dim s As String = e.DataRow("代理案件")
If s >"" Then
   s = s.replace(vbcrlf, vblf)
   Dim fls() As String = s.split(vblf)
   e.DataRow("代理数量") = (fls.Length)
End If

 

此主题相关图片如下：image 1.jpg


此主题相关图片如下：image 2.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:跨表更新.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:跨表更新.table

谢谢甜老师！

我在项目里没改好，因为实际项目没有[代理律师]列，而是通过字符串获取的。

请老师帮助看一下实际项目。

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试代理人计数.foxdb

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试代理人计数.foxdb