此主题相关图片如下：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)")
Next
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%")
Next
MainTable = Tables("统计表1")
MainTable = Tables("统计表1")
Forms("返回").OpenTo("统计表1")
MainTable.Focus()
加好友 
发短信
Post By：2018/12/17 17:56:00 [只看该作者]
