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


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

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

帅哥哟,离线,有人找我吗?
ZJZK2018
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

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


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

1、循环每一个节点,符合的字符,就修改节点的text为空;

 

2、修改代码

 

    For n As Integer = st To ed-1


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


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

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

 回到顶部
帅哥,在线噢!
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

例如

For Each tn As WinForm.TreeNode In trv.AllNodes
    If tn.Text = "01/01/0001" Then
        tn.text = ""
    End If
Next

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


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

筛选树打勾时出错:



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


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





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


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

Dim s As String = e.Form.Controls("CheckedComboBox1").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("|")
'If e.Node.Name = "显示所有项目" Then
'If e.Node.Checked = True Then
'For Each nd In trv.AllNodes
'If nd.Name <> "显示所有项目" Then
'nd.Checked = False
'End If
'Next
'''第一页
'Functions.Execute("btnFirst_e",e)
'Else
'For Each nd In trv.AllNodes
'nd.Checked = False
'Next
''tb1.Filter = (1 = 2)
'DataTables(tb1.DataTable.Name).LoadFilter = (1 = 2)
'DataTables(tb1.DataTable.Name).Load()
'e.Form.Controls("Page").Value = Nothing
'End If
'trv.CollapseAll
'Return
'Else
'trv.AllNodes(0).Checked = False
'End If

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) = "无日期" 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) <> Nothing 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
Dim lst As List(of String)
If flt > "" AndAlso  notchecked > 0 Then
    lst = lsbdt.sqlGetValues("编号",flt,"日期 DESC")
Else
    lst = lsbdt.sqlGetValues("编号","","日期 DESC")
End If
msgbox(flt)
bhlst = Nothing
bhlst = lst

lsbcnt = Nothing
lsbcnt = lst.Count


e.Form.Strips("主菜单").Items("btnFirst").PerformClick()

 


 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

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


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

 

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,pd As WinForm.TreeNode
'Dim pd As WinForm.TreeNode
Dim notchecked As Integer = 0
Colstr = s.split("|")
If e.Node.Name = "显示所有项目" Then
    If e.Node.Checked = True Then
        For Each nd In trv.AllNodes
            If nd.Name <> "显示所有项目" Then
                nd.Checked = False
            End If
        Next
    Else
        For Each nd In trv.AllNodes
            nd.Checked = False
        Next
    End If
    'trv.CollapseAll
    Return
Else
    trv.AllNodes(0).Checked = False
End If

For Each nd In e.Node.AllNodes  '同步子节点选中状态
    If nd.FullPath.StartsWith(e.Node.FullPath) Then
        nd.Checked = e.Node.Checked
    End If
Next
If e.Node.Checked = False Then  '如果本次操作为清除节点选中状态
    pd = e.Node.ParentNode  '获取父节点
    Do While pd IsNot Nothing
        pd.Checked = False    '清除父节点选中状态
        pd = pd.ParentNode   '继续获取上一层级的父节点
    Loop
End If


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
                ElseIf dt.DataCols(Colstr(i)).IsDate 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) <> Nothing 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
                    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) = "未审核" Then
                        If val > "" Then
                            val = val & " And "
                            val = val & Colstr(i) & " = " & qts(2) & False & qts(2)
                        Else
                            val = val & Colstr(i) & " = " & qts(2) & False & qts(2)
                        End If
                    ElseIf rts(i) = "已审核" Then
                        If val > "" Then
                            val = val & " And "
                            val = val & Colstr(i) & " = " & qts(2) & True & qts(2)
                        Else
                            val = val & Colstr(i) & " = " & qts(2) & True & qts(2)
                        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

Dim lst As List(of String)
If flt > "" AndAlso  notchecked > 0 Then
    lst = lsbdt.sqlGetValues("编号",flt,"日期 DESC")
Else
    lst = lsbdt.sqlGetValues("编号","","日期 DESC")
End If

msgbox(flt)
msgbox(lst.count)

bhlst = Nothing
bhlst = lst

lsbcnt = Nothing
lsbcnt = lst.Count


e.Form.Strips("主菜单").Items("btnFirst").PerformClick()

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥,在线噢!
有点蓝
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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,pd As WinForm.TreeNode
'Dim pd As WinForm.TreeNode
Dim notchecked As Integer = 0
Colstr = s.split("|")
If e.Node.Name = "显示所有项目" Then
    If e.Node.Checked = True Then
        For Each nd In trv.AllNodes
            If nd.Name <> "显示所有项目" Then
                nd.Checked = False
            End If
        Next
    Else
        For Each nd In trv.AllNodes
            nd.Checked = False
        Next
    End If
    'trv.CollapseAll
    'Return ‘去掉
Else
    trv.AllNodes(0).Checked = False
End If

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