Foxtable(狐表)用户栏目专家坐堂 → 随机行的问题。


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

主题:随机行的问题。

美女呀,离线,留言给我吧!
qianqian1530
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:5567 威望:0 精华:0 注册:2013/12/4 8:56:00
随机行的问题。  发帖心情 Post By:2014/6/8 10:46:00 [只看该作者]

怎么才能 随机 显示 当前表的 表的 10行 内容呢?


   

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


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

 呃,随机显示?

 

 你先取得10个随机数。 Rand.Next(Tables("表A").Rows.Count-1) http://www.foxtable.com/help/topics/0349.htm

 

 然后设置filter = "_Identify in (1, 3, 5, 9, 10)"

 


 回到顶部
美女呀,离线,留言给我吧!
qianqian1530
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:5567 威望:0 精华:0 注册:2013/12/4 8:56:00
回复:(有点甜) 呃,随机显示? &nbs...  发帖心情 Post By:2014/6/8 11:15:00 [只看该作者]

    For  i = 1 To 10
        
        Sum+ =  "," & Rand.Next(Tables("Makeshop").rows.count) 

    Next

    Tables("Makeshop").filter = "_Identify in ('Sum')"


这样也不对啊..  那里错了呢..

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


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

Dim count As Integer = Tables("Makeshop").rows.count
Dim idxs As String = ""
For i = 0 To count - 1
    If i =  10 Then
        Exit For
    End If
    idxs &= Rand.Next(count) & ","
Next


Tables("Makeshop").filter = "_Identify in (" & idxs.TrimEnd(",") & ")"


 回到顶部
美女呀,离线,留言给我吧!
qianqian1530
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:5567 威望:0 精华:0 注册:2013/12/4 8:56:00
回复:(有点甜)Dim count As Integer = Tables("Mak...  发帖心情 Post By:2014/6/8 12:48:00 [只看该作者]

甜甜, 你这个代码, 为什么 不固定呢?   有的时候会是 10个,偶尔 7,8 的,  不能一直固定10个么?

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


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

以下是引用qianqian1530在2014-6-8 12:48:00的发言:
甜甜, 你这个代码, 为什么 不固定呢?   有的时候会是 10个,偶尔 7,8 的,  不能一直固定10个么?

 

当你的行数少于10的时候,怎么有10行?

[此贴子已经被作者于2014-6-8 14:34:25编辑过]

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


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

 

还有一个问题是,随机数可能重复,还需要判断一下的。

 

Dim count As Integer = Tables("Makeshop").rows.count
Dim idxs As String = ""
Dim rc As Integer = 0
For i = 0 To count - 1
    Dim temp As Integer = Rand.Next(count)
    If ("," & idxs).Contains("," & temp & ",") = False Then
        idxs &= temp & ","
        rc += 1
       
        If rc =  10 Then
            Exit For
        End If
    End If
Next


Tables("Makeshop").filter = "_Identify in (" & idxs.TrimEnd(",") & ")"


 回到顶部