Foxtable(狐表)用户栏目专家坐堂 → 要得到按用户输入的时间条件来得到相应的统计报表,用以下的代码后出错,请指正,谢谢。


  共有5518人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
soap_lwb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:65 积分:631 威望:0 精华:0 注册:2018/10/17 18:29:00
要得到按用户输入的时间条件来得到相应的统计报表,用以下的代码后出错,请指正,谢谢。  发帖心情 Post By:2018/12/3 11:22:00 [只看该作者]

 
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:管理项目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,"来电时间")
Next
d.Show(tjb)
MainTable = Tables(tjb) '打开生成的统计表"

 回到顶部