问题:怎样随机抽取按班学生名单?
要求:1、以“班”为单位；
       2、随机抽取；
       3、人数以输入数为标准。如输入“10”，则在各班随机抽取10名学生名单。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:随机抽取学生名单.table

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

以下是引用狐狸爸爸在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()