密码：888888
DataTables("对阵表").DataRows.Clear
Dim bsrq As WinForm.DateTimePicker = e.Form.Controls("rq")
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 di3 As Date = bsrq.Value
'Dim ls As Integer = DataTables("基本信息").SQLCompute("Count([姓名])","[棋赛名称] = '" & di1 & "'And [姓名] Is Not Null And [身份] = '参赛人'")
Dim dr As DataRow = DataTables("比赛积分").SQLfind("[棋赛名称] = '" & di1 & "'")
If DataTables("比赛积分").DataRows.count = 0 OrElse dr Is Nothing Then
Dim dts As List(of DataRow) = DataTables("随机号").SQLSelect("[姓名] Is Not Null")
For Each ds As DataRow In DataTables("对阵表").DataRows
di2 = 1
ds("桌号") = 0
Dim di4 As Integer = ds("桌号")
Dim n = 2
If dts.count >= n Then
Dim ls1 As new List(Of String)
Do While ls1.count < n
Dim i = Rand.Next(0, dts.count-1)
If ls1.Contains(dts("随机号")(i)) = False Then
ls1.add(dts("随机号")(i))
ls1.add(dts("姓名")(i))
End If
Loop
di4 = di4 + 1
If ls1.count = 0 Then
ds("红方_编号") = ls1(0)
ds("红方_姓名") = ls1(0)
End If
If ls1.count = 1 Then
ds("黑方_编号") = ls1(1)
ds("黑方_姓名") = ls1(1)
End If
End If
Next
End If
DataTables("对阵表").Save()
我在对阵表窗口中的排座按钮中写入这段代码，想把随机号表中的随机号转到对阵表，随机红、黑方，且排座，不报错，但对阵表不任何数据！
[此贴子已经被作者于2020/5/7 11:13:55编辑过]
加好友 
发短信
Post By：2020/5/5 10:34:00 [只看该作者]
