用分组统计生存的代码做窗口按钮,对刚改过的表计算不生效,重新启动FOXTABLE后才生效,请老师指教是啥原因,谢谢啊。
按钮代码为:
MainTable = Tables("职工一览表")
Dim g As New CrossTableBuilder("岗位", DataTables("职工一览表"))
g.HGroups.AddDef("科室")
g.VGroups.AddDef("现岗位")
g.Totals.AddDef("姓名", AggregateEnum.Count, "人数")
g.OrderByTotal = True
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 0
g.Subtotal = True
g.FromServer = True
g.Build()
MainTable = Tables("岗位")
For Each c As Col In Tables("岗位").Cols
c.Width = 60
Next