以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]合并付款问题：多个子表数据写入父表合并为一条记录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187079)
--  作者：roncch
--  发布时间：2023/6/20 10:07:00
--  [求助]合并付款问题：多个子表数据写入父表合并为一条记录

请教各位大神，月结单合并付款自动记录问题，通过父表往字表写入数据的反向操作

 

父表.付款单， 子表.付款明细，关联列.付款单号

 

实际操作上是先有若干付款明细的记录，再生产一条父表的合并记录。

 

实例：筛选出子表记录若干条，在该记录的关联列填入付款单号后会在父表只生成一条记录，父表的关联列付.款单号为对应子表关联列.付款单号

 

求实现该过程的代码和逻辑。
--  作者：有点蓝
--  发布时间：2023/6/20 10:27:00
--  
子表DataColChanged事件处理即可，大概

If e.DataCol.Name = "付款单号" Then
    If e.NewValue > "" Then 
      dim dr as datarow = datatables("父表").find("付款单号=\'" & e.NewValue & "\'")
if dr is nothing then
dr = datatables("父表").addnew
dr("付款单号") = e.NewValue
end if
dr("金额") = e.datatable.compute("sum(金额)","付款单号=\'" & e.NewValue & "\'"))
    End If
End If