请教大家一个关于随机的小问题。
cdsun 2004-11-21 01:47:55 我先把我要的结果给大家阐述一下
1、我先有一个sql语句
2、打开这个语句
3、取得记录机
4、判断是否有记录
5、在符合条件的id里面进行随机
我现在的问题是这样。
5、在符合条件的id里面进行随机
这里
比如我要查询一个是性别是男的学生的列表
假如满足它的条件的有10个
那么它的ID是这样
有可能是1、2、6、7、9、45、54、21、78、32
然后我想在这样的范围内进行我指定的随机次数之后(得到的不要重复)在进行用,连接起来
就是我要的目的了
不知道大家明白我的意思了没
明白了得大家给我点意见
我现在的代码是]
sql=.............(很长,我就省略了)
Set mrc = ExecuteSQL(txtSQL, MsgText)
Count1 = mrc.RecordCount
If Count1 = 0 Then
MsgBox "没有查找到符合条件的公司记录!", vbInformation, "提示..."
Call Command2_Click
Else
Do While Not mrc.EOF
For kk = 0 To Combono.Text - 1
Randomize
If i = Int((mrc.RecordCount * Rnd) + 1) Then
'ida = mrc.Fields("id")
ida = mrc.Fields("id") & "," & ida
'Exit Do
End If
Next
mrc.MoveNext
i = i + 1
Loop
end if
谁能帮我想个办法达到我要的功能
谢谢了