- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 统计时，转换成数据类型失败 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116257)
-- 发布时间：2018/3/21 21:53:00
-- 统计时，转换成数据类型失败
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
此主题相关图片如下：qq图片20180321215346.pngg.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()
-- 发布时间：2018/3/21 23:23:00
--
修改红色代码
g.Filter = "所属分校 Not Like \'%测试分校%\' And 所属分校=\'" & fxlb.value & "\' And 制单人 is not null And year(缴费日期)>=2018 "