Dim fxlb As WinForm.ComboBox = e.Form.Controls("分校列表")
Dim i As Integer=1
Dim g As New sqlCrossTableBuilder("统计表2", "报名缴费")
g.C
'g.AddTable("分校","分校编号","报名缴费","分校编号")
g.HGroups.AddDef("所属分校")
'g.HGroups.AddDef("经营形式")
g.Vgroups.AddDef("制单人")
g.Totals.AddDef("缴费编号", AggregateEnum.Count, "人数")
g.Totals.AddExp("收费合计", "收费合计 - 材料费")
'g.Totals.AddDef("欠缴金额", "欠缴金额")
'g.Totals.AddDef("补缴金额", "补缴金额")
此主题相关图片如下：qq图片20180321215346.png
g.Filter = "所属分校 Not Like '%测试分校%' And 所属分校='" & fxlb.value & "' And 制单人 > 0 And year(缴费日期)>=2018 "
g.Build()
Tables(e.Form.name & "_table5").DataSource=g.BuildDataSource
Tables(e.Form.name & "_table5").AutoSizeCols()
加好友 
发短信
Post By：2018/3/21 21:53:00 [只看该作者]
