- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28744)
-- 发布时间：2013/2/17 9:45:00
-- [求助]
如何统计子表中某一列的某项内容的个数,如"人员增减"表的"进入渠道"列中有转任/调任/交流,假如要在信息表中按审签序号统计转任的数量,如何进行,见附件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2013/2/17 10:14:00
--
很简单，你编写一下代码。代码写在一个按钮或者一个事件里去。
http://www.foxtable.com/help/topics/0393.htm
-- 发布时间：2013/2/17 10:43:00
--
Dim Total As Long
Total = DataTables("人员增减").Compute("Sum(进入渠道)", "进入渠道 = \'转任\'")
Output.Show(Total)
这段代码行吗,放在哪个事件中,请指教
-- 发布时间：2013/2/17 11:47:00
--
以下是引用hrw68529在2013-2-17 10:43:00的发言：
这段代码行吗,放在哪个事件中,请指教
你希望在什么时候统计，就在对应的事件编写代码。或者你可以弄一个窗口，弄一个按钮。
http://www.foxtable.com/help/topics/0698.htm
-- 发布时间：2013/2/17 12:33:00
--
以上代码不运行,能帮我弄一下吗,谢谢
-- 发布时间：2013/2/17 14:22:00
--
以下是引用hrw68529在2013-2-17 12:33:00的发言：
以上代码不运行,能帮我弄一下吗,谢谢
以上代码不运行,能帮我弄一下吗,谢谢
比如是这样
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.table |
-- 发布时间：2013/2/17 14:47:00
--
首先谢谢你,但我要的是，能在信息表的转任、调任、交流中自动生成,可有办法,再次谢谢你的热心
-- 发布时间：2013/2/17 15:17:00
--
这样看看。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.table |
-- 发布时间：2013/2/17 16:24:00
--
非常感谢,成功了,但是没有数的行,显示0,能不能不显示0,谢谢
-- 发布时间：2013/2/17 16:28:00
--
替换掉原本的代码。
Select Case e.DataCol.Name
Case "单位代码"
Dim total As Long
Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 1 And 单位代码 = " & e.DataRow("单位代码"))
e.DataRow("转任") = Iif(Total = 0, Nothing, Total)
Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 2 And 单位代码 = " & e.DataRow("单位代码"))
e.DataRow("调任") = iif(Total = 0, Nothing, Total)
End Select