主頁(yè) > 知識(shí)庫(kù) > 記錄集內(nèi)隨機(jī)取記錄的代碼

記錄集內(nèi)隨機(jī)取記錄的代碼
熱門(mén)標(biāo)簽：鎮(zhèn)江云外呼系統(tǒng)怎么樣 vue 地圖標(biāo)注拖拽 自動(dòng)外呼系統(tǒng)怎么防止封卡 電話(huà)機(jī)器人銷(xiāo)售公司嗎 成都銷(xiāo)售外呼系統(tǒng)公司 客服外呼系統(tǒng)呼叫中心 保定電銷(xiāo)機(jī)器人軟件 土地證宗地圖標(biāo)注符號(hào) 電話(huà)機(jī)器人案例
%
' Moving to random record - Steven Jones' Extension
If Not(記錄集名稱(chēng).bof and 記錄集名稱(chēng).eof) Then
' reset the cursor to the beginning
If (記錄集名稱(chēng).CursorType > 0) Then
記錄集名稱(chēng).MoveFirst
Else
記錄集名稱(chēng).Requery
End If

記錄集名稱(chēng)_totalrn = -1
記錄集名稱(chēng)_totalrn = 記錄集名稱(chēng).RecordCount ' ony works on some recordsets, but much faster
If (記錄集名稱(chēng)_totalrn = -1) Then ' and if it didn't work, we still have to count the records.

' count the total records by iterating through the recordset
記錄集名稱(chēng)_totalrn=0
While (Not 記錄集名稱(chēng).EOF)
記錄集名稱(chēng)_totalrn = 記錄集名稱(chēng)_totalrn + 1
記錄集名稱(chēng).MoveNext
Wend

' reset the cursor to the beginning
If (記錄集名稱(chēng).CursorType > 0) Then
記錄集名稱(chēng).MoveFirst
Else
記錄集名稱(chēng).Requery
End If

End If

' now do final adjustments, and move to the random record
記錄集名稱(chēng)_totalrn = 記錄集名稱(chēng)_totalrn - 1
If 記錄集名稱(chēng)_totalrn > 0 Then
Randomize
記錄集名稱(chēng).Move Int((記錄集名稱(chēng)_totalrn + 1) * Rnd)
End If
End If
' all done; you should always check for an empty recordset before displaying data
%>

標(biāo)簽：天津 麗江 臺(tái)灣 重慶 內(nèi)江 懷化 公主嶺 成都

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《記錄集內(nèi)隨機(jī)取記錄的代碼》，本文關(guān)鍵詞  記錄,集內(nèi),隨機(jī),取,的,代碼,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《記錄集內(nèi)隨機(jī)取記錄的代碼》相關(guān)的同類(lèi)信息！
  • 本頁(yè)收集關(guān)于記錄集內(nèi)隨機(jī)取記錄的代碼的相關(guān)信息資訊供網(wǎng)民參考！

    • 四合一精品企业网站建设

    多一个网站就为企业多增加一条营销渠道

    ¥888元限时抢购

    QQ立即咨询快速购买

    企业400电话

    智能AI客服机器人
    ￥15000

    在线订购

    合计11份范本：公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推薦文章