[求助]怎样随机按"班"抽取学生名单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

他爸操刀，我等学习。

不会啊，看走眼了吧？

以下是引用sjjlcj在2008-9-2 20:20:00的发言：
试了一下抽取出来的都是9班？

你要切换到“抽样”表中查看。

以下是引用狐狸爸爸在2008-9-2 17:09:00的发言：

下载信息 [文件大小：35.6 KB 下载次数：14]
点击浏览该文件:管理项目5_0902.zip

有错误，好象应该这样。

Dim bjs As List(Of String) = DataTables("表A").GetUniqueValues("","班级")
Dim cnt As Integer = e.Form.Controls("Number").Value
DataTables("表A").StopRedraw()
DataTables("表A").DataCols.Add("随机数",GetType(Integer))
For Each dr As Datarow In DataTables("表A").DataRows
    dr("随机数") = Rand.Next()
Next
Tables("抽样").DataTable.DataRows.Clear()
Tables("表A").Sort = "随机数"
For Each bj As String In bjs
    Tables("表A").Filter = "班级 = '" & bj & "'"
    For i As integer = 0 To Math.Min(cnt,Tables("表A").Rows.Count)-1
        dim r As Row = Tables("抽样").AddNew()
        r("班级") = Tables("表A").Rows(i)("班级")
        r("姓名") = Tables("表A").Rows(i)("姓名")
    Next
Next
DataTables("表A").DataCols.Delete("随机数")
DataTables("表A").ResumeRedraw()

[此贴子已经被作者于2008-9-2 21:24:41编辑过]

以下是引用程兴刚在2008-9-3 7:18:00的发言：
czy版主的附件好像抽取出来每组多一人！

这样呢？

Dim bjs As List(Of String) = DataTables("表A").GetUniqueValues("","班级")
Dim cnt As Integer = e.Form.Controls("Number").Value-1
'DataTables("表A").StopRedraw()
DataTables("表A").DataCols.Add("随机数",GetType(Integer))
For Each dr As Datarow In DataTables("表A").DataRows
    dr("随机数") = Rand.Next()
Next
Tables("抽样").DataTable.DataRows.Clear()
Tables("表A").Sort = "随机数"
For Each bj As String In bjs
    Tables("表A").Filter = "班级 = '" & bj & "'"
    For i As integer = 0 To Math.Min(cnt,Tables("表A").Rows.Count)
        dim r As Row = Tables("抽样").AddNew()
        r("班级") = Tables("表A").Rows(i)("班级")
        r("姓名") = Tables("表A").Rows(i)("姓名")
    Next
Next
DataTables("表A").DataCols.Delete("随机数")
DataTables("表A").ResumeRedraw()
Maintable = Tables("抽样")

程版，你的代码看起来没有问题，但实际是错误的，因为你减1减的不是地方。
可以这么测试一下，假如1班只有8人，而抽取的学生是10名，这时代码应该会报错，删时列不能删除。

主题：[求助]怎样随机按"班"抽取学生名单