[求助]目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]目录树

共有2452人关注过本帖树形打印复制链接主题：[求助]目录树

江南小镇

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2019/12/7 14:26:00 [只看该作者]

老师，下面的内部函数在调用时报错。我把原来的副本表变成直接绑定的正本表。

Dim TvwCtl As WinForm.TreeView = Args(0)

Dim TblName As String = Args(1)

Dim Columns As String = Args(2)

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(" "))

End If

TvwCtl.Nodes.Insert("显示所有行",0)

TvwCtl.Form.ResumeRedraw

.NET Framework 版本：2.0.50727.8669

Foxtable 版本：2017.4.22.1

错误所在事件：自定义函数加载筛选

详细错误信息：

调用的目标发生了异常。

从类型“Table”到类型“String”的转换无效。

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106142 积分：539827 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/7 14:43:00 [只看该作者]

调用函数的时候要传入主表的名称，不能传入副本名称

江南小镇

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2019/12/7 15:01:00 [只看该作者]

老师，这个搞不好了。

有点蓝

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106142 积分：539827 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/7 15:27:00 [只看该作者]

上传实例

江南小镇

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2019/12/8 12:04:00 [只看该作者]

老师，下面加载筛选在副本表中进行的，现在要在窗口绑定的非副本表中进行操作。多谢老师。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:加载筛选.table

[此贴子已经被作者于2019/12/8 12:04:55编辑过]

有点蓝

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106142 积分：539827 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/8 21:30:00 [只看该作者]

Functions.Execute("加载筛选",e.Form.Controls("筛选树"),e.Form.Controls("Table1").table.name,e.Sender.Value.Replace(",","|"))

江南小镇

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2019/12/9 6:01:00 [只看该作者]

好了，谢谢老师。

[此贴子已经被作者于2019/12/9 6:04:33编辑过]

江南小镇

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2019/12/9 7:59:00 [只看该作者]

谢谢老师，标出的窗口表还是要直接写成表正本表名称，下面代码和二进制列不同步。

With e.Form.Controls("Table2").Table

.EnterKeyActionDown = True

.AutoSizeCols

Dim dz_FilterCol As WinForm.CheckedComboBox = e.Form.Controls("复选")

For Each C As Col In .Cols

dz_FilterCol.Items.Add(C.Name)

dz_FilterCol.Value = "客户供应商,姓名"

End With

有点蓝

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106142 积分：539827 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/9 9:22:00 [只看该作者]

没看懂这个代码和二进制列有什么关系。何况二进制列本身就不能加载进来使用的：http://www.foxtable.com/webhelp/topics/2950.htm

江南小镇

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2019/12/9 13:48:00 [只看该作者]

老师，想直接引用绑定的正本表，"通讯录"是数据表的名称。’

With e.Form.Controls("通讯录").Table

下一主题 >> << 上一主题

总数 27 上一页 1 2 3 下一页

主题：[求助]目录树