- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助][求助]求进料和用料，做剩余的表的方法 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31135)
-- 发布时间：2013/4/10 17:57:00
-- [求助][求助]求进料和用料，做剩余的表的方法
请求大家帮助，我这个表里，有一个铝板到料记录，还有一个铝板用料记录，我想用这两个表，做出一个铝板剩余的表，板厚，宽，长，材质，订料工程，单片价格，这个作为分组列，怎么做这个表啊，我实在做不出来了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生产管理.table |
[此贴子已经被作者于2013-4-10 18:07:31编辑过]
-- 发布时间：2013/4/10 18:00:00
--
你的意思是 铝板剩余的表分别统计出
板厚为 10MM 宽10 长10 材质为XX的 铝板剩余 100
板厚为 20MM 宽10 长20 材质为XX的 铝板剩余 200
这样的意思吗?
-- 发布时间：2013/4/10 18:02:00
--
是这个意思
-- 发布时间：2013/4/10 18:04:00
--
为什么我上传的附件看不到呢
-- 发布时间：2013/4/10 18:04:00
--
论坛貌似有点问题.要点代码模式上传才能看到.
-- 发布时间：2013/4/10 18:08:00
--
你帮我看看该怎么做吧，谢谢了
-- 发布时间：2013/4/10 18:33:00
--
Dim bd1 As New GroupTableBuilder("统计表",DataTables("铝板到料记录"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("材质") \'根据品名分组
bd1.Groups.AddDef("板厚") \'根据型号分组
bd1.Groups.AddDef("宽") \'根据品名分组
bd1.Groups.AddDef("长") \'根据型号分组
bd1.Groups.AddDef("订料工程") \'根据品名分组
bd1.Groups.AddDef("单片价格") \'根据型号分组
bd1.Totals.AddDef("数量","到料") \'对数量进行统计
dt1 = bd1.BuildDataSource()
bd1 = New GroupTableBuilder("统计表2",DataTables("铝板用料记录"))
Dim dt2 As fxDataSource
bd1.Groups.AddDef("材质") \'根据品名分组
bd1.Groups.AddDef("板厚") \'根据型号分组
bd1.Groups.AddDef("宽") \'根据品名分组
bd1.Groups.AddDef("长") \'根据型号分组
bd1.Groups.AddDef("订料工程") \'根据品名分组
bd1.Groups.AddDef("单片价格") \'根据型号分组
bd1.Totals.AddDef("数量","用料") \'对数量进行统计
dt2 = bd1.BuildDataSource()
Dim nms As String() = {"材质","板厚","宽","长","订料工程","单片价格"} \'指定连接列
dt1.Combine(nms,dt2,nms) \'将销售统计数据组合到进货统计数据
Dim t1 As Table =Tables("窗口1_Table1")
t1.DataSource = dt1
t1.DataTable.DataCols.Add("剩料", Gettype(Double), "iif([到料] is Null,0,[到料])-iif([用料] is null,0,[用料])")