1、不就是简单的数学计算？加上表格有100行，取9%，就是100 * 0.09，取整参考：
http://www.foxtable.com/webhelp/topics/0272.htm2、参考帮助里的“选择”逻辑列的用法
3、弹出显示不就行了，比如
Dim cnt As Integer = DataTables("订单").DataRows.Count
Dim nds As Integer = 100 '要抽取的记录数
Tables("订单").StopRedraw()
DataTables("订单").ReplaceFor("选择",False)
Do
Dim idx As Integer = rand.Next(0,cnt)
Dim dr As DataRow = DataTables("订单").DataRows(idx)
If dr("选择") = False Then
dr("选择") = True
msgbox(dr("姓名"))
nds = nds - 1
End If
Loop While nds > 0
Tables("订单").Filter = "[选择] = True"
Tables("订单").ResumeRedraw()
加好友 
发短信
Post By：2022/7/13 13:17:00 [显示全部帖子]
