Dim cnt As Integer = DataTables("参与人员").DataRows.Count
Dim Val As Double = cnt*0.05
Dim Lng As Long = Math.Ceiling(Val)
Tables("参与人员").StopRedraw()
Dim nds As Integer = Lng '要抽取的记录数
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
dr("录取编号") = lng - nds + 1
nds = nds - 1
End If
Loop While nds > 0
Tables("参与人员").Filter = "[录取状态] = True"
Tables("参与人员").Refresh
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.View = ViewMode.Tile '显示模式为平铺
Dim cls() As String = {"姓名","录取编号"} '定义列名
For i As Integer = 0 To cls.Length - 1 '增加列
Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
c.Name = cls(i) '指定列名
Next
For Each dr As DataRow In DataTables("参与人员").DataRows '从数据表中提取数据
If dr("录取状态") = True And dr("录取编号") <> "Null"
End If
Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
Dim lqbh As String = dr("录取编号") '获取此学生的录取编号
For Each cl As String In cls '逐列取值
vr(cl) = dr(cl)
Next
Next
我只想显示录取状态为true并且有录取编号的信息，显示顺序按录取编号从小到大显示出来，请问大佬该如何修改代码。
加好友 
发短信
Post By：2022/7/15 17:35:00 [只看该作者]
