Foxtable(狐表)用户栏目专家坐堂 → 动态表的表名问题


  共有3170人关注过本帖树形打印复制链接

主题:动态表的表名问题

美女呀,离线,留言给我吧!
采菊东篱下
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
动态表的表名问题  发帖心情 Post By:2021/11/13 21:11:00 [显示全部帖子]

我想把动态生成的表中手工录入的当前局成绩保存到比赛积分表,结果报错:

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20211113210152.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20211113210234.png
图片点击可在新窗口打开查看

我想应是这个动态表合成名称不对:
Dim qsmc As WinForm.ComboBox = Forms("主窗口").Controls("棋赛名称")
Dim di1 As String = qsmc.Value
Dim m As WinForm.TextBox = Forms("主窗口").Controls("第几轮")
Dim di2 As String = m.Value
Dim bsrq As WinForm.DateTimePicker = Forms("主窗口").Controls("rq")
Dim di3 As Date = bsrq.Value
Dim bslx As WinForm.TextBox = Forms("主窗口").Controls("bslx")
Dim lx As String = bslx.Value
Dim fz As WinForm.DropDownBox = Forms("主窗口").Controls("fenzhu")
Dim Str As String = fz.Value
Dim tc As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
Dim dt As Table = Tables(tc.SelectedPage.Name)
tc.SelectedPage.Name = Str
For Each nr As Row In dt.Rows
    Dim dr1 As DataRow = DataTables("比赛积分").SQLfind("[棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & di2 & "' And [团体赛或个人赛] = '" & lx & "' And [所属团体或个人分组] = '" & Str & "' And [编号] = '" & nr("红方_编号") & "' And [姓名] = '" & nr("红方_姓名") & "'")
    If dr1 IsNot Nothing Then
        If nr("桌号") > 0  Then
            dr1("积分") = nr("当前局成绩_红方")
            If di2 = 1 Then
                dr1("红黑方") = "红方"
                dr1("本轮止累计积分") = nr("当前局成绩_红方")
                dr1("本次止曾交战对手累计积分") = nr("当前局成绩_黑方")
            ElseIf di2 >= 2 Then
                dr1("本轮止累计积分") = nr("红方_上轮止累计积分") + nr("当前局成绩_红方")
                dr1("本次止曾交战对手累计积分") = nr("红方_曾交战对手累计积分") + nr("当前局成绩_黑方")
            End If
        ElseIf nr.IsNull("桌号") And dr1("编号") = nr("红方_编号") Then
            dr1("红黑方") = "红方"
            dr1("积分") = 0
            If di2 = 1 Then
                dr1("本轮止累计积分") = nr("当前局成绩_红方")
                dr1("本次止曾交战对手累计积分") = nr("当前局成绩_黑方")
            ElseIf di2 >= 2 Then
                dr1("本轮止累计积分") = nr("红方_上轮止累计积分") + nr("当前局成绩_红方")
                dr1("本次止曾交战对手累计积分") = nr("红方_曾交战对手累计积分") + nr("当前局成绩_黑方")
            End If
        End If
        dr1.Save
    End If
    Dim dr2 As DataRow = DataTables("比赛积分").SQLfind("[棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & di2 & "' And [团体赛或个人赛] = '" & lx & "' And [所属团体或个人分组] = '" & Str & "' And [编号]='" & nr("黑方_编号") & "'And [姓名] = '" & nr("红方_姓名") & "'")
    If dr2 IsNot Nothing Then
        If di3 <> Nothing Then
            dr2("日期") = di3
        End If
        If nr("桌号") > 0 Then
            dr2("红黑方") = "黑方"
            dr2("积分") = nr("当前局成绩_黑方")
            If di2 = 1 Then
                dr2("本轮止累计积分") = nr("当前局成绩_黑方")
                dr2("本次止曾交战对手累计积分") = nr("当前局成绩_红方")
            ElseIf di2 >= 2 Then
                dr2("本轮止累计积分") = nr("黑方_上轮止累计积分") + nr("当前局成绩_黑方")
                dr2("本次止曾交战对手累计积分") = nr("黑方_曾交战对手累计积分") + nr("当前局成绩_黑方")
            End If
        ElseIf nr.IsNull("桌号") And dr2("编号") = nr("黑方_编号") Then
            dr2("红黑方") = "黑方"
            dr2("积分") = 0
            If di2 = 1 Then
                dr2("本轮止累计积分") = nr("当前局成绩_黑方")
                dr2("本次止曾交战对手累计积分") = nr("当前局成绩_红方")
            ElseIf di2 >= 2 Then
                dr2("本轮止累计积分") = nr("黑方_上轮止累计积分") + nr("当前局成绩_黑方")
                dr2("本次止曾交战对手累计积分") = nr("黑方_曾交战对手累计积分") + nr("当前局成绩_红方")
            End If
        End If
        dr2.Save
    End If
Next
Dim drs As List(of DataRow) = DataTables("比赛积分").SQLSelect("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [所属团体或个人分组] = '" & Str & "'","","本轮止累计积分 Desc,本次止曾交战对手累计积分 Desc")
If drs IsNot Nothing Then
    Dim i1 As Integer = 1
    For n As Integer = 0 To drs.Count - 1 '遍历所有行
        If n > 0 Then
            drs(n)("名次") = 1
        ElseIf n > 0 And (drs(n)("本轮止累计积分") = drs(n-1)("本轮止累计积分") AndAlso drs(n)("本次止曾交战对手累计积分") > drs(n-1)("本次止曾交战对手累计积分") Or (drs(n)("本轮止累计积分") > drs(n-1)("本轮止累计积分"))) Then
            i1 = i1 + 1
            drs(n)("名次") = i1
        Else
            i1 = i1
            drs(n)("名次") = i1
        End If
    Next
End If
DataTables("比赛积分").SQLUpdate(drs)
DataTables("比赛积分").load

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/11/14 11:15:00 [显示全部帖子]

我把代码改为红色代码变成这样的报错:
.NET Framework 版本:4.0.30319.18063
Foxtable 版本:2021.11.12.11
错误所在事件:菜单,保存,Click
详细错误信息:
Value cannot be null.
Parameter name: key
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:象棋排赛222.foxdb


代码在配置栏的保存按钮里。
删除比赛积分表里的所有行,在表头的控件上分别选择如1楼截图上的数据可测试,生成数据后在老人组动态表的当前成绩列中分别输入红、黑方分数,红、黑方成绩之和必须等于2,同时不能小于0,大于2,按保存按钮后出现上面报错。
Dim qsmc As WinForm.ComboBox = Forms("主窗口").Controls("棋赛名称")
Dim di1 As String = qsmc.Value
Dim m As WinForm.TextBox = Forms("主窗口").Controls("第几轮")
Dim di2 As String = m.Value
Dim bsrq As WinForm.DateTimePicker = Forms("主窗口").Controls("rq")
Dim di3 As Date = bsrq.Value
Dim bslx As WinForm.TextBox = Forms("主窗口").Controls("bslx")
Dim lx As String = bslx.Value
Dim fz As WinForm.DropDownBox = Forms("主窗口").Controls("fenzhu")
Dim Str As String = fz.Value
For Each nr As Row In Tables(Vars("Str")).Rows
    Dim dr1 As DataRow = DataTables("比赛积分").SQLfind("[团体赛或个人赛] = '" & lx & "'And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & di2 & "' And [所属团体或个人分组] = '" & Str & "' And [编号] = '" & nr("红方_编号") & "' And [姓名] = '" & nr("红方_姓名") & "'")
    If dr1 IsNot Nothing Then
        If nr("桌号") > 0  Then
            dr1("积分") = nr("当前局成绩_红方")
            If di2 = 1 Then
                dr1("红黑方") = "红方"
                dr1("本轮止累计积分") = nr("当前局成绩_红方")
                dr1("本次止曾交战对手累计积分") = nr("当前局成绩_黑方")
            ElseIf di2 >= 2 Then
                dr1("本轮止累计积分") = nr("红方_上轮止累计积分") + nr("当前局成绩_红方")
                dr1("本次止曾交战对手累计积分") = nr("红方_曾交战对手累计积分") + nr("当前局成绩_黑方")
            End If
        ElseIf nr.IsNull("桌号") And dr1("编号") = nr("红方_编号") Then
            dr1("红黑方") = "红方"
            dr1("积分") = 0
            If di2 = 1 Then
                dr1("本轮止累计积分") = nr("当前局成绩_红方")
                dr1("本次止曾交战对手累计积分") = nr("当前局成绩_黑方")
            ElseIf di2 >= 2 Then
                dr1("本轮止累计积分") = nr("红方_上轮止累计积分") + nr("当前局成绩_红方")
                dr1("本次止曾交战对手累计积分") = nr("红方_曾交战对手累计积分") + nr("当前局成绩_黑方")
            End If
        End If
        dr1.Save
    End If
    Dim dr2 As DataRow = DataTables("比赛积分").SQLfind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & di2 & "' And [所属团体或个人分组] = '" & Str & "' And [编号]='" & nr("黑方_编号") & "'And [姓名] = '" & nr("黑方_姓名") & "'")
    If dr2 IsNot Nothing Then
        If di3 <> Nothing Then
            dr2("日期") = di3
        End If
        If nr("桌号") > 0 Then
            dr2("红黑方") = "黑方"
            dr2("积分") = nr("当前局成绩_黑方")
            If di2 = 1 Then
                dr2("本轮止累计积分") = nr("当前局成绩_黑方")
                dr2("本次止曾交战对手累计积分") = nr("当前局成绩_红方")
            ElseIf di2 >= 2 Then
                dr2("本轮止累计积分") = nr("黑方_上轮止累计积分") + nr("当前局成绩_黑方")
                dr2("本次止曾交战对手累计积分") = nr("黑方_曾交战对手累计积分") + nr("当前局成绩_黑方")
            End If
        ElseIf nr.IsNull("桌号") And dr2("编号") = nr("黑方_编号") Then
            dr2("红黑方") = "黑方"
            dr2("积分") = 0
            If di2 = 1 Then
                dr2("本轮止累计积分") = nr("当前局成绩_黑方")
                dr2("本次止曾交战对手累计积分") = nr("当前局成绩_红方")
            ElseIf di2 >= 2 Then
                dr2("本轮止累计积分") = nr("黑方_上轮止累计积分") + nr("当前局成绩_黑方")
                dr2("本次止曾交战对手累计积分") = nr("黑方_曾交战对手累计积分") + nr("当前局成绩_红方")
            End If
        End If
        dr2.Save
    End If
Next
Dim drs As List(of DataRow) = DataTables("比赛积分").SQLSelect("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [所属团体或个人分组] = '" & Str & "'","","本轮止累计积分 Desc,本次止曾交战对手累计积分 Desc")
If drs IsNot Nothing Then
    Dim i1 As Integer = 1
    For n As Integer = 0 To drs.Count - 1 '遍历所有行
        If n > 0 Then
            drs(n)("名次") = 1
        ElseIf n > 0 And (drs(n)("本轮止累计积分") = drs(n-1)("本轮止累计积分") AndAlso drs(n)("本次止曾交战对手累计积分") > drs(n-1)("本次止曾交战对手累计积分") Or (drs(n)("本轮止累计积分") > drs(n-1)("本轮止累计积分"))) Then
            i1 = i1 + 1
            drs(n)("名次") = i1
        Else
            i1 = i1
            drs(n)("名次") = i1
        End If
    Next
End If
DataTables("比赛积分").SQLUpdate(drs)
DataTables("比赛积分").load
[此贴子已经被作者于2021/11/14 16:46:28编辑过]

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/11/14 21:26:00 [显示全部帖子]

怎么判断动态表是否存在?
Dim tbl As WinForm.Table = Forms("主窗口").Controls("Table" & "'" & Str & "'")
If DataTables.Contains(Vars("Str")) Then
    For Each nr As Row In Tables("主窗口_'" & Str & "'").Rows

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/11/14 21:54:00 [显示全部帖子]

把代码改为这样,还是一样报错!
.NET Framework 版本:4.0.30319.18063
Foxtable 版本:2021.11.16.11
错误所在事件:菜单,保存,Click
详细错误信息:
Value cannot be null.
Parameter name: key



Dim qsmc As WinForm.ComboBox = Forms("主窗口").Controls("棋赛名称")
Dim di1 As String = qsmc.Value
Dim m As WinForm.TextBox = Forms("主窗口").Controls("第几轮")
Dim di2 As String = m.Value
Dim bsrq As WinForm.DateTimePicker = Forms("主窗口").Controls("rq")
Dim di3 As Date = bsrq.Value
Dim bslx As WinForm.TextBox = Forms("主窗口").Controls("bslx")
Dim lx As String = bslx.Value
Dim fz As WinForm.DropDownBox = Forms("主窗口").Controls("fenzhu")
Dim Str As String = fz.Value
If Tables.Contains(Vars("Str")) Then
    For Each nr As Row In Tables("主窗口_'" & Str & "'").Rows
        Dim dr1 As DataRow = DataTables("比赛积分").SQLfind("[团体赛或个人赛] = '" & lx & "'And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & di2 & "' And [所属团体或个人分组] = '" & Str & "' And [编号] = '" & nr("红方_编号") & "' And [姓名] = '" & nr("红方_姓名") & "'")
        If dr1 IsNot Nothing Then
            If nr("桌号") > 0  Then
                dr1("积分") = nr("当前局成绩_红方")
                If di2 = 1 Then
                    dr1("红黑方") = "红方"
                    dr1("本轮止累计积分") = nr("当前局成绩_红方")
                    dr1("本次止曾交战对手累计积分") = nr("当前局成绩_黑方")
                ElseIf di2 >= 2 Then
                    dr1("本轮止累计积分") = nr("红方_上轮止累计积分") + nr("当前局成绩_红方")
                    dr1("本次止曾交战对手累计积分") = nr("红方_曾交战对手累计积分") + nr("当前局成绩_黑方")
                End If
            ElseIf nr.IsNull("桌号") And dr1("编号") = nr("红方_编号") Then
                dr1("红黑方") = "红方"
                dr1("积分") = 0
                If di2 = 1 Then
                    dr1("本轮止累计积分") = nr("当前局成绩_红方")
                    dr1("本次止曾交战对手累计积分") = nr("当前局成绩_黑方")
                ElseIf di2 >= 2 Then
                    dr1("本轮止累计积分") = nr("红方_上轮止累计积分") + nr("当前局成绩_红方")
                    dr1("本次止曾交战对手累计积分") = nr("红方_曾交战对手累计积分") + nr("当前局成绩_黑方")
                End If
            End If
            dr1.Save
        End If
        Dim dr2 As DataRow = DataTables("比赛积分").SQLfind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & di2 & "' And [所属团体或个人分组] = '" & Str & "' And [编号]='" & nr("黑方_编号") & "'And [姓名] = '" & nr("黑方_姓名") & "'")
        If dr2 IsNot Nothing Then
            If di3 <> Nothing Then
                dr2("日期") = di3
            End If
            If nr("桌号") > 0 Then
                dr2("红黑方") = "黑方"
                dr2("积分") = nr("当前局成绩_黑方")
                If di2 = 1 Then
                    dr2("本轮止累计积分") = nr("当前局成绩_黑方")
                    dr2("本次止曾交战对手累计积分") = nr("当前局成绩_红方")
                ElseIf di2 >= 2 Then
                    dr2("本轮止累计积分") = nr("黑方_上轮止累计积分") + nr("当前局成绩_黑方")
                    dr2("本次止曾交战对手累计积分") = nr("黑方_曾交战对手累计积分") + nr("当前局成绩_黑方")
                End If
            ElseIf nr.IsNull("桌号") And dr2("编号") = nr("黑方_编号") Then
                dr2("红黑方") = "黑方"
                dr2("积分") = 0
                If di2 = 1 Then
                    dr2("本轮止累计积分") = nr("当前局成绩_黑方")
                    dr2("本次止曾交战对手累计积分") = nr("当前局成绩_红方")
                ElseIf di2 >= 2 Then
                    dr2("本轮止累计积分") = nr("黑方_上轮止累计积分") + nr("当前局成绩_黑方")
                    dr2("本次止曾交战对手累计积分") = nr("黑方_曾交战对手累计积分") + nr("当前局成绩_红方")
                End If
            End If
            dr2.Save
        End If
    Next
End If
Dim drs As List(of DataRow) = DataTables("比赛积分").SQLSelect("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [所属团体或个人分组] = '" & Str & "'","","本轮止累计积分 Desc,本次止曾交战对手累计积分 Desc")
If drs IsNot Nothing Then
    Dim i1 As Integer = 1
    For n As Integer = 0 To drs.Count - 1 '遍历所有行
        If n > 0 Then
            drs(n)("名次") = 1
        ElseIf n > 0 And (drs(n)("本轮止累计积分") = drs(n-1)("本轮止累计积分") AndAlso drs(n)("本次止曾交战对手累计积分") > drs(n-1)("本次止曾交战对手累计积分") Or (drs(n)("本轮止累计积分") > drs(n-1)("本轮止累计积分"))) Then
            i1 = i1 + 1
            drs(n)("名次") = i1
        Else
            i1 = i1
            drs(n)("名次") = i1
        End If
    Next
End If
DataTables("比赛积分").SQLUpdate(drs)
DataTables("比赛积分").load

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/11/14 22:35:00 [显示全部帖子]

msgbox(Vars("Str"))
弹出的窗口为空,证明这样写错吧?
Dim fz As WinForm.DropDownBox = Forms("主窗口").Controls("fenzhu")
Dim Str As String = fz.Value
控件已经选了值,合成表就没东西。
[此贴子已经被作者于2021/11/14 22:50:00编辑过]

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/11/14 22:56:00 [显示全部帖子]

我就是不知当Table("成人组")、Table("女子组")、Table("少年组")、Table("男子组")、Table("老人组")、Table("甲组")、Table("乙组")......
这字符是变量应自成么合成为表名称。

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/11/14 22:58:00 [显示全部帖子]

直接写为:Table(str)也试过了,一样报错。

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/11/14 23:47:00 [显示全部帖子]

.NET Framework 版本:4.0.30319.18063
Foxtable 版本:2021.11.16.11
错误所在事件:菜单,保存,Click
详细错误信息:
Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index



Dim fz As WinForm.DropDownBox = Forms("主窗口").Controls("fenzhu")
Dim Str As String = fz.Value
messagebox.show(Str)
If Tables.Contains(Str) Then
messagebox.show("主窗口_" & Str)
    For Each nr As Row In Tables("主窗口_" & Str).Rows

弹出第一个窗口是老人组,第二个窗口就是上面的报错,这样合成窗口中的表不行!

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/11/15 0:20:00 [显示全部帖子]

都试过了不行。

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/11/15 14:04:00 [显示全部帖子]

改为这样还是报错:
.NET Framework 版本:4.0.30319.18063
Foxtable 版本:2021.11.16.11
错误所在事件:菜单,保存,Click
详细错误信息:
Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index



Dim qsmc As WinForm.ComboBox = Forms("主窗口").Controls("棋赛名称")
Dim di1 As String = qsmc.Value
Dim m As WinForm.TextBox = Forms("主窗口").Controls("第几轮")
Dim di2 As String = m.Value
Dim bsrq As WinForm.DateTimePicker = Forms("主窗口").Controls("rq")
Dim di3 As Date = bsrq.Value
Dim bslx As WinForm.TextBox = Forms("主窗口").Controls("bslx")
Dim lx As String = bslx.Value
Dim fz As WinForm.DropDownBox = Forms("主窗口").Controls("fenzhu")
Dim Str As String = fz.Value
Dim tbl As WinForm.Table
Dim tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
If tab.TabPages.Contains(Str) Then
    tbl = Forms("主窗口").Controls("Table'" & Str & "'")
    For Each nr As Row In tbl.Table.Rows
        Dim dr1 As DataRow = DataTables("比赛积分").SQLfind("[团体赛或个人赛] = '" & lx & "'And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & di2 & "' And [所属团体或个人分组] = '" & Str & "' And [编号] = '" & nr("红方_编号") & "' And [姓名] = '" & nr("红方_姓名") & "'")
        If dr1 IsNot Nothing Then
            If nr("桌号") > 0  Then
                dr1("积分") = nr("当前局成绩_红方")
                If di2 = 1 Then
                    dr1("红黑方") = "红方"
                    dr1("本轮止累计积分") = nr("当前局成绩_红方")
                    dr1("本次止曾交战对手累计积分") = nr("当前局成绩_黑方")
                ElseIf di2 >= 2 Then
                    dr1("本轮止累计积分") = nr("红方_上轮止累计积分") + nr("当前局成绩_红方")
                    dr1("本次止曾交战对手累计积分") = nr("红方_曾交战对手累计积分") + nr("当前局成绩_黑方")
                End If
            ElseIf nr.IsNull("桌号") And dr1("编号") = nr("红方_编号") Then
                dr1("红黑方") = "红方"
                dr1("积分") = 0
                If di2 = 1 Then
                    dr1("本轮止累计积分") = nr("当前局成绩_红方")
                    dr1("本次止曾交战对手累计积分") = nr("当前局成绩_黑方")
                ElseIf di2 >= 2 Then
                    dr1("本轮止累计积分") = nr("红方_上轮止累计积分") + nr("当前局成绩_红方")
                    dr1("本次止曾交战对手累计积分") = nr("红方_曾交战对手累计积分") + nr("当前局成绩_黑方")
                End If
            End If
            dr1.Save
        End If
        Dim dr2 As DataRow = DataTables("比赛积分").SQLfind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & di2 & "' And [所属团体或个人分组] = '" & Str & "' And [编号]='" & nr("黑方_编号") & "'And [姓名] = '" & nr("黑方_姓名") & "'")
        If dr2 IsNot Nothing Then
            If di3 <> Nothing Then
                dr2("日期") = di3
            End If
            If nr("桌号") > 0 Then
                dr2("红黑方") = "黑方"
                dr2("积分") = nr("当前局成绩_黑方")
                If di2 = 1 Then
                    dr2("本轮止累计积分") = nr("当前局成绩_黑方")
                    dr2("本次止曾交战对手累计积分") = nr("当前局成绩_红方")
                ElseIf di2 >= 2 Then
                    dr2("本轮止累计积分") = nr("黑方_上轮止累计积分") + nr("当前局成绩_黑方")
                    dr2("本次止曾交战对手累计积分") = nr("黑方_曾交战对手累计积分") + nr("当前局成绩_黑方")
                End If
            ElseIf nr.IsNull("桌号") And dr2("编号") = nr("黑方_编号") Then
                dr2("红黑方") = "黑方"
                dr2("积分") = 0
                If di2 = 1 Then
                    dr2("本轮止累计积分") = nr("当前局成绩_黑方")
                    dr2("本次止曾交战对手累计积分") = nr("当前局成绩_红方")
                ElseIf di2 >= 2 Then
                    dr2("本轮止累计积分") = nr("黑方_上轮止累计积分") + nr("当前局成绩_黑方")
                    dr2("本次止曾交战对手累计积分") = nr("黑方_曾交战对手累计积分") + nr("当前局成绩_红方")
                End If
            End If
            dr2.Save
        End If
    Next
End If
Dim drs As List(of DataRow) = DataTables("比赛积分").SQLSelect("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [所属团体或个人分组] = '" & Str & "'","","本轮止累计积分 Desc,本次止曾交战对手累计积分 Desc")
If drs IsNot Nothing Then
    Dim i1 As Integer = 1
    For n As Integer = 0 To drs.Count - 1 '遍历所有行
        If n > 0 Then
            drs(n)("名次") = 1
        ElseIf n > 0 And (drs(n)("本轮止累计积分") = drs(n-1)("本轮止累计积分") AndAlso drs(n)("本次止曾交战对手累计积分") > drs(n-1)("本次止曾交战对手累计积分") Or (drs(n)("本轮止累计积分") > drs(n-1)("本轮止累计积分"))) Then
            i1 = i1 + 1
            drs(n)("名次") = i1
        Else
            i1 = i1
            drs(n)("名次") = i1
        End If
    Next
End If
DataTables("比赛积分").SQLUpdate(drs)
DataTables("比赛积分").load
[此贴子已经被作者于2021/11/15 14:10:43编辑过]

 回到顶部
总数 23 1 2 3 下一页