- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表达式列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51744)
-- 发布时间：2014/6/2 17:24:00
-- 表达式列
在窗口Table中，用代码增加一个表达式列，怎么写？
-- 发布时间：2014/6/2 17:28:00
--
道理一样
-- 发布时间：2014/6/2 17:34:00
--
我是用这种方式添加的，但是运算的时候遇到一个错误。你看一下代码和截图。
DataTables("收支统计_table1").DataCols.Add("收入金额",Gettype(String))
DataTables("收支统计_table1").DataCols.Add("支出金额",Gettype(String))
DataTables("收支统计_table1").DataCols.Add("盈余金额",Gettype(String))
DataTables("收支统计_table1").LoadFilter = "del = 1"
DataTables("收支统计_table1").Load
Dim pdr As DataRow
Dim zc As DataRow
Dim tr As Row
For Each tr In Tables("收支统计_Table1").Rows
pdr = DataTables("收入表").find("del = 1 and 银行卡号= " & tr("卡号"))
zc = DataTables("支出表").find("del = 1 and 银行卡号 = " & tr("卡号"))
If pdr IsNot Nothing Then
tr("收入金额") = pdr("金额")
End If
If zc IsNot Nothing Then
tr("支出金额") = zc("金额")
End If
tr("盈余金额") = tr("收入金额") - tr("支出金额")
Next
下面这个图是我要的效果。
此主题相关图片如下：2.png
但是中间出现下面这个图的错误
此主题相关图片如下：1.png
-- 发布时间：2014/6/2 17:36:00
--
试试这个：
DataTables("收支统计_table1").DataCols.Add("收入金额",Gettype(Double))
DataTables("收支统计_table1").DataCols.Add("支出金额",Gettype(Double))
DataTables("收支统计_table1").DataCols.Add("盈余金额",Gettype(Double))
-- 发布时间：2014/6/2 17:37:00
--
非常感谢！可以了。
-- 发布时间：2014/6/2 17:37:00
--
非常感谢！可以了。