以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表B中的明细相加等于主表金额  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127457)
--  作者：青丘狐
--  发布时间：2018/11/14 15:18:00
--  表B中的明细相加等于主表金额
明细表中的明细相加等于主表金额请问代码怎样写？谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:cs.rar
--  作者：有点甜
--  发布时间：2018/11/14 16:24:00
--  

参考这里即可

 

http://www.foxtable.com/webhelp/scr/1454.htm

 

http://www.foxtable.com/webhelp/scr/1472.htm

 
--  作者：青丘狐
--  发布时间：2018/11/14 17:25:00
--  

表A DataColChanged事件

If e.DataCol.Name = "金额" Then
    e.DataRow("金额") = DataTables("表A").Compute("Sum(金额)","[BH] = \'" & e.NewValue &  "\'")
 End  If

 

 

表B  DataColChanged事件

If e.DataCol.Name = "金额"  Then
    Dim pr As  DataRow
     pr =  DataTables("表A").Find("BH = \'" & e.DataRow("BH") & "\'")
     If pr  IsNot  Nothing  Then
         pr("金额")= pr("金额") + e.NewValue - e.OldValue
     End  If
 End  If

数据 没有变化
--  作者：有点甜
--  发布时间：2018/11/14 18:30:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:cs.foxdb