主题：后台统计

 后台统计出现错误

If DataTables("订单明细表").DataCols.Contains("付款a") = False Then
    DataTables("订单明细表").DataCols.Add("付款a", Gettype(String),8)
End If
For Each r As Row In Tables("订单明细表").rows
    If r("已付款") = False
        r("付款a") = "未付款"
    Else
        r("付款a") = "已付款"
    End If
Next
DataTables("订单明细表").Save()
Dim g As New CrossTableBuilder("统计表2", DataTables("订单明细表"))
g.HGroups.AddDef("订货日期", DateGroupEnum.Year, "年")
g.HGroups.AddDef("订货日期", DateGroupEnum.Quarter, "季")
g.HGroups.AddDef("客户名称")
g.Filter = "客户名称 Is not null"
g.VGroups.AddDef("付款a")
g.Totals.AddDef("数量", "数量")
g.Totals.AddDef("金额", "金额")
g.HorizontalTotal = True
g.Decimals = 0
g.FromServer = True 

g.Build()
MainTable = Tables("统计表2")

狐爸帮我看一看好吗？

谢谢！！！

问题已解决，非常感谢各位的帮助