Foxtable(狐表)用户栏目专家坐堂 → 升序就无反应


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

主题:升序就无反应

帅哥哟,离线,有人找我吗?
yangwenghd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2707 积分:18062 威望:0 精华:0 注册:2013/4/9 10:41:00
升序就无反应  发帖心情 Post By:2018/7/30 14:56:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据分析系统.table

能不帮忙看看这个案例吗?先点击右边窗口的按钮,然后在升序或者降序分析结果就无响应,是代码有问题还是我的电脑配置不够啊,感谢 感谢 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

表达式列排序是比较慢的,特别是你有统计计算的时候,就更慢了,卡死是正常情况。

 

如果想排序,请改成数据列,用代码统计和赋值。


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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18062 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2018/7/30 18:29:00 [只看该作者]

是列的属性吗?没有看到数据列选项呢,用代码统计和赋值怎么做啊,感谢 感谢 

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用yangwenghd在2018/7/30 18:29:00的发言:
是列的属性吗?没有看到数据列选项呢,用代码统计和赋值怎么做啊,感谢 感谢 

 

1、转换成数据列 http://www.foxtable.com/webhelp/scr/2494.htm

 

2、循环每一行,计算和赋值(你学了这么久,请自行编写代码,如果无法运行再贴出)


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


加好友 发短信
等级:二尾狐 帖子:574 积分:4258 威望:0 精华:0 注册:2015/5/13 8:32:00
  发帖心情 Post By:2018/7/30 19:49:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据分析系统.table

原理其实,就是在排序前,把 表达式 清空,排序后,再把表达式 放回去!
[此贴子已经被作者于2018/7/30 19:51:17编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18062 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2018/7/31 11:18:00 [只看该作者]

感谢 感谢 对头,我想到了一个办法?就是单独创建一列,然后只有小数3位,(其实3为以后的小数是没有用的)
我可以这个样吗?分析结果转换到 另外一行,然后只获取小数点后两位,感谢 感谢 
For Each R As Row In Tables("数据分析").Rows
    r("测试")=r(("分析结果"),"#,###")
Next '列的编号相等.

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

回复6楼,不可以,你执行代码的时候你就知道了,获取r("分析结果")的数据很慢的。基本要1秒才能读取一行数据(每获取一次应该重新计算表达式一次)

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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18062 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2018/7/31 12:01:00 [只看该作者]

那我这里可以结果只等于小数点三位吗?
Dim b As WinForm.Button = e.Form.Controls("Button4")
If b.Text = "分析结果"
    DataTables("数据分析").DataCols("分析结果").Expression = "[数据_点击率] + [等换比值_人气] + [等换比值_指数] - [等换比值_竞争]"
    b.Text = "停止分析"
Else
    DataTables("数据分析").DataCols("分析结果").Expression = ""
    b.Text = "分析结果"
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18062 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2018/7/31 16:55:00 [只看该作者]

感谢 感谢 我设置了,只是复制出来来说很多位呢,可以结果就只有3为吗 感谢 感谢 

 回到顶部
总数 24 1 2 3 下一页