主题：统计

我从新发一个例子上去

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.table

表A  C 金额列都是  表达式列   表B  D金额列是数据列

 

在项目里边四个表都是查询表

老师帮忙改一下

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.table

表A  C 金额列都是  表达式列   表B  D金额列是数据列

 

在项目里边四个表都是查询表

 

 

重新学习foxtable编程

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

帮帮忙吧！现在急需这个，改好就可以了，编程都学了好长时间了，关键今天这个急用！谢谢老师了！！

 之前已经给你改好了啊。参考之前的代码

早上做到现在了，按之前的代码我还是没做好，最后一次了，老师帮我修改一下吧！非常感谢!

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4 (1).table

 

此主题相关图片如下：运行错误.png

表（应收查询）Select Case e.DataCol.name
    Case "吨位2","价格2","扣款2","吊杂费"
        Dim pr As DataRow
        pr = DataTables("总查询表").Find("客户 = '" & e.DataRow("托运单位") & "'")
        If pr IsNot Nothing Then
            pr("应收金额")= DataTables("应收查询").Compute("Sum(金额)","[托运单位] = '" & e.DataRow("托运单位") & "'")
        End If
End Select
表（总查询表）If e.DataCol.Name = "客户" Then
    e.DataRow("应收金额") = Tables("应收查询").Compute("Sum(金额)","[托运单位] = '" & e.NewValue & "'")
    e.DataRow("扣款金额") = Tables("扣款录入").Compute("Sum(金额)","[欠款人] = '" & e.NewValue & "'")
    e.DataRow("应付金额") = Tables("应付查询").Compute("Sum(金额)","[承运单位] = '" & e.NewValue & "'")
    e.DataRow("已收款金额") = Tables("已收款录入").Compute("Sum(金额)","[交款单位] = '" & e.NewValue & "'")
    Dim tbs() As String = {"应收查询", "扣款录入", "应付查询", "已收款录入"}
    For Each tb As String In tbs
        If e.DataRow.isnull(tb & "金额") Then e.DataRow(tb & "金额") = 0
    Next
End If
我修改后 出现这样的错误，帮我检查一下！谢谢！

 提示很明显啊，你表E没有叫 应收查询金额 的列啊。