Dim drs As List(of DataRow) = DataTables("比赛积分").SQLSelect("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "'","","本轮止累计积分 Desc,本次止曾交战对手累计积分 Desc")
Dim i1 As Integer = 1
For n As Integer = 0 To drs.Count - 1 '遍历所有行
If n > 0 AndAlso drs(n)("本轮止累计积分") = drs(n-1)("本轮止累计积分") AndAlso drs(n)("本次止曾交战对手累计积分") = drs(n-1)("本次止曾交战对手累计积分") Then
drs(n)("名次") = drs(n-1)("名次")
Else
drs(n)("名次") = i1
i1 + = 1
End If
'DataTables("比赛积分").SQLUpdate(drs)
Next
DataTables("比赛积分").SQLUpdate(drs)
DataTables("比赛积分").load