For ia As Integer = 0 To drs2.Count - 1
Dim dr2a1 As DataRow = DataTables("比赛积分").SQLFind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & Cstr(Val(di2)-1) & "' And [分组] = '" & Str & " And ([编号] = '" & dt.Table.Rows(ia1)("编号") & "'or [姓名] = '" & dt.Table.Rows(ia1)("姓名") & "')")
msgbox(dr2a1 IsNot Nothing)
If dr2a1 IsNot Nothing Then
Dim dr2a2 As DataRow = DataTables("比赛积分").SQLFind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & Cstr(Val(di2)-1) & "' And [分组] = '" & Str & "' And [排序] = " & dr2a1("排序") & " And ([编号] <> '" & dt.Table.Rows(ia1)("编号") & "'or [姓名] <> '" & dt.Table.Rows(ia1)("姓名") & "')")
msgbox(dr2a2 IsNot Nothing)
msgbox(ia1+1)