还是不认真看帮助造成的:
http://www.foxtable.com/webhelp/topics/1909.htm
绑定之后,再用代码添加表达式列。
Dim b As New GroupTableBuilder("库存",DataTables("出入库"))
b.filter = "货物类型 = '成品' AND 库名 = '" & str & "'"
b.Groups.AddDef("货物编号") '添加客户列用于分组
b.Groups.AddDef("货物名称") '添加产品列用于分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.Groups.AddDef("单位") '添加产品列用于分组
Tables("库存管理_table1").datasource = b.BuildDataSource()
DataTables("库存管理_table1")..DataCols.Add("修正数量",Gettype(Double))