-- [求助]
老师您好,我按照说明文件想要在数据库里提取数据,但是我还有一个分类列,分类列里有一项“知识”内容,我想要随机提取“知识”分类里面的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()