For i As Integer = 0 To drs6.Count - 1 Step 2
Dim cx As DataRow = DataTables("查询").AddNew
cx("红方_编号") = drs6(i)("编号")
cx("红方_姓名") = drs6(i)("姓名")
cx("红方_上轮止累计积分") = drs6(i)("上轮止累计积分")
cx("红方_曾交战对手累计积分") = drs6(i)("曾交战对手累计积分")
cx("当前局成绩_红方") = IIF(drs6(i).IsNull("积分")," Is Null"," ='" & drs6(i)("积分") & "'")
If i + 1 <= drs6.Count - 1
cx("黑方_编号") = drs6(i+1)("编号")
cx("黑方_姓名") = drs6(i+1)("姓名")
cx("黑方_上轮止累计积分") = drs6(i+1)("上轮止累计积分")
cx("黑方_曾交战对手累计积分") = drs6(i+1)("曾交战对手累计积分")
cx("当前局成绩_黑方") = IIF(drs6(i+1).IsNull("积分")," Is Null"," ='" & drs6(i+1)("积分") & "'")
End If
Next