以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎么随机抽取数据?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48609)

--  作者:liruiji
--  发布时间:2014/4/2 9:17:00
--  [求助]怎么随机抽取数据?

请问能实现这样的功能吗:我建立了一张表,需要随几在表中针对某一列抽取数据,类计达到1000或者2000后停止抽区,然后把抽到的所有列显示出来


--  作者:Bin
--  发布时间:2014/4/2 9:19:00
--  
可以,没有问题.


你可以上个例子,我帮你完成.

--  作者:liruiji
--  发布时间:2014/4/2 9:24:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目新区.rar

如这个文件里的,需要以套数为统计口径,随即累计2000,然后显示所有抽区出来的行
--  作者:Bin
--  发布时间:2014/4/2 9:24:00
--  
取第二列5个

Dim ilist As new List(of Integer)
Do While ilist.count < 5
    Dim i As Integer = Rand.Next(0,Tables("表A").Rows.count-1)
    If ilist.Contains(i)=False Then
          ilist.Add(i)
    End If
Loop
For Each i As Integer In ilist
  output.show(Tables("表A").Rows(i)("第二列"))
Next

--  作者:liruiji
--  发布时间:2014/4/2 9:29:00
--  

上述代码应该加在哪里呢


--  作者:Bin
--  发布时间:2014/4/2 9:32:00
--  
你是在2000左右  例如1999  2001  还是必须标准2000整呢?
--  作者:Bin
--  发布时间:2014/4/2 9:33:00
--  
4楼代码并不符合你的要求. 你这个是要累加某列的值.
--  作者:liruiji
--  发布时间:2014/4/2 9:33:00
--  
可以1950~2050
--  作者:liruiji
--  发布时间:2014/4/2 9:37:00
--  

对了,斑竹,我想问问FT的开发版要买的要是多少钱,我们单位准备自己做软件开发,下的2012商业版的BUG太多了

 


--  作者:Bin
--  发布时间:2014/4/2 9:44:00
--  
你有些行,单独这一行就3000多了