Foxtable(狐表)用户栏目专家坐堂 → [求助]重定向后,生成的SQL语句错误,无法进行统计


  共有2597人关注过本帖树形打印复制链接

主题:[求助]重定向后,生成的SQL语句错误,无法进行统计

帅哥,在线噢!
jyh7081
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:960 积分:8478 威望:0 精华:0 注册:2012/10/3 13:25:00
[求助]重定向后,生成的SQL语句错误,无法进行统计  发帖心情 Post By:2017/8/23 22:28:00 [显示全部帖子]

重定向外部表后,其他正常,就一处统计代码报错,代码如下:

Dim cn As String = "" '数据源名(空白时为内数据表)
Dim bm As String = "统计表1"
Dim b As New SQLGroupTableBuilder(bm,"机关负责人出庭")
b.ConnectionName = cn
b.Groups.AddDef("案号")
b.Groups.AddDef("被告")
b.Totals.AddExp("负责人","iif(出庭情况_负责人=true,1,null)")
b.Totals.AddExp("正职","iif(出庭情况_正职=true,1,null)")
b.Totals.AddExp("本机关工作人员","iif(出庭情况_本机关工作人员=true,1,null)")
b.Totals.AddExp("下级机关工作部门人员","iif(出庭情况_下级机关工作部门人员=true,1,null)")
b.Totals.AddExp("仅下级机关工作部门人员","iif(出庭情况_仅下级机关工作部门人员=true,1,null)")
b.Totals.AddExp("仅委托律师","iif(出庭情况_仅委托律师=true,1,null)")
b.Totals.AddExp("仅下级机关工作部门人员和律师","iif(出庭情况_仅下级机关工作部门人员和律师=true,1,null)")
b.Totals.AddExp("行政机关未经法庭许可中途退庭","iif(出庭情况_行政机关未经法庭许可中途退庭=true,1,null)")
b.Totals.AddExp("无人出庭应诉","iif(出庭情况_无人出庭应诉=true,1,null)")
b.Subtotal = True
b.SubtotalLevel = 0
Tables("司法统计_Table1").DataSource = b.BuildDataSource

With Tables("司法统计_Table1")
    .MergeMode = MergeModeEnum.Standard '标准合并模式
    .MergeCols.Clear() '清除原来的合并列
    .MergeCols.Add("案号") '加入要合并的列
    '.MergeSort = "被告"  '设置合并模式下的排序方式
    .AllowMerge = True '启用合并模式
End With
Tables("司法统计_Table1").AutoSizeCols()  '自动列宽

 回到顶部
帅哥,在线噢!
jyh7081
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:960 积分:8478 威望:0 精华:0 注册:2012/10/3 13:25:00
  发帖心情 Post By:2018/1/12 11:47:00 [显示全部帖子]

转换sql外部数据源后,将一楼的代码中 iif语句 修改为 case when语句,提示错误:

 
图片点击可在新窗口打开查看此主题相关图片如下:image 1.jpg
图片点击可在新窗口打开查看

 

Dim cn As String = "swptsql"   'sql外部数据源
Dim bm As String = "统计表1"
Dim b As New SQLGroupTableBuilder(bm,"机关负责人出庭")
b.ConnectionName = cn
b.Groups.AddDef("案号")
b.Groups.AddDef("被告")
b.Groups.AddDef("承办人")  

b.Totals.AddExp("负责人","Case When 出庭情况_负责人=true then 1 Else null End")
b.Totals.AddExp("正职","Case When 出庭情况_正职=true then 1 Else null End")
b.Totals.AddExp("本机关工作人员","Case When 出庭情况_本机关工作人员=true then 1 Else null End")
b.Totals.AddExp("下级机关工作部门人员","Case When 出庭情况_下级机关工作部门人员=true then 1 Else null End")
b.Totals.AddExp("仅下级机关工作部门人员","Case When 出庭情况_仅下级机关工作部门人员=true then 1 Else null End")
b.Totals.AddExp("仅委托律师","Case When 出庭情况_仅委托律师=true then 1 Else null End")
b.Totals.AddExp("仅下级机关工作部门人员和律师","Case When 出庭情况_仅下级机关工作部门人员和律师=true then 1 Else null End")
b.Totals.AddExp("行政机关未经法庭许可中途退庭","Case When 出庭情况_行政机关未经法庭许可中途退庭=true then 1 Else null End")
b.Totals.AddExp("无人出庭应诉","Case When 出庭情况_无人出庭应诉=true then 1 Else null End")
b.Subtotal = True
b.SubtotalLevel = 0
Tables("司法统计_Table1").DataSource = b.BuildDataSource

With Tables("司法统计_Table1")
    .MergeMode = MergeModeEnum.Standard '标准合并模式
    .MergeCols.Clear() '清除原来的合并列
    .MergeCols.Add("案号") '加入要合并的列
    '.MergeSort = "被告"  '设置合并模式下的排序方式
    .AllowMerge = True '启用合并模式
End With
Tables("司法统计_Table1").AutoSizeCols()  '自动列宽


 回到顶部