以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助][求助]求进料和用料，做剩余的表的方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31135)

--  作者：jsl8071808 --  发布时间：2013/4/10 17:57:00 --  [求助][求助]求进料和用料，做剩余的表的方法 请求大家帮助，我这个表里，有一个铝板到料记录，还有一个铝板用料记录，我想用这两个表，做出一个铝板剩余的表，板厚，宽，长，材质，订料工程，单片价格，这个作为分组列，怎么做这个表啊，我实在做不出来了。  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:生产管理.table [此贴子已经被作者于2013-4-10 18:07:31编辑过]

--  作者：Bin --  发布时间：2013/4/10 18:00:00 --   你的意思是 铝板剩余的表分别统计出  板厚为 10MM  宽10 长10 材质为XX的 铝板剩余 100 板厚为 20MM  宽10 长20 材质为XX的 铝板剩余 200 这样的意思吗?

--  作者：jsl8071808 --  发布时间：2013/4/10 18:02:00 --   是这个意思

--  作者：jsl8071808 --  发布时间：2013/4/10 18:04:00 --   为什么我上传的附件看不到呢

--  作者：Bin --  发布时间：2013/4/10 18:04:00 --   论坛貌似有点问题.要点代码模式上传才能看到.

--  作者：jsl8071808 --  发布时间：2013/4/10 18:08:00 --   你帮我看看该怎么做吧，谢谢了

--  作者：FoxMan --  发布时间：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,[用料])")