以下是引用实话实说在2012-6-4 22:25:00的发言:
仔细对照帮助测试,窗口按钮代码如下
Dim gb As New SQLGroupTableBuilder("统计表","用料")
Dim Cols1() As String = {"产品分类","型号","规格"}
Dim Cols2() As String = {"产品分类","型号","规格"}
gb.AddTable("用料",Cols1,"产品",Cols2)
gb.Groups.AddDef("材料分类")
gb.Groups.AddDef("材料名称")
gb.Groups.AddDef("型号规格")
gb.Totals.AddExp("用料汇总","[数量] * [标准用料]")
gb.Build()
MainTable = Tables("统计表")
该代码只在每次打开项目后第一次运行时有效,更改了产品数量或用料数量后再点击按钮则无效,不知错在哪里
==============================================================
執行SQL前要保存的,你只更改,不保存當然不行了
Syscmd.Project.Save()
Dim gb As New SQLGroupTableBuilder("统计表","用料")
Dim Cols1() As String = {"产品分类","型号","规格"}
Dim Cols2() As String = {"产品分类","型号","规格"}
gb.AddTable("用料",Cols1,"产品",Cols2)
gb.Groups.AddDef("材料分类")
gb.Groups.AddDef("材料名称")
gb.Groups.AddDef("型号规格")
gb.Totals.AddExp("用料汇总","[数量] * [用料]")
gb.Build()
MainTable = Tables("统计表")
[此贴子已经被作者于2012-6-5 6:07:23编辑过]