- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教大家 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45504)
-- 发布时间：2014/1/27 23:38:00
-- 请教大家
如何实现，表一合计的值，加载到表二中。学习学习~~
此主题相关图片如下：3.jpg
-- 发布时间：2014/1/28 8:44:00
--
Dim str() As String = {"张三","李四","王五"}
For Each s As String In str
Dim dr As DataRow = DataTables("新表").AddNew()
Dim mon1 As Double = DataTables("原表").Compute("Sum(" & s & ")","日期 >= \'2014-01-01\' And 日期 <= \'2014-01-31\'")
Dim mon2 As Double = DataTables("原表").Compute("Sum(" & s & ")","日期 >= \'2014-02-01\' And 日期 <= \'2014-02-28\'")
dr("姓名") = s
dr("一月合计") = mon1
dr("二月合计") = mon2
Next
-- 发布时间：2014/1/28 18:41:00
--
谢谢老师.
-- 发布时间：2014/1/28 20:21:00
--
但，出现个新问题，不停按确认，不停添加。如何直添加一次，只刷新数值呢？
此主题相关图片如下：4.jpg
-- 发布时间：2014/1/28 20:25:00
--
在前面加一句
DataTables("新表").datarows.clear
-- 发布时间：2014/1/28 20:53:00
--
我怎么不知道呀~谢谢有点甜老师了。