Foxtable(狐表)用户栏目专家坐堂 → [求助]合并付款问题:多个子表数据写入父表合并为一条记录


  共有3028人关注过本帖树形打印复制链接

主题:[求助]合并付款问题:多个子表数据写入父表合并为一条记录

帅哥哟,离线,有人找我吗?
roncch
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:518 威望:0 精华:0 注册:2014/12/28 21:51:00
[求助]合并付款问题:多个子表数据写入父表合并为一条记录  发帖心情 Post By:2023/6/20 10:07:00 [只看该作者]

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

 

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

 

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

 

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

 

求实现该过程的代码和逻辑。


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部