- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 内部表与外部表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128449)
-- 发布时间：2018/12/7 11:45:00
-- 内部表与外部表
现在同一个系统内 同时有内部表和外部表 没有全部转为外部表
然后我之前定义的某些内部表功能失效了 是否是因为我把变成外部表的原因？
那我要重新让那些功能继续工作 是不是又要去Access里面敲代码？
-- 发布时间：2018/12/7 12:20:00
--
1、你说的【功能失效】指什么？请具体一点说明问题？
2、尽量有截图、或者代码或者实例说明一下。
-- 发布时间：2018/12/7 14:43:00
--
此主题相关图片如下：qq图片20181207143708.png
设置了很多个分类进行统计的按钮 都是统计“检测报告”这个表里的数据 但之前检测报告这个表是内部表 后面我把它转为外部表之前可以运行的功能就不行了 显示错误如图
其中一个按钮的代码为：
此主题相关图片如下：qq图片20181207143658.png
此主题相关图片如下：qq图片20181207143658.pngDim b As New SQLGroupTableBuilder("统计表1","检测报告")
Dim d1 As Date = Date.Today
Dim year As Integer = d1.Year
Dim month As Integer = d1.Month
b.Groups.AddDef("检测日期",DateGroupEnum.Year,"年份")
b.Totals.AddExp("样品数量","实验室编号","",AggregateEnum.Count) \'统计人数
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)")
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(nm & "_阳性率").SetFormat("0.00%")
DataTables("统计表1").DataCols(nm & "_可疑率").SetFormat("0.00%")
Next
MainTable = Tables("统计表1")
MainTable = Tables("统计表1")
Forms("返回").OpenTo("统计表1")
MainTable.Focus()
-- 发布时间：2018/12/7 14:45:00
--
Dim b As New SQLGroupTableBuilder("统计表1","检测报告")
b.ConnectionName = "数据源名"
http://www.foxtable.com/webhelp/scr/3229.htm
-- 发布时间：2018/12/7 17:35:00
--
好的 谢谢老师 问题已经解决