tyr--------- Private Sub Form_Load() Dim MyValue rs.Open "select id from TabName", cn, adOpenStatic, adLockReadOnly, adCmdText If rs.RecordCount > 0 Then MyValue = Int((rs.RecordCount * Rnd) + 1) rs.AbsolutePosition = MyValue Debug.Print rs("id") '随机取出的 End IfEnd Sub ---------- www.vicmiao.com 努力就有美好时光!
Private Sub Form_Load()
Dim MyValue
rs.Open "select id from TabName", cn, adOpenStatic, adLockReadOnly, adCmdText
If rs.RecordCount > 0 Then
MyValue = Int((rs.RecordCount * Rnd) + 1)
rs.AbsolutePosition = MyValue
Debug.Print rs("id") '随机取出的
End IfEnd Sub
----------
www.vicmiao.com
努力就有美好时光!