从内部数据源变为外部数据源后代码出现问题，说是"#"附近语法错误，麻烦帮忙看下，有两个
第一个
Dim b As New SQLGroupTableBuilder("日统计_车间统计", "检测项目")
b.C （指定数据源代码，发出来后就不见了）
b.Groups.Adddef("首次检测_检测时间", DateGroupEnum.Day, "日")
b.Groups.AddDef("车间")
b.Totals.AddDef("首次检测_检测量")
b.Totals.AddDef("首次检测_返修量")
b.VerticalTotal = True
Dim rq As Date
With RibbonTabs("自定义1")("无损日统计表")
rq = .Items("rq1").value
End With
b.Filter = "[首次检测_检测时间] = #" & rq & "#"
b.Build()
MainTable = Tables("日统计_车间统计")
With DataTables("日统计_车间统计").DataCols '用表达式列计算库存数据
.Add("合格率",Gettype(Double), "1 - 首次检测_返修量 / 首次检测_检测量")
End With
DataTables("日统计_车间统计").datacols("合格率").SetFormat("00.0%")
MainTable = Tables("日统计_车间统计")
第二个
Dim g As New SQLGroupTableBuilder("车间子项统计", "检测项目")
g.C （指定数据源代码，发出来后就不见了）
g.Groups.AddDef("首次检测_检测时间", DateGroupEnum.Day, "日")
g.Groups.AddDef("车间")
g.Groups.AddDef("工程名称")
g.Groups.AddDef("子项名称")
g.Totals.AddDef("首次检测_检测量")
g.Totals.AddDef("首次检测_返修量")
g.VerticalTotal = True
Dim rq As Date
With RibbonTabs("自定义1")("无损日统计表")
rq = .Items("rq2").value
End With
g.Filter = "[首次检测_检测时间] = #" & rq & "#"
g.Build()
MainTable = Tables("车间子项统计")
With DataTables("车间子项统计").DataCols '用表达式列计算库存数据
.Add("合格率",Gettype(Double), "1 - 首次检测_返修量 / 首次检测_检测量")
End With
DataTables("车间子项统计").datacols("合格率").SetFormat("00.0%")
MainTable = Tables("车间子项统计")
[此贴子已经被作者于2017/2/10 15:50:17编辑过]
加好友 
发短信
Post By：2017/2/10 15:45:00 [显示全部帖子]
