Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何正确统计多值结果?


  共有2258人关注过本帖树形打印复制链接

主题：[求助]如何正确统计多值结果?
帅哥哟，离线，有人找我吗？
老鼠
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00 		[求助]如何正确统计多值结果?  发帖心情 Post By：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编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/7 23:05:00 [只看该作者]

c.Links.Add(xl,xl & k1  & "(" & DataTables("病案信息").Compute("count(_identify)","','+出院诊断+',' like '%," & xl & ",%'") & "人)"  )

 回到顶部
帅哥哟，离线，有人找我吗？
老鼠
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00 		  发帖心情 Post By：2021/1/7 23:41:00 [只看该作者]

感谢!但同时出现一个新问题:任务栏如何筛选的问题:

这是我任务栏本来的代码:
Tables("病案信息").Filter = e.Page.Name & "='" & e.Link.Name & "'"

如此一来,上面的任务栏内控件单击能筛选,可是这个出院诊断任务栏的控件就没有用了,应该如何改善呢?
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/8 8:23:00 [只看该作者]

msgbox(e.Page.Name & "='" & e.Link.Name & "'")显示什么内容

 回到顶部
帅哥哟，离线，有人找我吗？
老鼠
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00 		  发帖心情 Post By：2021/1/8 23:03:00 [只看该作者]

这是显示结果:

图片点击可在新窗口打开查看此主题相关图片如下：捕获0108.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/9 9:15:00 [只看该作者]

删除项目里的bin目录，重启项目测试

 回到顶部
帅哥哟，离线，有人找我吗？
老鼠
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00 		  发帖心情 Post By：2021/1/9 13:02:00 [只看该作者]

测试结果是一样的.但是统计数量是正确的了;点击控件还是筛选不出相应数据.

图片点击可在新窗口打开查看此主题相关图片如下：捕获1212121.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/9 14:20:00 [只看该作者]

请上传实例说明

 回到顶部
帅哥哟，离线，有人找我吗？
老鼠
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00 		  发帖心情 Post By：2021/1/10 23:29:00 [只看该作者]

这是实例:
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:医院病案管理系统.table
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4650 积分：33912 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询