出现了一个错误。不知道是什么原因。。。
此主题相关图片如下:14.png
Dim dt3 As fxDataSource
Dim dt2 As fxDataSource
Dim dt1 As fxDataSource
Dim ary1() As String = {"CheckBox8", "CheckBox9", "CheckBox10"}
Dim ary2() As String = {"陈列量", "动销量","库位销售分析"} '表名
Dim ary3() As String = {"陈列量", "动销量", "销售件数"} '列名
Dim ary4() As String = {"陈列sku数", "动销sku数", "销售件数"} '列名
Dim ary5() As String = {"统计表1", "统计表2", "统计表3"} '统计表
Dim ary6() As fxDataSource = {dt3,dt2,dt1}
For i As Integer = 0 To ary1.length - 1
If e.form.controls(ary1(i)).checked Then
Dim bdn As New SQLcrossTableBuilder(ary5(i),ary2(i))
bdn.C
bdn.HGroups.AddDef("门店") '添加客户列用于水平分组
bdn.HGroups.AddDef("库位") '添加客户列用于水平分组
bdn.vGroups.AddDef("调整期间","调整期间_{0}") '添加客户列用于水平分组
bdn.Totals.AddDef(ary3(i),ary4(i)) '添加数量列用于统计
bdn.Totals.AddDef(ary3(i),ary4(i)) '添加数量列用于统计
ary6(i) = bdn.BuildDataSource()
Dim ls As new List(of String)
ls.add("门店")
ls.add("库位")
For Each c As Object In e.Form.controls("groupbox3").children
If c.checked Then
ls.add(c.text)
End If
Next
Dim nms As String() = ls.ToArray
'Dim dts() As fxDataSource = {dt3,dt2,dt1} '采用原来这个也是报同样的错
Dim pdt As fxDataSource = Nothing
For Each dt As object In ary6()
If pdt Is Nothing AndAlso dt IsNot Nothing Then
pdt = dt
Else
If pdt IsNot Nothing AndAlso dt IsNot Nothing Then
pdt.Combine(nms,dt,nms)
End If
End If
Next
End If
Next
Tables(e.Form.Name & "_table1").StopRedraw
Tables(e.Form.Name & "_table1").DataSource = pdt
[此贴子已经被作者于2016/8/1 14:36:24编辑过]