Dim qsmc As WinForm.ComboBox = e.Form.Controls("棋赛名称")
Dim di1 As String = qsmc.Value
Dim m As WinForm.TextBox = e.Form.Controls("第几轮")
Dim di2 As String = m.Value
Dim fz As WinForm.ComboBox = e.Form.Controls("fenzhu")
Dim Str As String = fz.Value
Dim drs6 As List(of DataRow) = DataTables("比赛积分").SQLSelect("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "'")
For i As Integer = 0 To drs6.Count - 1 Step 2
If i + 1 <= drs6.Count - 1
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)("积分") & "'")
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
加好友 
发短信
Post By：2020/6/29 16:28:00 [只看该作者]
