[求助]SQLGroupTableBuilder问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：1p99su$`s%uc1khs@dzh~(u.png

Dim CombGetColTbl As WinForm.ComboBox = e.Form.Controls("CombGetColTbl") 'CombGetColTbl对应第一张图的{产值付款流程表}

If CombGetColTbl.Items.Count<1 Then

MessageBox.Show("没有需要统计的表")

Return

End If

Dim MainSumTable As String = CombGetColTbl.Items(0) '统计使用的主表

Dim CombSumCol As WinForm.ListBox = e.Form.Controls("LstSumCol1")'对应第一张图的{SUM(申报金额) SUM(批复金额)}

If CombSumCol.Items.Count<1 Then

MessageBox.Show("没有选定统计列")

Return

End If

Dim SumName As String = e.Form.Controls("TxtGroup1").TEXT '生成查询表的名字

Dim tStr As String = ""

If SUMNAME.Trim() = "" Then

SUMNAME= MainSumTable & "统计表"

e.Form.Controls("TxtGroup1").TEXT = SUMNAME

End If

Dim DetailCol As WinForm.ListBox = e.Form.Controls("LstDetailDec1") '对应第一张图的{都匀电厂补水管,都匀电厂柴油机,都匀电厂复用水}

Dim nCn As Integer = DetailCol.Items.Count -1

Dim bdx(CombSumCol.Items.Count-1 , iif(nCn<0 ,0 , nCn) ) As SQLGroupTableBuilder '

Dim dtx(CombSumCol.Items.Count-1 , iif(nCn<0 ,0 , nCn) ) As fxDataSource

Dim vSum(CombSumCol.Items.Count-1) As mColValue '

Functions.Execute("Fun分离lstboxs数据",CombSumCol,vSum,MainSumTable,"",False)

Dim vGrp(iif(nCn<0 ,0 , nCn)) As mColValue '

Functions.Execute("Fun分离lstboxs数据",DetailCol,vGrp,MainSumTable,e.Form.Controls("CombGetColTbl1").text,False)

For i As Integer=0 To CombSumCol.Items.Count -1

For j As Integer=0 To iif(nCn<1,0,ncn)

If i=0 And j=0 Then

bdx(0,0) = New SQLGroupTableBuilder(SUMNAME,MainSumTable )

Else

bdx(I,J) = New SQLGroupTableBuilder(SUMNAME & i & j,MainSumTable )

End If

bdx(I,J).C

For L As Integer = 0 To CombGetColTbl.Items.Count -1 ''连接多表

Dim CombLinkCol01 As WinForm.ComboBox = e.Form.Controls("CombLinkCol" & L & "1") '连接字段

Dim CombLinkCol02 As WinForm.ComboBox = e.Form.Controls("CombLinkCol" & L & "2") '连接字段

If L>0 Then

If CombLinkCol01.Text <> "" AndAlso CombLinkCol02.text <> "" Then

For i As Integer=0 To CombSumCol.Items.Count -1

For j As Integer =0 To iif(nCn<1,0,ncn)

bdx(I,J).AddTable(MainSumTable ,CombLinkCol01.Text ,CombGetColTbl.Items(L) ,CombLinkCol02.Text )

End If

Dim LstGrpName As WinForm.ListBox = e.Form.Controls("LstDesColName1") ' 统计时的分组列

Dim grpN(LstGrpName.Items.Count-1) As String

Dim il As Integer =0

For i As Integer =0 To (LstGrpName.Items.Count -1)

tStr = LstGrpName.Items(i)

il=tStr.IndexOf("}.")

grpN(i)=tstr.Trim()

For j As Integer = 0 To CombSumCol.Items.Count -1

For k As Integer = 0 To iif(nCn<1,0,ncn)

bdx(j,k).Groups.AddDef( tStr ,IIF(IL>0, tStr.SubString(tStr.IndexOf("}.") +2 ),tStr) ) '

'MessageBox.Show("J" & J & " K" & K & "GRP:" & tStr, & "GRP:" & tStr)

For i As Integer =0 To CombSumCol.Items.Count -1 ''开始统计

For j As Integer = 0 To iif(nCn<1,0,ncn) 'DetailCol

bdx(I,j).Totals.AddDef( vSum(i).Value , vSum(i).Value & "_" & vGrp(j).dfVal) ' tStr.SubString(tStr.IndexOf("}.") +2 ) )

'MessageBox.Show("IvSum(i).Value " & vSum(i).Value & " vSum(i).Value _ vGrp(j).dfVal" & vSum(i).Value & "_" & vGrp(j).dfVal & "GRP:" & tStr)

If vGrp(j).dfVal<>"" Then bdx(I,j).Filter = vGrp(j).Value & " = '" & vGrp(j).dfVal & "'"

dtx(i,j) = bdx(I,j).BuildDataSource()

If i<> 0 Or j<> 0 Then '

' MessageBox.Show("grpN(0) I" & i & grpN(0) & " grpN(1) J" & J & grpN(1) & "vSum(J).dfVal" & vGrp(j).dfVal )

dtx(0,0).Combine(grpN ,dtx(I,j), grpN)'

End If

Tables("通用分组查询器_TblData").DataSource = bdx(0,0) '这个结果出来后,见图第二张,怎么会没有动呢?

Tables("通用分组查询器_TblData").AutoSizeCols()

主题：[求助]SQLGroupTableBuilder问题