表达式列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我是用这种方式添加的，但是运算的时候遇到一个错误。你看一下代码和截图。

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("支出金额")

下面这个图是我要的效果。

此主题相关图片如下：2.png

但是中间出现下面这个图的错误

此主题相关图片如下：1.png

主题：表达式列