[求助]带查找功能的下拉目录树，增加一个确定按钮的代码怎么写？谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]带查找功能的下拉目录树，增加一个确定按钮的代码怎么写？谢谢

共有2083人关注过本帖树形打印复制链接主题：[求助]带查找功能的下拉目录树，增加一个确定按钮的代码怎么写？谢谢

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6676 威望：0 精华：0 注册：2014/11/26 12:32:00

[求助]带查找功能的下拉目录树，增加一个确定按钮的代码怎么写？谢谢 发帖心情

Post By：2016/3/28 20:43:00 [只看该作者]

此主题相关图片如下：带查找功能的下拉目录树，确定按钮.png

想把下一个按钮移动到上面后，增加一个确定按钮，不知道代码怎么写

[此贴子已经被作者于2016/3/28 20:44:08编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/28 20:49:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode IsNot Nothing Then '获取当前节点位置.
    Dim tr As Row = Tables("客户").Current
    Dim dr As DataRow = trv.SelectedNode.DataRow '获取生成此节点的DataRow
    tr("省市") = dr("省市")
    tr("县市") = dr("县市")
    tr("区号") = dr("区号")
    tr("邮编") = dr("邮编")
    e.Form.DropDownBox.Value = tr("县市")
    e.Form.DropDownBox.CloseDropdown()
End If

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6676 威望：0 精华：0 注册：2014/11/26 12:32:00

Post By：2016/3/28 20:57:00 [只看该作者]

红袍大师，如果是当前表呢，因为这个目录树要在多个表用，不止在客户这个表。感谢红袍大师的速度够快，刚发的贴

[此贴子已经被作者于2016/3/28 20:58:14编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/28 21:00:00 [只看该作者]

打开窗口之前赋值

vars("表") = Tables("客户")

--------------------

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode IsNot Nothing Then '获取当前节点位置.
    Dim tr As Row = vars("表").Current
    Dim dr As DataRow = trv.SelectedNode.DataRow '获取生成此节点的DataRow
    tr("省市") = dr("省市")
    tr("县市") = dr("县市")
    tr("区号") = dr("区号")
    tr("邮编") = dr("邮编")
    e.Form.DropDownBox.Value = tr("县市")
    e.Form.DropDownBox.CloseDropdown()
End If

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6676 威望：0 精华：0 注册：2014/11/26 12:32:00

Post By：2016/3/28 21:12:00 [只看该作者]

在其他表里调用这个窗口不行，还没理解，大师再指定一下了。还是不理解，为什么不是 CurrentTable.Current呢？

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6676 威望：0 精华：0 注册：2014/11/26 12:32:00

Post By：2016/3/28 21:15:00 [只看该作者]

想通用目录树窗口里的确定按钮，在多个表通用。其他表这里写代码了，也不行，怎么改呢？
图片点击可在新窗口打开查看

此主题相关图片如下：fff.png

[此贴子已经被作者于2016/3/28 21:18:54编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/28 22:00:00 [只看该作者]

如果是下拉窗口，这样写

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode IsNot Nothing Then '获取当前节点位置.
    Dim tr As Row = e.Form.DropTable.Current
    Dim dr As DataRow = trv.SelectedNode.DataRow '获取生成此节点的DataRow
    tr("省市") = dr("省市")
    tr("县市") = dr("县市")
    tr("区号") = dr("区号")
    tr("邮编") = dr("邮编")
    e.Form.DropDownBox.Value = tr("县市")
    e.Form.DropDownBox.CloseDropdown()
End If

http://www.foxtable.com/help/topics/2893.htm

[此贴子已经被作者于2016/3/28 22:12:59编辑过]