主题：临时表如何计算余额流水帐

生成临时表后，全局表事件，然后写代码

http://www.foxtable.com/webhelp/scr/0671.htm

在哪个事件写代码合适呢

参考流水账设计

http://www.foxtable.com/webhelp/scr/1572.htm

如果是问在什么地方开启全局表事件，在你生成临时表之后的代码加上开启代码。

好的，试试下，还有问题，就是这个临时表要增加一下“余额”列，代码是何写？

http://www.foxtable.com/webhelp/scr/1428.htm

在分组汇统计生成的临时表中余额还是没法计算  ，要增加一列余额列计算余额，还是实现不了，有没有代码？

我试了几次都不成功，不是无法计算就是无法显示出来、或者是datacol不属....之类事件。

在临时表中要指定A列和B列相减生成一个余额列，不是横向表达式相减。

既然是统计表，那就在生成之后，添加一列，然后循环表格每一行，计算余额值。

不会做上传具体实例说明。

click代码如下

Dim bd1 As New GroupTableBuilder("统计表D1",DataTables("pzk"))
Dim dt1 As fxDataSource '工程fa piao
bd1.Groups.AddDef("fa piao1_所属项目","项目分类")
bd1.Groups.AddDef("fa piao1_收piao方","摘要")
'bd1.Groups.AddDef("fa piao1_内容","内容")
bd1.Groups.AddDef("年月")
bd1.Groups.AddDef("fa piao1_记帐日期", DateGroupEnum.None, "记帐日期")

bd1.Totals.AddDef("fa piao1_金额","工程fa piao_金额")
bd1.Totals.AddDef("fa piao1_税额","工程fa piao_税额")
bd1.Totals.AddDef("fa piao1_价税合计","工程fa piao_价税合计")
bd1.Filter = "fa piao1_所属项目 is not null"
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表D2",DataTables("pzk"))
Dim dt2  As fxDataSource
bd2.Groups.AddDef("收款_所属项目","项目分类")
bd2.Groups.AddDef("收款_付款方","摘要")
bd2.Groups.AddDef("年月")
bd2.Groups.AddDef("收款_记帐日期", DateGroupEnum.None, "记帐日期")
bd2.Totals.AddDef("收款_金额","工程fa piao_收到工程款")
bd2.Filter = "收款_所属项目 is not null"
dt2 = bd2.BuildDataSource()

Dim arr() As String = {"项目分类","记帐日期","摘要","年月"}

dt1.Combine(arr,dt2,arr)

dt1.show("统计表D") '将统计结果绑定到Table"统计表D"

DataTables("统计表D").DataCols.Add("按fa piao未收工程款", Gettype(Double))  '增加一列
DataTables("统计表D").GlobalHandler.DataColChanged = True  '开户全局表事件

以下全局表事件：

Select Case e.DataCol.Name
    Case "工程fa piao_价税合计","工程fa piao_收到工程款"
        For Each dr As DataRow In e.DataTable.Select("[记帐日期] >= " & e.DataRow("记帐日期"))
            Dim Val1 As Double = e.DataTable.Compute("Sum(工程fa piao_价税合计)","[记帐日期] <= " & dr("记帐日期"))
            Dim Val2 As Double = e.DataTable.Compute("Sum(工程fa piao_收到工程款)","[记帐日期] <= " & dr("记帐日期"))
            dr("按fa piao未收工程款") = Val1 - Val2
        Next
End Select

结果是：余额不会出现

生成后循环每一行赋值

Dim dt As DataTable = DataTables("统计表D")
For Each dr As DataRow In dt.Select("")
    Dim Val1 As Double = dt.Compute("Sum(工程fa piao_价税合计)","[记帐日期] <= " & dr("记帐日期"))
    Dim Val2 As Double = dt.Compute("Sum(工程fa piao_收到工程款)","[记帐日期] <= " & dr("记帐日期"))
    dr("按fa piao未收工程款") = Val1 - Val2
Next