- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何正确统计多值结果? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159769)
-- 发布时间：2021/1/7 22:42:00
-- [求助]如何正确统计多值结果?
这是示图例:
此主题相关图片如下：202101072237.png
左侧任务栏统计结果如何才能正确?
这是原本代码:
Dim c As WinForm.TopicPage = fll.Pages("疾病诊断")
c.Links.Clear \'清除之前的link项目
For Each xl As String In DataTables("基本信息").GetComboListString("名称","类别 = \'疾病诊断\'","_Identify").Split("|")
Dim k1 As String = new String (" ",20-xl.Length*2) \'定义k1的空格字符串,长度为10-疾病诊断的长度
c.Links.Add(xl,xl & k1 & "(" & DataTables("病案信息").Compute("count(_identify)","出院诊断 = \'" & xl & "\'") & "人)" )
Next
此主题相关图片如下：0000000.png
[此贴子已经被作者于2021/1/7 22:49:56编辑过]
-- 发布时间：2021/1/7 23:05:00
--
c.Links.Add(xl,xl & k1 & "(" & DataTables("病案信息").Compute("count(_identify)","\',\'+出院诊断+\',\' like \'%," & xl & ",%\'") & "人)" )
-- 发布时间：2021/1/7 23:41:00
--
感谢!但同时出现一个新问题:任务栏如何筛选的问题:
这是我任务栏本来的代码:
Tables("病案信息").Filter = e.Page.Name & "=\'" & e.Link.Name & "\'"
如此一来,上面的任务栏内控件单击能筛选,可是这个出院诊断任务栏的控件就没有用了,应该如何改善呢?
-- 发布时间：2021/1/8 8:23:00
--
msgbox(e.Page.Name & "=\'" & e.Link.Name & "\'")显示什么内容
-- 发布时间：2021/1/8 23:03:00
--
这是显示结果:
此主题相关图片如下：捕获0108.png
-- 发布时间：2021/1/9 9:15:00
--
删除项目里的bin目录，重启项目测试
-- 发布时间：2021/1/9 13:02:00
--
测试结果是一样的.但是统计数量是正确的了;点击控件还是筛选不出相应数据.
此主题相关图片如下：捕获1212121.png
-- 发布时间：2021/1/9 14:20:00
--
请上传实例说明
-- 发布时间：2021/1/10 23:29:00
--
这是实例:
-- 发布时间：2021/1/11 8:35:00
--
If e.Page.Name = "出院诊断"
Tables("病案信息").Filter = e.Page.Name & " like \'%" & e.Link.Name & "%\'"
Else
Tables("病案信息").Filter = e.Page.Name & "=\'" & e.Link.Name & "\'"
End If