再试试
LockWindowUpdate(baseMainform.handle)
e.Form.StopRedraw()
Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))
b.HGroups.AddDef("客户") '添加客户列用于水平分组
b.VGroups.AddDef("产品") '添加产品列用于垂直分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.Build '生成统计表
e.Form.ResumeRedraw()
LockWindowUpdate(System.IntPtr.Zero)