Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不是用了SQL吗？怎么只能查找当前数据？


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

主题：不是用了SQL吗？怎么只能查找当前数据？
美女呀，离线，留言给我吧！
采菊东篱下
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10385 威望：0 精华：0 注册：2019/4/6 8:45:00 		不是用了SQL吗？怎么只能查找当前数据？  发帖心情 Post By：2021/12/27 11:50:00 [显示全部帖子]

下面的代码只能查找已加载数据？没加载的无反应，我想能查找所有后台所有数据，代码错在哪？
If Forms("主窗口").opened Then
    Dim qsmc As WinForm.ComboBox = Forms("主窗口").Controls("棋赛名称")
    Dim di1 As String = qsmc.Value
    If di1 = "" Then
        messagebox.show("请选择棋赛名称")
        Return
    End If
    Dim m As WinForm.TextBox = Forms("主窗口").Controls("第几轮")
    Dim di2 As String = m.Value
    If di2 = "" Then
        messagebox.show("请输入第几轮")
        Return
    End If
    Dim bsrq As WinForm.DateTimePicker = Forms("主窗口").Controls("rq")
    Dim di3 As Date = bsrq.Value
    If Forms("主窗口").Controls("rq").text = "" Then
        messagebox.show("请选择日期")
        Return
    End If
    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 Forms("主窗口").Controls("fenzhu").text = "" Then
        messagebox.show("请选择分组")
        Return
    End If
    Dim tbl As WinForm.Table
    Dim tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
    If tab.TabPages.Contains(Str) = False Then
        tab.TabPages.Add(Str,Str)
        tbl = Forms("主窗口").CreateSQLTable("Table'" & Str & "'","Select * Fr om {综合组}","")
        tbl.SetBounds(0, 0, 983, 580)
        Forms("主窗口").Controls("TabControl1").Tabpages(Str).AddControl(tbl)
        Forms("主窗口").Controls("TabControl1").SelectedIndex = tab.TabPages.count + 1
    Else
        tbl = Forms("主窗口").Controls("Table'" & Str & "'")
    End If
    tbl.Table.SetColVisibleWidth("桌号|30|红方_名次|40|红方_编号|40|红方_姓名|60|红方_上轮止累计积分|80|红方_曾交战对手累计积分|80|红方_签名|60|当前局成绩_红方|80|当前局成绩_黑方|80|黑方_签名|60|黑方_名次|40|黑方_编号|40|黑方_姓名|60|黑方_上轮止累计积分|80|黑方_曾交战对手累计积分|80")
    tbl.Table.SetHeaderRowHeight(40)
    tbl.Table.DataTable.DataRows.Clear
    Dim drs As List(of DataRow) = DataTables("比赛积分").SQLSelect("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "'","","日期 Desc,团体赛或个人赛,棋赛名称,分组,桌号 Desc")
    For Each s As Integer In DataTables("比赛积分").SQLGetValues("桌号","[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' And [桌号] > 0","桌号")
        Dim nr As DataRow = tbl.Table.DataTable.AddNew
        nr("桌号") = s
        Dim dr As DataRow = DataTables("比赛积分").SQLFind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' And [桌号] = " & s & " And [红黑方] = '红方'")
        If dr IsNot Nothing Then
            nr("红方_名次") = dr("上轮名次")
            nr("红方_编号") = dr("编号")
            nr("红方_姓名") = dr("姓名")
            nr("红方_上轮止累计积分") = dr("上轮止累计积分")
            nr("红方_曾交战对手累计积分") = dr("曾交战对手累计积分")
            nr("当前局成绩_红方") = dr("积分")
        End If
        dr = DataTables("比赛积分").SQLFind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' And [桌号] = " & s & " And [红黑方] = '黑方'")
        If dr IsNot Nothing Then
            nr("黑方_名次") = dr("上轮名次")
            nr("黑方_编号") = dr("编号")
            nr("黑方_姓名") = dr("姓名")
            nr("黑方_上轮止累计积分") = dr("上轮止累计积分")
            nr("黑方_曾交战对手累计积分") = dr("曾交战对手累计积分")
            nr("当前局成绩_黑方") = dr("积分")
        End If
    Next
    Dim drs6 As List(of DataRow) = DataTables("比赛积分").SQLSelect("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' And [桌号] = 0","","桌号")
    Dim drs7 As List(of DataRow) = DataTables("比赛积分").SQLSelect("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' And [桌号] = 0 And [红黑方] = '红方'","","桌号")
    Dim drs8 As List(of DataRow) = DataTables("比赛积分").SQLSelect("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' And [桌号] = 0 And [红黑方] = '黑方'","","桌号")
    For ci As Integer = 0 To math.Ceiling((drs6.Count - 1) / 2)
        Dim nr As DataRow = tbl.Table.DataTable.AddNew
        If drs7.count < drs8.count Then
            If ci <= drs7.count - 1 And ci < drs8.count - 1 Then
                nr("桌号") = 0
                nr("红方_名次") = drs7(ci)("上轮名次")
                nr("红方_编号") = drs7(ci)("编号")
                nr("红方_姓名") = drs7(ci)("姓名")
                nr("红方_上轮止累计积分") = drs7(ci)("上轮止累计积分")
                nr("红方_曾交战对手累计积分") = drs7(ci)("曾交战对手累计积分")
                nr("当前局成绩_红方") = IIF(drs7(ci).IsNull("积分"),"0",drs7(ci)("积分"))
                nr("黑方_名次") = drs8(ci)("上轮名次")
                nr("黑方_编号") = drs8(ci)("编号")
                nr("黑方_姓名") = drs8(ci)("姓名")
                nr("黑方_上轮止累计积分") = drs8(ci)("上轮止累计积分")
                nr("黑方_曾交战对手累计积分") = drs8(ci)("曾交战对手累计积分")
                nr("当前局成绩_黑方") = IIF(drs8(ci).IsNull("积分"),"0",drs8(ci)("积分"))
            ElseIf ci > drs7.count - 1 And ci <= drs8.count - 1 Then
                nr("桌号") = 0
                nr("红方_编号") = Nothing
                nr("红方_姓名") = Nothing
                nr("红方_上轮止累计积分") = 0
                nr("红方_曾交战对手累计积分") = 0
                nr("当前局成绩_红方") = 0
                nr("黑方_名次") = drs8(ci)("上轮名次")
                nr("黑方_编号") = drs8(ci)("编号")
                nr("黑方_姓名") = drs8(ci)("姓名")
                nr("黑方_上轮止累计积分") = drs8(ci)("上轮止累计积分")
                nr("黑方_曾交战对手累计积分") = drs8(ci)("曾交战对手累计积分")
                nr("当前局成绩_黑方") = IIF(drs8(ci).IsNull("积分"),"0",drs8(ci)("积分"))
            End If
        ElseIf drs7.count > drs8.count Then
            If ci < drs7.count - 1 And ci <= drs8.count - 1 Then
                nr("桌号") = 0
                nr("红方_名次") = drs7(ci)("上轮名次")
                nr("红方_编号") = drs7(ci)("编号")
                nr("红方_姓名") = drs7(ci)("姓名")
                nr("红方_上轮止累计积分") = drs7(ci)("上轮止累计积分")
                nr("红方_曾交战对手累计积分") = drs7(ci)("曾交战对手累计积分")
                nr("当前局成绩_红方") = IIF(drs7(ci).IsNull("积分"),"0",drs7(ci)("积分"))
                nr("黑方_名次") = drs8(ci)("上轮名次")
                nr("黑方_编号") = drs8(ci)("编号")
                nr("黑方_姓名") = drs8(ci)("姓名")
                nr("黑方_上轮止累计积分") = drs8(ci)("上轮止累计积分")
                nr("黑方_曾交战对手累计积分") = drs8(ci)("曾交战对手累计积分")
                nr("当前局成绩_黑方") = IIF(drs8(ci).IsNull("积分"),"0",drs8(ci)("积分"))
            ElseIf ci <= drs7.count - 1 And ci > drs8.count - 1 Then
                nr("桌号") = 0
                nr("红方_名次") = drs7(ci)("上轮名次")
                nr("红方_编号") = drs7(ci)("编号")
                nr("红方_姓名") = drs7(ci)("姓名")
                nr("红方_上轮止累计积分") = drs7(ci)("上轮止累计积分")
                nr("红方_曾交战对手累计积分") = drs7(ci)("曾交战对手累计积分")
                nr("当前局成绩_红方") = IIF(drs7(ci).IsNull("积分"),"0",drs7(ci)("积分"))
                nr("黑方_名次") = Nothing
                nr("黑方_编号") = Nothing
                nr("黑方_姓名") = Nothing
                nr("黑方_上轮止累计积分") = 0
                nr("黑方_曾交战对手累计积分") = 0
                nr("当前局成绩_黑方") = 0
            End If
        End If
    Next
End If
[此贴子已经被作者于2021/12/27 14:13:55编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

生成数据后已经写上这代码，应该保存了。
DataTables("比赛积分").SQLUpdate(drs5a)

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


加好友 发短信
等级：八尾狐 帖子：1882 积分：10385 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/12/27 12:31:00 [显示全部帖子]

保存数据按钮也有
DataTables("比赛积分").SQLUpdate(drs)
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

肯定有符合条件的数据，按保存按钮比赛积分表才看到数据的，最后是DataTables("比赛积分").SQLUpdate(drs5a)代码。
[此贴子已经被作者于2021/12/27 14:12:24编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

分页加载页面有这数据就正常显示，点下一页就查不到数据了。

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


加好友 发短信
等级：八尾狐 帖子：1882 积分：10385 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/12/27 19:31:00 [显示全部帖子]

要上传就变成整个项目上传，想重做个简单例子，涉及到窗口，菜单按钮，太麻烦了，不传了。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询