物料需求统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

[产品]表的"数量"*[用料]表的"标准用料" = [统计表]的"用料汇总"

[此贴子已经被作者于2012-6-4 22:56:36编辑过]

以下是引用实话实说在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编辑过]

以下是引用don在2012-6-5 6:07:00的发言：

[此贴子已经被作者于2012-6-5 6:07:23编辑过]

不好意思,忘了狐爸提示,谢了

还有点问题:我想一直在窗口中操作,但每次在窗口运行按钮后窗口就关闭,去掉MainTable = Tables("统计表")代码也不行,如何不让窗口关闭?

改為SQLTable或SQLQuery或副本型的Table