Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
hrw68529
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00 		[求助]  发帖心情 Post By：2013/2/17 9:45:00 [只看该作者]

如何统计子表中某一列的某项内容的个数,如"人员增减"表的"进入渠道"列中有转任/调任/交流,假如要在信息表中按审签序号统计转任的数量,如何进行,见附件
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2013/2/17 10:14:00 [只看该作者]

 很简单，你编写一下代码。代码写在一个按钮或者一个事件里去。

http://www.foxtable.com/help/topics/0393.htm
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2013/2/17 10:43:00 [只看该作者]

Dim Total As Long
Total = DataTables("人员增减").Compute("Sum(进入渠道)", "进入渠道 = '转任'")
Output.Show(Total)
这段代码行吗,放在哪个事件中,请指教
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2013/2/17 11:47:00 [只看该作者]

以下是引用hrw68529在2013-2-17 10:43:00的发言：

这段代码行吗,放在哪个事件中,请指教


你希望在什么时候统计，就在对应的事件编写代码。或者你可以弄一个窗口，弄一个按钮。

http://www.foxtable.com/help/topics/0698.htm
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2013/2/17 12:33:00 [只看该作者]

以上代码不运行,能帮我弄一下吗,谢谢

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


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2013/2/17 14:22:00 [只看该作者]

以下是引用hrw68529在2013-2-17 12:33:00的发言：
以上代码不运行,能帮我弄一下吗,谢谢


比如是这样

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2013/2/17 14:47:00 [只看该作者]

首先谢谢你,但我要的是，能在信息表的转任、调任、交流中自动生成,可有办法,再次谢谢你的热心
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2013/2/17 15:17:00 [只看该作者]

 这样看看。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2013/2/17 16:24:00 [只看该作者]

非常感谢,成功了,但是没有数的行,显示0,能不能不显示0,谢谢

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


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