专家坐堂-记录数统计提示错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- 记录数统计提示错误

图片点击可在新窗口打开查看

此主题相关图片如下：13.png

请问一下甜老师黄色突出代码显示错误我应该怎么改？想呈现的效果如图二

这里的样品个数其实就是某一列有数据或有字符的记录数，没有的记为零。

但是检测项目名下的不同疫病的检测数量是不同的
图片点击可在新窗口打开查看

此主题相关图片如下：12.png

Dim b As New SQLGroupTableBuilder("统计表1","检测报告")

b.C \'使用外部表,一定要设置数据源名称

b.Groups.AddDef("样品所在地_国家")

Dim nms() As String = {"检测项目_蓝耳PRRS_判定","检测项目_猪瘟CSFV_判定","检测项目_猪伪狂犬gB_判定","检测项目_猪伪狂犬gE_判定","检测项目_猪圆环病毒_判定"}

For Each nm As String In nms \'利用表达式统计及格人数和优秀人数

b.Totals.Addexp(nm & "_阳性", "iif(" & nm & " = \'P\', 1, 0)")

b.Totals.Addexp(nm & "_可疑", "iif(" & nm & " = \'S\', 1, 0)")

b.Totals.Addexp(nm & "_阴性", "iif(" & nm & " = \'N\', 1, 0)")

b.Totals.Addexp(nm & "_样品个数", "iif(" & nm & " = \'N\'and \'P\', 1, 0)")

b.VerticalTotal = True

b.Build()

For Each nm As String In nms \'对生成的统计表增加表达式列,计算及格率和优秀率

DataTables("统计表1").DataCols.Add(nm & "_阳性率",Gettype(Double), nm & "_阳性/_样品个数" )

Tables("统计表1").Cols(nm & "_阳性率").Move(Tables("统计表1").Cols(nm & "_阳性").Index + 1)

DataTables("统计表1").DataCols.Add(nm & "_可疑率",Gettype(Double), nm & "_可疑/_样品个数" )

Tables("统计表1").Cols(nm & "_可疑率").Move(Tables("统计表1").Cols(nm & "_可疑").Index + 1)

DataTables("统计表1").DataCols.Add(nm & "_阴性率",Gettype(Double), nm & "_阴性/_样品个数" )

Tables("统计表1").Cols(nm & "_阴性率").Move(Tables("统计表1").Cols(nm & "_阴性").Index + 1)

DataTables("统计表1").DataCols(nm & "_阳性率").SetFormat("0.00%")

DataTables("统计表1").DataCols(nm & "_可疑率").SetFormat("0.00%")

DataTables("统计表1").DataCols(nm & "_阴性率").SetFormat("0.00%")

MainTable = Tables("统计表1")

Forms("返回").OpenTo("统计表1")

MainTable.Focus()