关于卸载表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

窗口中放入一个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

主题：关于卸载表