老师，如何才可以得到后面的分级汇总
Dim tb As Table = Tables(e.Form.Name & "_table1")
Dim dt As DataTable = tb.DataTable
Dim fi As String
If e.Form.Controls("VTextfi").text > "" Then
Fi = "sel ect * from {YGB} where " & e.Form.Controls("VTextfi").text
Else
Fi = "sele ct * from {YGB} "
End If
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = fi
tb.DataSource = cmd.ExecuteReader
Dim b As New GroupTableBuilder("DDCJNl", dt)
'b.C
b.Groups.AddDef("在职情况")
b.Totals.AddDef("年龄", AggregateEnum.Max, "最高龄")
b.Totals.AddDef("年龄", AggregateEnum.Min, "最低龄")
b.Totals.AddDef("年龄", AggregateEnum.Average, "平均年龄")
b.Totals.Addexp("分布_20以下", "iif(年龄 < 20 ,1,0)")
b.Totals.AddExp("分布_20-25", "iif(年龄 >= 20 And 年龄 < 25,1,0)")
b.Totals.AddExp("分布_25-30", "iif(年龄 >= 25 And 年龄 < 30,1,0)")
b.Totals.AddExp("分布_30-35", "iif(年龄 >= 30 And 年龄 < 35,1,0)")
b.Totals.AddExp("分布_35-40", "iif(年龄 >= 35 And 年龄 < 40,1,0)")
b.Totals.AddExp("分布_40-45", "iif(年龄 >= 40 And 年龄 < 45,1,0)")
b.Totals.AddExp("分布_45-50", "iif(年龄 >= 45 And 年龄 < 50,1,0)")
b.Totals.AddExp("分布_50-60", "iif(年龄 >= 50 And 年龄 < 60,1,0)")
b.Totals.AddExp("分布_60以上", "iif(年龄 >= 60,1,0)")
此主题相关图片如下：无标题20230329.png
[此贴子已经被作者于2023/3/29 19:24:45编辑过]
加好友 
发短信
Post By：2023/3/29 19:23:00 [只看该作者]
