要得到按用户输入的时间条件来得到相应的统计报表，用以下的代码后出错，请指正，谢谢。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

此主题相关图片如下：统计结果.png

Dim tjb As String = "统计表1"

Dim b As New SQLGroupTableBuilder(tjb,"管网管理所抢修热线")

b.Groups.AddExp("来电时间","CDate(日期)")

b.Totals.AddExp("表A_接单量","1")

b.Totals.AddExp("表A_已处理数量","iif(是否解决=true,1,0)")

b.Totals.AddExp("表A_未处理数量","iif(是否解决=true,0,1)")

Dim dd As Date = "2018-10-01"

b.filter = "来电时间>=#" & dd & "# and 来电时间 < #" & dd.addmonths(1) & "#"

'b.Build

Dim d As fxDataSource = b.BuildDataSource()

Dim bms As String = "用户管理水表热线|公司内部业务热线登记表|咨询业务热线登记表"

For Each bm As String In bms.split("|")

Dim b1 As New SQLGroupTableBuilder(tjb,bm)

b1.Groups.AddExp("来电时间","CDate(日期)")

b1.Totals.AddExp(bm & "_接单量","1")

b1.Totals.AddExp(bm & "_已处理数量","iif(是否解决=true,1,0)")

b1.Totals.AddExp(bm & "_未处理数量","iif(是否解决=true,0,1)")

b.filter = "来电时间>=#" & dd & "# and 来电时间 < #" & dd.addmonths(1) & "#"

'b1.Build

Dim d1 As fxDataSource = b1.BuildDataSource()

d.Combine("来电时间",d1,"来电时间")

d.Show(tjb)

MainTable = Tables(tjb) '打开生成的统计表"

主题：要得到按用户输入的时间条件来得到相应的统计报表，用以下的代码后出错，请指正，谢谢。