Foxtable(狐表)用户栏目专家坐堂 → 分组统计


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

主题:分组统计

帅哥,在线噢!
有点蓝
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/24 8:32:00 [只看该作者]

请把实例发上来测试

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2020/3/24 9:07:00 [只看该作者]

麻烦您测试一下 这是其中统计的一张表,我的程序是三张表,特别慢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:统计测试.rar


[此贴子已经被作者于2020/3/24 9:09:25编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/24 9:26:00 [只看该作者]

上面实例测试很快,执行不到1秒。请上传“慢”的实例测试

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2020/3/24 10:19:00 [只看该作者]

蓝老师这还不慢呀,我的执行完至少得5秒
[此贴子已经被作者于2020/3/24 10:19:47编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/24 10:41:00 [只看该作者]

执行不到1秒

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2020/4/5 17:16:00 [只看该作者]

汇总后为什么汇总行多出了好几列呢?

图片点击可在新窗口打开查看此主题相关图片如下:截图09.jpg
图片点击可在新窗口打开查看



 回到顶部
帅哥,在线噢!
有点蓝
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/5 22:24:00 [只看该作者]

上传实例说明

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2020/4/5 22:36:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹 (3).rar


 回到顶部
帅哥,在线噢!
有点蓝
  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/6 9:14:00 [只看该作者]

    If sender.Controls.ContainsKey("Myhuizong") = False Then  '不存在汇总控件,则添加
        Dim huizong As new C1.Win.C1FlexGrid.C1FlexGrid
        With huizong
            .name = "Myhuizong"
            .BorderStyle = C1.Win.C1FlexGrid.Util.BaseControls.BorderStyleEnum.None '无边框
            .Cols.Count = sender.Cols.Count
            .rows.count = 2
            .Rows(0).Height = 0    '隐藏标题行
            .Enabled = False    '不能使用控件
        End With
        sender.Controls.add(huizong)   '加入控件
    Else
        Dim huizong As C1.Win.C1FlexGrid.C1FlexGrid = sender.Controls("Myhuizong")
        huizong.Cols.Count = sender.Cols.Count
    End If

 回到顶部
总数 29 上一页 1 2 3