- 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=153569)
-- 发布时间：2020/8/15 9:45:00
-- 如何在窗口中根据时间段查询其它表对应项目名称的总数量
不好意思，又要麻烦老师您帮忙了，这个问题我反复写都写不通：就是在《门诊统计表窗口》中的查询按钮代码：我想根据‘起始收款日期’与‘结束收款日期’时间段查询对应‘医生姓名’对应表中的‘项目名称’列，通过《门诊医生工作量明细》表中查询该时间段该医生开立‘项目名称’的‘开立总数量’。请老师帮忙一下，实在是写不通了才麻烦您的。
项目文件我已发在附件里。
-- 发布时间：2020/8/15 9:50:00
--
附件呢？http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78，重复上传直到成功
-- 发布时间：2020/8/15 9:55:00
--
附件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目.rar |
[此贴子已经被作者于2020/8/15 9:59:27编辑过]
-- 发布时间：2020/8/15 10:09:00
--
没有数据库看不到任何表格。把表格导入为内部表，在重新上传，或者上传数据库文件
-- 发布时间：2020/8/15 10:35:00
--
重发的附件
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.rar |
-- 发布时间：2020/8/15 11:05:00
--
生成查询条件参考：http://www.foxtable.com/webhelp/topics/1058.htm，然后遍历统计表处理
-- 发布时间：2020/8/15 11:14:00
--
老师，您那文件版本高了，能不能直接发一下代码？因为我的加密狗版本不能使用高版本的了，谢谢！
-- 发布时间：2020/8/15 11:24:00
--
购买升级服务
-- 发布时间：2020/8/15 11:36:00
--
求您把这次的代码发一下吧
-- 发布时间：2020/8/15 11:43:00
--
Dim Filter As String
With e.Form.Controls("xinmin")
If .Value IsNot Nothing Then
Filter = "医生姓名 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("qsdate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "收款日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("jsdate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "收款日期 <= #" & .Value & "#"
End If
End With
If Filter >"" Then
Filter = Filter & " And "
End If
For Each r As Row In Tables("门诊统计表").Rows
r("开立总数量") = DataTables("门诊医生工作量明细").Compute("Sum(开立数量)", Filter & " 项目名称=\'" & r("项目名称") & "\'")
Next