主题：生成帐页问题

还不如直接生成一个分组统计表的好

Dim g As New GroupTableBuilder("统计表", DataTables("物料明细"))
g.Groups.AddDef("物料")
g.Groups.AddDef("物料分类")
g.Groups.AddDef("物料名称")
g.Groups.AddDef("型号规格")
g.Groups.AddDef("单位")
g.Groups.AddDef("日期", DateGroupEnum.None)
g.Totals.AddDef("入仓_数量")
g.Totals.AddDef("入仓_金额")
g.Totals.AddDef("出仓_数量")
g.Totals.AddDef("出仓_金额")
g.Totals.AddDef("库存_数量")
g.Totals.AddDef("库存_金额")
g.Build()
For Each dr As DataRow In DataTables("统计表").DataRows
    dr("库存_数量") = dr("入仓_数量") - dr("出仓_数量")
    dr("库存_金额") = dr("入仓_金额") - dr("出仓_金额")
Next
MainTable = Tables("统计表")

4秒左右能接受吗？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生成帐页.table

第二个问题很简单，先暂停绘制，代码执行完后再重新绘制即可。

e.Form.StopRedraw
Tables("物料帐页").ClearSubtotal
Tables("物料帐页").Sort = ""
e.Form.ResumeRedraw