老师您好，我按照说明文件想要在数据库里提取数据，但是我还有一个分类列，分类列里有一项“知识”内容，我想要随机提取“知识”分类里面的10条记录，如何实现？？
Dim cnt As Integer = DataTables("知识技能").DataRows.Count
Dim nds As Integer = 10 '要抽取的记录数
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
nds = nds - 1
End If
Loop While nds > 0
Tables("知识技能").Filter = "[选择] = True"
Tables("知识技能").ResumeRedraw()
加好友 
发短信
Post By：2020/11/10 14:14:00 [只看该作者]
