以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]加载筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145629)
--  作者：江南小镇
--  发布时间：2020/2/2 22:23:00
--  [求助]加载筛选
老师，我想对窗口临时表进行加载筛选。下面代码无法获取临时表。
  


内部函数
Dim TvwCtl As WinForm.TreeView = Args(0)   \'要更新的Treeview控件
Dim TblName As String = Args(1)            \'数据来源表
Dim Columns As String = Args(2)            \'要构建Treeview的字段
If Tables(TblName).Rows.Count = 0 Then Return Nothing
TvwCtl.Form.StopRedraw
TvwCtl.BuildTree(Tables(TblName).DataTable,Columns)
Dim ArrColName() As String = Columns.Split("|")
For i As Integer = 0 To Ubound(ArrColName)
    If Tables(TblName).DataTable.DataCols(ArrColName(i)).IsDate Then
        For Each Nd As WinForm.TreeNode In TvwCtl.AllNodes
            Dim idx As Integer = nd.Text.IndexOf(" ")
            If idx >= 0 AndAlso Nd.Level = i Then Nd.Text = Nd.Text.SubString(0,Nd.Text.IndexOf(" "))
        Next
    End If
Next
TvwCtl.Nodes.Insert("显示所有行",0)
TvwCtl.Form.ResumeRedraw


函数引用
If e.Sender.Value = "" Then Return
Functions.Execute("加载筛选",e.Form.Controls("筛选树1"),e.Form.Name & "_Table1",e.Sender.Value.Replace(",","|"))
--  作者：有点蓝
--  发布时间：2020/2/2 22:56:00
--  
没看懂代码。提示什么错误？
--  作者：江南小镇
--  发布时间：2020/2/3 7:30:00
--  
老师，上面代码不能对窗口临时表进行操作。
--  作者：有点蓝
--  发布时间：2020/2/3 9:15:00
--  
上传实例说明
--  作者：江南小镇
--  发布时间：2020/2/3 14:02:00
--  

老师好，窗口临时表不能筛选和加载。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:临时表.rar

图片点击可在新窗口打开查看此主题相关图片如下：临时表.png
图片点击可在新窗口打开查看
 
--  作者：有点蓝
--  发布时间：2020/2/3 14:21:00
--  
1、调用函数的时候传入的表名不正确
2、把添加“复选1”下拉列表的代码放到上面这个按钮的代码里生成临时表之后
--  作者：江南小镇
--  发布时间：2020/2/3 14:54:00
--  
老师，函数代码不会修改，谢谢老师帮忙。
--  作者：有点蓝
--  发布时间：2020/2/3 15:11:00
--  
函数代码没有问题，不需要修改，调用时传入的表名不正确

Functions.Execute("加载筛选",e.Form.Controls("筛选树1"),e.Form.Name & "_Table1",e.Sender.Value.Replace(",","|"))
--  作者：江南小镇
--  发布时间：2020/2/3 16:02:00
--  
老师，修改后还是不能加载临时表
--  作者：有点蓝
--  发布时间：2020/2/3 16:09:00
--  
提示什么错误？