以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  关于卸载表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89211)

--  作者：lk15502 --  发布时间：2016/8/17 12:13:00 --  关于卸载表 窗口中放入一个table,下面有几个按钮，作为统计数据用，点击了一个按钮后，在点击其他按钮，在代码中需要加入卸载表的代码，怎么写，没有的话，几个用户同时操作会不会导致系统死机，下面的代码是其中一个按钮的： Dim bd1 As New GroupTableBuilder("统计表1",DataTables("入库表")) Dim dt1 As fxDataSource bd1.groups.adddef("入库日期统计",Dategroupenum.year,"年") \'添加入库日期统计用于分组,列名是年 bd1.groups.adddef("入库日期统计","月份") \'添加入库日期统计用于分组,列名是月份 bd1.Groups.AddDef("品名大类") \'根据品名分组 bd1.Totals.AddDef("重量","入库_重量") \'对重量进行统计 bd1.Totals.AddDef("匹数","入库_匹数") \'对匹数进行统计 bd1.Subtotal = True \'生成汇总模式 bd1.fromserver = True \'后台统计 dt1 = bd1.BuildDataSource() Dim bd2 As New GroupTableBuilder("统计表2",DataTables("库存表")) Dim dt2  As fxDataSource bd2.groups.adddef("入库日期统计",Dategroupenum.year,"年") \'添加入库日期统计用于分组,列名是年 bd2.groups.adddef("入库日期统计","月份") \'添加入库日期统计用于分组,列名是月份 bd2.Groups.AddDef("品名大类") \'根据品名分组 bd2.Totals.AddDef("重量","库存_重量") \'对重量进行统计 bd2.Totals.AddDef("匹数","库存_匹数") \'对匹数进行统计 bd2.Subtotal = True \'生成汇总模式 bd2.fromserver = True \'后台统计 dt2 = bd2.BuildDataSource() Dim bd3 As New GroupTableBuilder("统计表3",DataTables("出库表")) Dim dt3 As fxDataSource bd3.groups.adddef("出库日期统计",Dategroupenum.year,"年") \'添加入库日期统计用于分组,列名是年 bd3.groups.adddef("出库日期统计","月份") \'添加入库日期统计用于分组,列名是月份 bd3.Groups.AddDef("品名大类") \'根据品名分组 bd3.Totals.AddDef("重量","出库_重量") \'对重量进行统计 bd3.Totals.AddDef("匹数","出库_匹数") \'对匹数进行统计 bd3.Subtotal = True \'生成汇总模式 bd3.fromserver = True \'后台统计 dt3 = bd3.BuildDataSource() Dim nms As String() = {"年","月份","品名大类"} dt1.Combine(nms,dt2,nms) \'将库存统计数据组合到入库统计数据 dt1.Combine(nms,dt3,nms) \'将出库统计数据组合到入库统计数据 Tables("统计窗口2_Table4").DataSource = dt1 \'将统计结果绑定到Table

--  作者：大红袍 --  发布时间：2016/8/17 12:23:00 --    没必要卸载表的啊。每个用户都是独立的一个程序，不会导致冲突的啊。