第2轮开始，对阵表没有随机生成红、黑方，我已经在比赛积分表安上轮积分排除不参加此轮比赛的人后，从高到低生成一列排序，我的公式不是很对，ia要减去当前逐行统计的不参加此轮比赛人个数，再排序，这样同赛、同轮次，同排序对应的编号就可作为随机红、黑方参数。
ElseIf di2 = 2 And cnt = 0 Then
Dim drs2 As List(of DataRow) = DataTables("比赛积分").SQLSelect("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & a & "'","","积分 Desc")
For ia As Integer = 0 To drs2.Count - 1
dr = DataTables("比赛积分").AddNew
Dim dts1 As DataRow = DataTables("基本信息").SQLFind("[棋赛名称] = '" & di1 & "'And [身份] = '参赛人' And [缺赛轮号] like '%" & di2 & "%' and [编号] = '" & drs2(ia)("编号") & "'")
If dts1 IsNot Nothing Then
dr("排序") = Nothing
Else
dr("排序") = math.Ceiling((i2+1) \ 2) '待解，这里要减去缺赛人个数
End If
dr("棋赛名称") = di1
dr("第几轮比赛") = di2
dr("日期") = di3
dr("编号") = drs2(ia)("编号")
dr("姓名") = drs2(ia)("姓名")
dr("上轮止累计积分") = drs2(ia)("积分")
dr("曾交战对手累计积分") = DataTables("比赛积分").SQLCompute("SUM(积分)","[桌号] = " & drs2(ia)("桌号") & "And ([编号] <> '" & drs2(ia)("编号") & "'or [姓名] <> '" & drs2(ia)("姓名") & "')")
i2 += 1
Next
DataTables("比赛积分").Save()
DataTables("对阵表").DataRows.Clear
Dim drs3 As List(of DataRow) = DataTables("比赛积分").SQLSelect("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "'","","排序,上轮止累计积分 Desc,曾交战对手累计积分")
For ib As Integer = 0 To drs3.Count - 1 Step 2
If ib+1 <= drs3.Count - 1 '没有随机红、黑方
Dim nr As DataRow = DataTables("对阵表").AddNew
nr("桌号") = drs3(ib)("排序")
nr("红方_编号") = drs3(ib)("编号")
nr("红方_姓名") = drs3(ib)("姓名")
nr("黑方_编号") = drs3(ib+1)("编号")
nr("黑方_姓名") = drs3(ib+1)("姓名")
nr("红方_上轮止累计积分") = drs3(ib)("上轮止累计积分")
nr("红方_曾交战对手累计积分") = drs3(ib)("曾交战对手累计积分")
nr("黑方_上轮止累计积分") = drs3(ib+1)("上轮止累计积分")
nr("黑方_曾交战对手累计积分") = drs3(ib+1)("曾交战对手累计积分")
End If
Next
加好友 
发短信
Post By：2020/6/16 17:09:00 [只看该作者]
