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


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

主题：升序就无反应
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/31 17:03:00 [只看该作者]

这个格式设置仅仅是影响新录入的数据。旧数据自己改为3位然后保存即可

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/31 18:25: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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/31 20:27:00 [只看该作者]

DataTables("数据分析").DataCols("分析结果").Expression = "Convert(([数据_点击率] + [等换比值_人气] + [等换比值_指数] - [等换比值_竞争])* 1000, 'System.Int64') / 1000"
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

ClipBoard.GetText(Tables("数据分析").Current("结果转换"))
ClipBoard.SetText(Tables("数据分析").Current("分析结果"))

为什么复制粘贴列不对呢，感谢 感谢 
[此贴子已经被作者于2018/7/31 23:47:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用yangwenghd在2018/7/31 23:29:00的发言：
ClipBoard.GetText(Tables("数据分析").Current("结果转换"))
ClipBoard.SetText(Tables("数据分析").Current("分析结果"))

为什么复制粘贴列不对呢，感谢 感谢 
[此贴子已经被作者于2018/7/31 23:47:10编辑过]

 

你改成13楼的公式了没？

 

DataTables("数据分析").DataCols("分析结果").Expression = "Convert(([数据_点击率] + [等换比值_人气] + [等换比值_指数] - [等换比值_竞争])* 1000, 'System.Int64') / 1000"

 

http://www.foxtable.com/webhelp/scr/0108.htm

 

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/8/1 9:15:00 [只看该作者]

谢谢关心，感谢 感谢 ，已经写进去了，我就是按照你说的方法，我先得出结果，然后复制，然后在取消然后再粘贴，然后在排序，这样就不会出现之前的问题了，就是复制列和粘贴列不知道为什么不对。感谢 感谢

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


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

不论是直接赋值还是复制粘贴，都是很慢的（都会重新计算的）。所以不建议你直接写表达式处理啊。

 

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

 

2、循环每一行，计算和赋值（你学了这么久，请自行编写代码，如果无法运行再贴出）
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/8/1 18:04:00 [只看该作者]

好的 ，我研究一会儿，感谢 感谢 

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


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

我试过，计算后先复制，（这个阶段不会有什么影响），然后我在取消运算，然后在粘贴 在排序，这样就不会卡死了，感谢 感谢                   

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


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

参考代码

 

Dim tname As String = "数据分析"
DataTables(tname).DataCols("等换比值_人气").Expression = "[数据_搜索人气] / Sum([数据_搜索人气])"
Dim t As Table = Tables(tname)
Dim idx = t.Cols("等换比值_人气").index
t.Select(0, idx, t.Rows.count-1, idx)
Tables(tname).EditCopy
DataTables(tname).DataCols("等换比值_人气").Expression = ""

output.show(ClipBoard.GetText)

 

http://www.foxtable.com/webhelp/scr/2214.htm

 
 回到顶部
总数 24 上一页 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.03906 秒, 4 次数据查询