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


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

主题：否能利用临时表进行分页加载
帅哥哟，离线，有人找我吗？
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 列排序
现在在想是否能利用临时表进行分页加载？老师有没这方面的成功案例？
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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]的列？

 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2019/5/19 19:22:00 [显示全部帖子]

老师还有二个问题：

1、在筛选树：文本内容为空是对了，老师有没有办法在筛选树中日期：#01/01/0001# 也显示为空？数值及逻辑值也显示为空？

2、最末页及下一页到最后一页时，出错？

错误提示：


.NET Framework 版本：2.0.50727.8800

Foxtable 版本：2019.4.12.1

错误所在事件：自定义函数btnLast_e

详细错误信息：

调用的目标发生了异常。

索引超出范围。必须为非负值并小于集合大小。

参数名: index


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



[此贴子已经被作者于2019/5/19 22:39:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2019/5/19 23:54:00 [显示全部帖子]

老师：“循环每一个节点，符合的字符，就修改节点的text为空；”  不知道如何修改，能否帮帮忙帮我改一下，十分感谢！！！！

 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2019/5/20 16:24:00 [显示全部帖子]

筛选树打勾时出错：



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


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多选筛选树空值66.table
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2019/5/27 16:22:00 [显示全部帖子]

老师你好,实在不好意思，这个筛选树折腾了二十多天了，还有二个问题要请教：
1、选择“显示所有项目”打勾时，加载数据没有变化，我的需求是：数据按临时表加载？
2、当只有一个数据时，出现下面错误提示：


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


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


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多选筛选树空值0527.table





[此贴子已经被作者于2019/5/27 16:36:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2019/5/27 18:45:00 [显示全部帖子]

老师：选择“显示所有项目”打勾时，加载数据没有变化，
需求是：数据加载按临时表加载？下面这段代码如何调整？

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) & " Is Null "
                        Else
                            val = val & Colstr(i) & " Is Null "
                        End If
                    ElseIf 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
                    End If
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08789 秒, 9 次数据查询