这段代码是安顺序把数据搬到红、黑方对阵表,并没在确定对手后随机红、黑方,我把它改这红色显示代码:
Dim drs3 As List(of DataRow) = DataTables("比赛积分").SQLSelect("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' and [排序] <> 0","","排序,上轮止累计积分 Desc,曾交战对手累计积分")
For ib As Integer = 0 To drs3.Count - 1 Step 2
Dim nr As DataRow = DataTables("对阵表").AddNew
If ib + 1 <= drs3.Count - 1
nr("桌号") = drs3(ib)("排序")
nr("红方_编号") = drs3(ib)("编号")
nr("红方_姓名") = drs3(ib)("姓名")
nr("红方_上轮止累计积分") = drs3(ib)("上轮止累计积分")
nr("红方_曾交战对手累计积分") = drs3(ib)("曾交战对手累计积分")
nr("黑方_姓名") = drs3(ib+1)("编号")
nr("黑方_姓名") = drs3(ib+1)("姓名")
nr("黑方_上轮止累计积分") = drs3(ib+1)("上轮止累计积分")
nr("黑方_曾交战对手累计积分") = drs3(ib+1)("曾交战对手累计积分")
Else
nr("桌号") = drs3(ib)("排序")
nr("红方_编号") = drs3(ib)("编号")
nr("红方_姓名") = drs3(ib)("姓名")
nr("红方_上轮止累计积分") = drs3(ib)("上轮止累计积分")
nr("红方_曾交战对手累计积分") = drs3(ib)("曾交战对手累计积分")
End If
Next
DataTables("比赛积分").SQLUpdate(drs3)
转换过程头脑都晕了!请帮我改改。
Dim drs3 As List(of DataRow) = DataTables("比赛积分").SQLSelect("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' and [排序] <> 0","","排序,上轮止累计积分 Desc,曾交战对手累计积分")
For ib As Integer = 0 To drs1.Count - 1 Step 2
Dim n = 2
If drs3.Count >= n Then
Dim ls1 As new List(Of String)
Do While ls1.count < n
Dim c As Integer = rand.Next(ib,ib+1)
If ls1.Contains(c) = False Then
ls1.add(c)
End If
Loop
Dim nr As DataRow = DataTables("对阵表").AddNew
nr("桌号") = drs3(c)("桌号") '最后要得出这样的结果
If ls1.count = 0 Then
nr("红方_编号") = drs3(c)(0)("编号") '最后要得出这样的结果
nr("红方_姓名") = drs3(c)(0)("姓名") '最后要得出这样的结果
Else
ls1.count = 1 Then
nr("黑方_编号") = drs3(c)(1)("编号") '最后要得出这样的结果
nr("黑方_姓名") = drs3(c)(1)("姓名") '最后要得出这样的结果
End If
End If
Next
DataTables("比赛积分").SQLUpdate(drs3)
后面省略