Dim qsmc As WinForm.ComboBox = e.Form.Controls("棋赛名称")
Dim di1 As String = qsmc.Value
Dim m As WinForm.TextBox = e.Form.Controls("第几轮")
Dim di2 As Integer = m.Value
Dim bsrq As WinForm.DateTimePicker = e.Form.Controls("rq")
Dim di3 As Date = bsrq.Value
Dim dts As List(of DataRow) = DataTables("基本信息").SQLSelect("[棋赛名称] = '" & di1 & "'And [身份] = '参赛人'")
Dim dr As DataRow = DataTables("比赛积分").SQLfind("[棋赛名称] = '" & di1 & "'")
If DataTables("比赛积分").DataRows.count = 0 OrElse dr Is Nothing Then
di2 = 1
Do While dts.Count > 0
Dim idx As Integer = rand.Next(0,dts.Count-1)
dr = DataTables("比赛积分").AddNew()
dr("桌号") = (dts.Count + 1)\ 2
dr("日期") = di3
dr("棋赛名称") = di1
dr("第几轮比赛") = di2
dr("编号") = dts(idx)("编号")
dr("姓名") = dts(idx)("姓名")
dts.RemoveAt(idx)
Loop
DataTables("比赛积分").Save()
DataTables("对阵表").DataRows.Clear
Dim drs As List(of DataRow) = DataTables("比赛积分").SQLSelect("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = " & di2)
Dim nr As DataRow
Dim i2 As Integer = 1
For i As Integer = 0 To drs.Count - 1 Step 2
If i+1 <= drs.Count - 1
nr = DataTables("对阵表").AddNew()
nr("桌号") = i2
nr("红方_编号") = drs(i)("编号")
nr("红方_姓名") = drs(i)("姓名")
nr("黑方_编号") = drs(i+1)("编号")
nr("黑方_姓名") = drs(i+1)("姓名")
i2 += 1
End If
Next
End If
加好友 
发短信
Post By：2020/5/9 11:37:00 [只看该作者]
