Foxtable(狐表)用户栏目专家坐堂 → 物料需求统计


  共有9842人关注过本帖树形打印复制链接

主题:物料需求统计

帅哥哟,离线,有人找我吗?
don
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1812 积分:12999 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2012/6/4 22:32:00 [显示全部帖子]

朦朦:

Dim s1 As String
Dim gb As new SQLGroupTableBuilder("统计表","用料")
gb.Groups.AddDef("材料分类")
gb.Groups.AddDef("材料名称")
gb.Groups.AddExp("型号规格","材料分类")
gb.Totals.AddDef("用料")
gb.Build()

For Each r As Row In Tables("统计表").Rows
    s1="材料分类 ='" & r("材料分类") & "'And 材料名称 = '" & r("材料名称") & "'"
    s1=DataTables("用料").GetComboListString("型号规格",s1)
    r("型号规格") = s1.Replace("|",",")
Next
MainTable = Tables("统计表")

 回到顶部
帅哥哟,离线,有人找我吗?
don
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1812 积分:12999 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2012/6/4 22:50:00 [显示全部帖子]

以下是引用实话实说在2012-6-4 22:42:00的发言:

不行

你匯總結果怎樣計算的



 回到顶部
帅哥哟,离线,有人找我吗?
don
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1812 积分:12999 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2012/6/5 6:07:00 [显示全部帖子]

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

 回到顶部