Foxtable(狐表)用户栏目专家坐堂 → 否能利用临时表进行分页加载


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

主题:否能利用临时表进行分页加载

帅哥哟,离线,有人找我吗?
ZJZK2018
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
否能利用临时表进行分页加载  发帖心情 Post By:2019/5/10 11:07:00 [只看该作者]

1、使用SQLLoad方法进行分页加载,限制太多,数据库要SQL2005以上,其他的不行
2、用LoadOver设置的分页,只能根据 _Identify 列排序
现在在想是否能利用临时表进行分页加载?老师有没这方面的成功案例?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/10 11:21:00 [只看该作者]

分页语法,参考

 

https://blog.csdn.net/qq269228887/article/details/13769283

 

loadover可以用别的列分页的,但此列如果不唯一,分页可能出错


 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By:2019/5/10 20:20:00 [只看该作者]

1、请问生成的临时表有没有[_SortKey]和[_Identify]的列,与原表有没有关系?
2、生成近2万行数据的临时表大约需多少时间?
[此贴子已经被作者于2019/5/10 20:21:12编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/5/10 20:56:00 [只看该作者]

1、生成的临时表有没有[_SortKey]和[_Identify]的列看是使用什么方法生成的。基本和原表没有关系。

2、这个需要自己测试,不同电脑,不同代码,不同表结构可能都不一样

 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By:2019/5/10 21:08:00 [只看该作者]

如果用Dim cmd As New SQLCommand生成的临时表有没有[_SortKey]和[_Identify]的列?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/5/10 21:46:00 [只看该作者]

看使用了什么sql,如果原表有,sql也返回,那么就有

 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By:2019/5/11 23:36:00 [只看该作者]

我的设想是用自定义筛选树和分页加载。DataTables(“招标信息”)起始不加载数据,如何利用下面生成临时表dt的排序进行DataTables(招标信息”)分页加载?

'生成从后台提取数据生成一个临时的DataTable
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select DISTINCT 招标审核,咨询类型,归属部门,项目名称,业务性质,投标地区,开标日期,系统编号 Fro m {招标信息} Where ORDER BY 开标日期 DESC"
dt = cmd.ExecuteReader()
'''设置目录树
Dim trv As WinForm.TreeView = e.Form.Controls("Trv_sxs")
trv.BuildTree(dt,"归属部门|咨询类型|投标地区")  
trv.Nodes.Insert("显示所有项目",0)
trv.Nodes(1).Expand()

下面红色部分代码如何调整??
'进行分页加载
page = page + 1
Dim st As Integer = math.min(page * 5 ,dt.DataRows.count -1)
Dim ed As Integer = math.min((page+1) * 5 - 1,dt.DataRows.count -1)
If st = dt.DataRows.count -1 OrElse ed = 0 Then
        page = page - 1
      Return
End If
st = dt.DataRows(st)("_Identify")
ed = dt.DataRows(ed)("_Identify")
DataTables("招标信息").Filter = "[_Identify] >= " & st & " And [_Identify] <= " & ed

Dim nids As String = dt.GetComboListString("系统编号")
DataTables("招标信息").LoadFilter = "系统编号 In ('" & nids.Trim("|").Replace("|","','") & "')"
DataTables("招标信息").Load


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

[此贴子已经被作者于2019/5/12 2:22:48编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/12 22:13:00 [只看该作者]

1、你的临时表,没有 _Identify 列。

 

2、你这种方法也是无法做到你需要的效果的。你必须另外加一列,给这一列从1到n赋值。


 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By:2019/5/18 20:20:00 [只看该作者]

利用临时表进行分页加载及筛选树选择等功能基本达到要求,但现在有二个问题:
1、筛选树的空值没有筛选出来如何处理?如下图这个效果出不来
2、选择筛选树中“显示所有项目”的功能不起作用??

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树及加载.foxdb



如下图:


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


[此贴子已经被作者于2019/5/18 21:42:10编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/19 17:03:00 [只看该作者]

 

1、为空的,我测试没问题。请截图说明。

 

2、

 

'Functions.Execute("项目筛选树Trv_sxs_AfterCheckNode_e",e)

Dim s As String = e.Form.Controls("Chebox_sxs").Text
Dim tb1 As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = lsbdt
Dim Colstr() As String
Dim qts As String() = {"'","#",""}
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String = ""
Dim nd As WinForm.TreeNode
Dim pd As WinForm.TreeNode
Dim notchecked As Integer = 0
Colstr = s.split("|")

For Each nd In e.Node.AllNodes  '清除子节点的选中标记
    nd.Checked = False
Next
pd = e.Node.ParentNode
Do While pd IsNot Nothing    '清除父节点的选中标记
    pd.Checked = False
    pd = pd.ParentNode
Loop

For Each nd In trv.AllNodes
    If nd.Checked  Then
        If nd.Name = "显示所有项目" Then
            Exit For
        Else
           
            Dim rts() As String = nd.FullPath.Split("\")
            Dim val As String = ""
            For i As Integer = 0 To rts.length - 1
                If dt.DataCols(Colstr(i)).IsString Then
                    If rts(i) <> "空" Then
                        If val > "" Then
                            val = val & " And "
                            val = val & Colstr(i) & " = " & qts(0) & rts(i) & qts(0)
                        Else
                            val = val & Colstr(i) & " = " & qts(0) & rts(i) & qts(0)
                        End If
                    ElseIf rts(i) = "空" Then
                        If val > "" Then
                            val = val & " And "
                            val = val & Colstr(i) & " Is Null"
                        Else
                            val = val & Colstr(i) & " Is Null"
                        End If
                    End If
                ElseIf dt.DataCols(Colstr(i)).IsDate Then
                    If rts(i) <> #0001-1-1 0:00:00# Then
                        If val > "" Then
                            val = val & " And "
                            val = val & Colstr(i) & " = " & qts(1) & rts(i) & qts(1)
                        Else
                            val = val & Colstr(i) & " = " & qts(1) & rts(i) & qts(1)
                        End If
                    ElseIf rts(i) = #0001-1-1 0:00:00# Then
                        If val > "" Then
                            val = val & " And "
                            val = val & Colstr(i) & " Is Null"
                        Else
                            val = val & Colstr(i) & " Is Null"
                        End If
                    End If
                ElseIf dt.DataCols(Colstr(i)).IsNumeric Then
                    If rts(i) <> 0 Then
                        If val > "" Then
                            val = val & " And "
                            val = val & Colstr(i) & " = " & qts(2) & rts(i) & qts(2)
                        Else
                            val = val & Colstr(i) & " = " & qts(2) & rts(i) & qts(2)
                        End If
                    ElseIf rts(i) = 0 Then
                        If val > "" Then
                            val = val & " And "
                            val = val & Colstr(i) & " Is Null"
                        Else
                            val = val & Colstr(i) & " Is Null"
                        End If
                    End If
                ElseIf dt.DataCols(Colstr(i)).IsBoolean Then
                    If rts(i) <> False Then
                        If val > "" Then
                            val = val & " And "
                            val = val & Colstr(i) & " = " & qts(0) & True & qts(0)
                        Else
                            val = val & Colstr(i) & " = " & qts(0) & True & qts(0)
                        End If
                    ElseIf rts(i) = False Then
                        If val > "" Then
                            val = val & " And "
                            val = val & Colstr(i) & " = " & qts(0) & False & qts(0)
                        Else
                            val = val & Colstr(i) & " = " & qts(0) & False & qts(0)
                        End If
                    End If
                End If
            Next
            If flt > "" Then
                flt = flt & " Or (" & val & ")"
            Else
                flt = val
            End If
            notchecked + = 1
        End If
    End If
Next
msgbox(flt)
Dim lst As List(of String)
If flt > "" AndAlso  notchecked > 0 Then
    lst = lsbdt.GetValues("系统编号",flt,"idx")
Else
    lst = lsbdt.GetValues("系统编号","","idx")
End If

bhlst = Nothing
bhlst = lst

lsbcnt = Nothing
lsbcnt = lst.Count

''加载第一页数据
e.Form.Strips("主菜单").Items("btnFirst").PerformClick()


''


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