Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]统计不重复值


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

主题：[求助]统计不重复值
帅哥哟，离线，有人找我吗？
fubblyc
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16181 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2013/9/3 18:19:00 [只看该作者]

我导出代码了，我自己研究下。谢谢大家！！！

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


加好友 发短信
等级：九尾狐 帖子：2355 积分：16181 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2013/9/3 18:52:00 [只看该作者]

还是没有研究出来，图片点击可在新窗口打开查看各位大侠能不能给做个gif，让我对着做。或者步骤。。。图片点击可在新窗口打开查看

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


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/9/3 18:54:00 [只看该作者]

你看看这个按钮的代码，不就知道了吗？

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


加好友 发短信
等级：九尾狐 帖子：2355 积分：16181 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2013/9/3 19:05:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：错误。。.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/9/3 19:13:00 [只看该作者]

 呵呵，楼主，你先把帮助文档啃一啃吧，急不来的。

 在程序里按下F1。
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16181 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2013/9/4 21:42:00 [只看该作者]

谢谢有点甜老师，好好看帮助了，也看视频了。现在有一个问题:这个代码是可以实现统计不重复值了，但是速度太慢了，不知道是什么原因？

For Each dr As DataRow In DataTables("父表").DataRows
    dr("购买品类") = DataTables("子表").GetUniqueValues("姓名 = '" & dr("姓名") & "'","品类").Count
Next

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/9/4 21:56:00 [只看该作者]

Dim cmd As New SQLCommand
cmd.CommandText = "select distinct 姓名, 品类 from {子表}"
Dim dt As DataTable = cmd.ExecuteReader

For Each dr As DataRow In DataTables("父表").DataRows
    dr("购买品类") = dt.Compute("count(品名)", "姓名 = '" & dr("姓名") & "'")
Next
[此贴子已经被作者于2013-9-4 21:57:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/9/4 21:57:00 [只看该作者]

你试试这样，适当修改下。

Dim cmd As New SQLCommand
cmd.CommandText = "select distinct 姓名, 品类 from {子表}"
Dim dt As DataTable = cmd.ExecuteReader

For Each dr As DataRow In DataTables("父表").DataRows
    dr("购买品类") = dt.Compute("count(品名)", "姓名 = '" & dr("姓名") & "'")
Next
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40550 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2013/9/4 22:47:00 [只看该作者]

多事件代码配合统计，子表删除行之后、改变值之后对父表的“购买品类”字段即时进行重算，根本没必要遍历，父表上百万条数据怎么办？这么重复去统计，没有意义，真正需要统计的是子表修改数据、和删除了记录的。
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16181 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2013/9/4 23:12:00 [只看该作者]

谢谢有点甜老师。现在好了，不存在慢的问题。不过有一个问题是，我改变了子表的内容，父表不能自动再进行统计，这是怎么回事呢？要怎么做才能让父表的对应的列自动关联子表的数据源，自动计算呢？

 回到顶部
总数 29 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 4 次数据查询