我试了您的方法,统计不出来。但您的意思我明白了。是不是我的数组存放有问题?请给与指点。
Dim dq As String
dq = e.Form.controls("选择地区").text
Dim n As Integer
If DataTables("基本信息").find("[所属地区] = '"& dq &"'") IsNot Nothing Then
drs = DataTables("基本信息").Select("[所属地区] = '"& dq &"'")
n = drs.count
Dim sz(n) As String
Dim i As Integer = 0
For Each dr As DataRow In drs
sz(i) = dr("企业代码")
i = i + 1
Next
Dim b As New GroupTableBuilder("统计表1",DataTables("进货额"))
Dim data As String = ""
For Each s As String In sz
data = data & s & ","
Next
data = data.trim(",")
b.Filter = "[企业代码] in (" & data & ")"
b.Groups.AddDef("进货日期",DateGroupEnum.Year,"年") '添加日期列用于分组,并用"年"代替原名称
b.Groups.AddDef("进货日期","月") '添加日期列用于分组,并用"月"代替原名称
b.Totals.AddDef("进货额") '对数量进行统计
b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表
End If
谢谢