专家坐堂-[求助]数据源从内部数据源转为外部数据源后代码问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [求助]数据源从内部数据源转为外部数据源后代码问题

从内部数据源变为外部数据源后代码出现问题，说是"#"附近语法错误，麻烦帮忙看下，有两个

第一个

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编辑过]