主题：[求助]Foxtable如何实现这个表

做一个按钮（代码如下）：

'1、先创建临时表： 列名和列的数量自己增加....

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("品名", GetType(String), 32)
dtb.AddDef("流水号", GetType(String), 32)

....
dtb.AddDef("净量", GetType(Double))

....
dtb.AddDef("金额", GetType(Double))
dtb.Build()
MainTable= Tables("统计")

'2、这样充填相关列的数据： 补齐 来源列 和 接收列 ···

dim f As New Filler
f.SourceTable = DataTables("流水表") '指定数据来源
f.SourceCols = "品名,流水号,日期时间···" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "品名,流水号,日期时间···" '指定数据接收列
f.Fill() '填充数据

'3、在统计表中计算：

For Each r As Row In Tables("统计表").rows
    Dim dr As DataRow
    dr = DataTables("属性").Find("类别 = '" & r("类别") & "'and 开始值 <= " & r("净量") & _
    " And 结束值 >=  " & r("净量") )   '条件自己补全！
    If dr IsNot Nothing
        r("单价") = dr("单价")
        r("金额") = r("净量") * r("单价")
    End If
Next

当然还有其他方法···