主题：[求助]CrossTableBuilder

红色代码删除

窗口1没问题，请说明如何测试，有什么问题？

应该是bug

Dim bxmx As WinForm.Table = e.Form.Controls("Table1")
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim sql As String = "Select * From {表A}"
cmd.CommandText = sql
dt = cmd.ExecuteReader()

Dim g As New CrossTableBuilder("统计表1",dt)
g.HGroups.AddDef("menuid")
g.HGroups.AddDef("findpnl")
g.VGroups.AddDef("amount")
g.Totals.AddDef("amount", "amount", True)
'g.OrderByTotal = True
'g.HorizontalTotal = True
'g.VerticalTotal = True
g.Subtotal = True
g.SubtotalLevel = 0 '只生成总计行
'g.Build()
bxmx.Table.DataSource =g.BuildDataSource()

1、8楼代码我测试没问题。

2、如果不想用sqlcommand，你可以用sqlcrosstablebuilder http://www.foxtable.com/webhelp/scr/1627.htm

什么意思？设置条件是？ "第一列 = '" & Tables("表A").current("第一列") & "'"

改成

Dim bxmx As WinForm.Table = e.Form.Controls("Table1")
Dim g As New CrossTableBuilder("统计表1",DataTables("表A"))
g.HGroups.AddDef("numbers")
g.HGroups.AddDef("submiterid")
g.HGroups.AddDef("cheks")
g.VGroups.AddDef("contentname")
g.Totals.AddDef("amount", "amount")
g.OrderByTotal = True
'g.HorizontalTotal = True
'g.VerticalTotal = True
'g.Subtotal = True
g.SubtotalLevel = 0 '只生成总计行
'g.Build()
bxmx.Table.DataSource =g.BuildDataSource()

不可以。那你需要改成【汇总模式】