Foxtable(狐表)用户栏目专家坐堂 → 可编辑的目录树下拉列表窗口


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

主题:可编辑的目录树下拉列表窗口

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47511 积分:251479 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/25 16:52:00 [显示全部帖子]


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


加好友 发短信
等级:管理员 帖子:47511 积分:251479 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/26 21:41:00 [显示全部帖子]

以下是引用实话实说在2012-2-25 17:56:00的发言:

帮助我看过,我的需求不一样,1 我的目录树来自文件,不是来自表; 2 我要在表中输入而不是在文本框中输入

 

组合下面三节的知识就可以了:

 

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

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

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

 

[此贴子已经被作者于2012-2-26 21:40:42编辑过]

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


加好友 发短信
等级:管理员 帖子:47511 积分:251479 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/27 9:44:00 [显示全部帖子]

基于目录树更加简单:

 

If e.node.level = 2  then

    Dim vals() As String = e.Node.FullPath.split("\")

    Dim tr As Row = Tables("表名").Current

    tr("列1") = vals(0)

    tr("列2") = vals(1)

    tr("列3") = vals(2)

End If


 回到顶部