以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问,如何把两组代码产生的临时表数据和在一个表中?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=27694)

--  作者:lyfxybc
--  发布时间:2013/1/7 23:34:00
--  请问,如何把两组代码产生的临时表数据和在一个表中?

请问,如何把两组代码产生的临时表数据和在一个表中?

 

 

Dim g As New GroupTableBuilder("统计表1", DataTables("坯布输入"))

g.Groups.AddDef("年")

g.Groups.AddDef("月")

g.Groups.AddDef("产品名称")

g.Totals.AddDef("匹数", "下机坯布_累计")

g.Totals.AddDef("总长", "长度_累计")

g.Totals.AddDef("织造车间扣分", "扣分_累计")

g.Totals.AddDef("总重", "重量_累计")

b.Decimals = 2

g.FromServer = True

g.Build()

MainTable = Tables("统计表1")

 

 

 

        

Dim b As New GroupTableBuilder("统计表2", DataTables("坯布输入"))

b.Filter = "日期 >= #" & Date.Today & "# “

b.Groups.AddDef("年")

b.Groups.AddDef("月")

b.Groups.AddDef("产品名称")

b.Totals.AddDef("匹数", "下机坯布_本日")

b.Totals.AddDef("总长", "长度_本日")

b.Totals.AddDef("织造车间扣分", "扣分_本日")

b.Totals.AddDef("总重", "重量_本日")

b.Decimals = 2

b.FromServer = True

b.Build()

MainTable = Tables("统计表2")

 

   

    


--  作者:lin_hailun
--  发布时间:2013/1/8 9:19:00
--  
 你看看这个。

http://www.foxtable.com/help/topics/2391.htm

--  作者:lyfxybc
--  发布时间:2013/1/8 18:55:00
--  
谢谢