以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  关于随机问题。请帮助!  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=19981)

--  作者:redsun1888
--  发布时间:2010/9/20 0:44:00
--  关于随机问题。请帮助!
文件中通过自定义按钮,可从第一列中的内容随机附值到第二列。那么如何使序列中的1234行的内容,通过自定义按钮后,在第二列中的保持不变,而其它变行可随机附值?
比如说:通过自定义按钮后,在第二列中A还是A。egd文件下载
--  作者:wjq1072
--  发布时间:2010/9/20 8:04:00
--  
AddCol(Grid,"p",0, False ) And EvalFor(Grid,"p","Rand(1)") And SortCol(Grid,"p",1) And SetVariable("%k%",ListFor(Grid,"第一列")) And SortCol(Grid,"序列",1) And EvalFor(Grid,"第二列","Split([%k%],""|"",Row)") And DeleteCol(Grid,"p")
--  作者:redsun1888
--  发布时间:2010/9/20 10:21:00
--  
好象没有达到经过在第一列中指定某行,在第二列中保持不变的效果。
--  作者:wjq1072
--  发布时间:2010/9/20 11:13:00
--  
搞不懂
--  作者:lyang70
--  发布时间:2010/9/20 12:49:00
--  
问题:那么如何使序列中的1234行的内容,通过自定义按钮后,在第二列中的保持不变,而其它变行可随机附值?

——不知1234行的值是始终固定的还是打开表第一次执行按钮后直至退出该表期间是固定的?楼主的问题感觉不够严谨...


--  作者:wjq1072
--  发布时间:2010/9/20 13:49:00
--  
CreateGrid(".","a",0,"b",0,"c",0,"d",0) And ClearGrid(".") And AddCol(Grid,"y",3, False ) And EvalFor(Grid,"y","0") And EvalFor(Grid,"y","-1",rowsel,rowsel) And CopyRows(".","y","=",-1,1) And DelFor(Grid,"y","=",-1) And DelRow(".",1) And AddCol(Grid,"p",0, False ) And EvalFor(Grid,"p","Rand(1)") And SortCol(Grid,"p",1) And SetVariable("%k%",ListFor(Grid,"第二列")) And SortCol(Grid,"序列",1) And EvalFor(Grid,"第二列","Split([%k%],""|"",Row)") And AppendRows(".",1) And SortCol(Grid,"序列",1) And DeleteCol(Grid,"p") And RemoveGrid(".")
--  作者:redsun1888
--  发布时间:2010/9/20 15:31:00
--  
[这个贴子最后由redsun1888在 2010/09/20 03:54pm 第 1 次编辑]

非常感谢!另外还想再添加一项功能,就是点击一下“自定义”后,在第二列一直循环、不停止地随机生成新的值,直到按下另外一个“停止”的健后即刻停止生成。就与抽奖一样。
请各位高手帮助我。