Dim dj As WinForm.NumericComboBox dj = Forms("窗口").Controls("NumericComboBox1")
Dim b As New
SQLCrossTableBuilder("统计表1","订单") b.HGroups.AddDef("客户") b.VGroups.AddDef("产品") b.Totals.AddDef("数量") b.Totals.AddExp("金额","数量 * 单价 * dj") ' b.Build Maintable = Tables("统计表1")