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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助查找控件

共有3606人关注过本帖树形打印复制链接主题：求助查找控件

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/2/19 22:40:00 [显示全部帖子]

呃，什么意思？如果要查询，不是直接查就行了？是说列出此窗口所有的按钮名字就行了？

如果要做下拉，可以参考自定义窗口那里做一个下拉窗口。

再有就是，你的表不规范，每一行都应该填入所有表者

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/2/19 22:46:00 [显示全部帖子]

规则是什么？只是根据表名查找所有的控件名？

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/2/19 23:19:00 [显示全部帖子]

呃……可以参考递归函数来做

内部函数(递归)

Dim drs As List(Of DataRow) = args(0)

Dim fname As String = args(1)

For Each dr As DataRow In drs

If dr.IsNull("ParentKey") Then

fname = dr("窗口以及控件姓名")

End If

If dr("控件类型") = "按钮" Then

output.show(fname & "|" & dr("窗口以及控件姓名"))

End If

Functions.Execute("递归", DataTables("测试").Select("parentKey = '" & dr("key") & "'"), fname)

调用

Dim drs As List(Of DataRow) = DataTables("测试").Select("parentKey is null")

Functions.Execute("递归", drs, "")

主题：求助 查找控件