- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求这个数据判断并计算的编程 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48884)
-- 发布时间：2014/4/8 12:48:00
-- [求助]求这个数据判断并计算的编程
各位大侠，我真的是一个初学
此主题相关图片如下：图片.jpg
者，弄得这种简单问题也来请教，还望各位慷慨解囊，附上图片，大家根据图片下面的红色字帮忙编一下啊，谢谢！！！
-- 发布时间：2014/4/8 12:48:00
--
各位大侠，我真的是一个初学者，弄得这种简单问题也来请教，还望各位慷慨解囊，附上图片，大家根据图片下面的红色字帮忙编一下啊，谢谢！！！
-- 发布时间：2014/4/8 12:56:00
--
上个例子吧
-- 发布时间：2014/4/8 15:50:00
--
上传一个例子，输入少量数据。
-- 发布时间：2014/4/10 17:56:00
--
Select Case e.DataCol.Name
Case "收入","支出"
For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
Dim Val1 As Double = e.DataTable.Compute("Sum(收入)","[_SortKey] <= " & dr("_SortKey"))
Dim Val2 As Double = e.DataTable.Compute("Sum(支出)","[_SortKey] <= " & dr("_SortKey"))
dr("余额") = Val1 - Val2
Next
End Select
这是流水账的表属性里面datacolchanged里
此主题相关图片如下：图片2.jpg
的编程，可我不知道怎么修改，不知道怎么编带有逻辑判断的公式并计算
此主题相关图片如下：图片2.jpg的编程，可我不知道怎么修改，不知道怎么编带有逻辑判断的公式并计算
-- 发布时间：2014/4/10 18:00:00
--
Select Case e.DataCol.Name Case "收入","支出" For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey")) Dim Val1 As Double = e.DataTable.Compute("Sum(收入)","[_SortKey] <= " & dr("_SortKey")) Dim Val2 As Double = e.DataTable.Compute("Sum(支出)","[_SortKey] <= " & dr("_SortKey")) dr("余额") = Val1 - Val2 Next End Select 这是流水账的表属性里面datacolchanged里  此主题相关图片如下：图片2.jpg 的编程，可我不知道怎么修改，不知道怎么编带有逻辑判断的公式并计算 |
-- 发布时间：2014/4/10 20:54:00
--
公式转换成代码，需要用 if 语句去判断的
参考 http://www.foxtable.com/help/topics/0625.htm