- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]组合复选框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108855)
-- 发布时间：2017/10/30 22:53:00
-- [求助]组合复选框
此主题相关图片如下：捕获5.png
检测项目是组合复选框，因为固定的项目收费室固定的，所以想选定检测项目的同时费用自动显示出来，当然一些项目是组合的，多选的话费用就是几个项目的累计，这个代码一个怎么写啊？，请老师帮助，非常谢谢！
-- 发布时间：2017/10/31 8:55:00
--
或者用下拉窗口同时给表的两个对应列赋值呢
-- 发布时间：2017/10/31 9:17:00
--
上传具体项目说明。
-- 发布时间：2017/10/31 11:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.rar |
因为检测项目较多，输入太麻烦，而且费用是固定的，所以想输入的时候直接选检测项目同时就把费用输进去，不知道复选组合框能不能实现，要是不行的话就用下拉窗口能不能实现，因为有些检测项目是组合的，所以费用也要累加。
-- 发布时间：2017/10/31 11:27:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
-- 发布时间：2017/10/31 15:06:00
--
谢谢老师，这个问题解决了，但有有新问题了，就是还有一个来样数量文本框，这样检测费用还得乘以数量，这样还应该怎么写呢？
-- 发布时间：2017/10/31 16:35:00
--
If e.DataCol.name = "检测项目"
If e.DataRow.IsNull("检测项目")
e.DataRow("检测费用") = Nothing
Else
e.DataRow("检测费用") = DataTables("表B").Compute("sum(检测费用)", "检测项目 in (\'" & e.DataRow("检测项目").replace(",", "\',\'") & "\')")
If Forms("窗口1").Opened Then
Dim sl As Double = val(Forms("窗口1").Controls("TextBox1").text)
If sl > 0 Then e.DataRow("检测费用") = e.DataRow("检测费用") * sl
End If
End If
End If
-- 发布时间：2017/10/31 17:44:00
--
你的数量值有多少个？合计后计算还是分别计算？例子发上来。
-- 发布时间：2017/10/31 18:02:00
--
刚才试了一下有点蓝老师的代码，完全满足要求。还有个问题就是我们的检测项目很多，复选框里内容太多不太好找，但是我们试按部门检测的，能不能让复选框里的内容只显示这个部门可以检测的项目呢？切换部门的时候在换到新部门的项目。
此主题相关图片如下：捕获.png
-- 发布时间：2017/10/31 19:05:00
--
参考
http://www.foxtable.com/webhelp/scr/1523.htm