求改代码多个列自动取值并进行统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim st As Date = Date.Now

Dim lts As List(Of String)

Dim lts1 As List(Of String)

lts = DataTables("采集表").GetUniqueValues("", "民族")

lts1 = DataTables("采集表").GetUniqueValues("", "性别")

Dim b As New SQLGroupTableBuilder("综合统计","采集表")

b.Groups.Adddef("类别")

b.filter="类别 is not null"

b.Totals.Adddef("类别",AggregateEnum.Count,"小计")

For i As Integer = 0 To lts.count -1

b.Totals.Addexp("民族_"& lts(i),"IIF(民族 = 'lts(i)',1,0)")

For i As Integer = 0 To lts1.count -1

b.Totals.Addexp("性别_"& lts1(i),"IIF(性别 = 'lts1(i)',1,0)")

b.VerticalTotal = True

b.Build

With Tables("综合统计")

.DefaultColWidth = 40

.DefaultRowHeight = 40

.Cols(0).Width = 120

.AllowDragColumn = False

.AllowResizeRow = False

.SetHeaderRowHeight(40,100)

.AllowResizeColumn = False

.AllowEdit = False

.Grid.Styles.Normal.Border.Color = Color.black

End With

DataTables("综合统计").SysStyles("Alternate").BackColor = Color.LightYellow

MainTable = Tables("综合统计")

StatusBar.Message3 = "耗时: " & (Date.Now - st).TotalSeconds & "秒"

主题：求改代码 多个列自动取值并进行统计