以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表之间的计算问题?请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21822)

--  作者:jswjyjf
--  发布时间:2012/7/25 15:23:00
--  表之间的计算问题?请教
请教:内部有2个表 ,一个是A表 另一个是B表,A的字段有kmbm,金额合计,B表也有kmbm,发生额 ,其中A表中的kmbm是唯一的,没有重复的,现在要把B表中的发生额累计到A表中金额合计中去,代码怎么写,用关联方法是可以的,现在不用关联 ,请教大师
--  作者:狐狸爸爸
--  发布时间:2012/7/25 15:27:00
--  

http://www.foxtable.com/help/topics/1454.htm

 

 


--  作者:jswjyjf
--  发布时间:2012/7/25 15:34:00
--  

问题是:已经存在两个表了 ,上面的列子没有循环的

 


--  作者:狐狸爸爸
--  发布时间:2012/7/25 15:41:00
--  

上面的例子也是两个表,用事件是不需要循环的,你看仔细帮助了,最好自己测试一下。

 

不用事件,要循环的,看看:

http://www.foxtable.com/help/topics/0681.htm


--  作者:jswjyjf
--  发布时间:2012/7/25 15:48:00
--  

谢谢

Dim dt1 As DataTable= DataTables("kmk")
Dim dt2 As DataTable= DataTables("pingzh")
For Each dr As DataRow In dt1.DataRows
dr("借方金额") = DataTables("pingzh").Compute("Sum(借方发生)","[kmbm] = \'" & dr("kmbm") & "\'")
Next

成功了