Foxtable(狐表)用户栏目专家坐堂 → 如何取消DropTreeBuilder生成的目录树列表


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

主题:如何取消DropTreeBuilder生成的目录树列表

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


加好友 发短信
等级:婴狐 帖子:27 积分:295 威望:0 精华:0 注册:2011/11/15 23:31:00
如何取消DropTreeBuilder生成的目录树列表  发帖心情 Post By:2012/6/21 2:15:00 [只看该作者]

一个奇怪的问题

 

一个表中根据第一列的内容,在表事件PrepareEdit用DropTreeBuilder生成不同的目录树列表,

 

当第一列的内容为某值时不需要目录树列表,要取消目录树列表,代码该怎么写?

 

谢了!


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/6/21 8:34:00 [只看该作者]

设置PrePareEdit时间:

 

if e.Col.Name = "某列" then

   if e.row("第一列") = “某个值" Then

       e.Cancel = True

  end if

end if


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


加好友 发短信
等级:婴狐 帖子:27 积分:295 威望:0 精华:0 注册:2011/11/15 23:31:00
  发帖心情 Post By:2012/6/22 0:29:00 [只看该作者]

谢谢啦!

达到了想要的效果,避免了输入过程中偶尔的小混乱,一开始脑袋短路了,

没想到如此简单有效的e.Cancel = True,老想着怎么取消用DropTreeBuilder设置的下拉目录树列表输入状态。

 

但现在是选定“某值”时取消的是列的编辑状态,处于禁止编辑的状态,要是想取消下拉目录树列表输入状态,但可以进行直接输入,行不行?

从使用角度来说,我自己也觉得这个问题多余,但是从代码编写学习的角度觉得还是可以问一问!

 

请 大师 不吝指教!!!


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/6/25 6:51:00 [只看该作者]

看看:

 

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

 

If 条件成立 Then

   设置目录树

Else

   取消目录树

End if

 


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


加好友 发短信
等级:婴狐 帖子:27 积分:295 威望:0 精华:0 注册:2011/11/15 23:31:00
  发帖心情 Post By:2012/6/25 10:51:00 [只看该作者]

以下是引用狐狸爸爸在2012-6-25 6:51:00的发言:

看看:

 

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

 

If 条件成立 Then

   设置目录树

Else

   取消目录树

End if

 

 

大师:

      取消目录树  代码不会写,请指教

 

 


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
web页面数据验证实例,后台数据实时更新!js源码,所有用户都可下载体验!  发帖心情 Post By:2012/6/25 11:08:00 [只看该作者]

Tables("客户").Cols("省").DropTree = Nothing

 


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


加好友 发短信
等级:婴狐 帖子:27 积分:295 威望:0 精华:0 注册:2011/11/15 23:31:00
  发帖心情 Post By:2012/6/25 11:09:00 [只看该作者]

会了,通过下面的代码达到目的

      Dim tb As New DropTreeBuilder

      Tables("订单").Cols("单位名称").DropTree = tb.Build()

 

谢谢大师指点


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


加好友 发短信
等级:婴狐 帖子:27 积分:295 威望:0 精华:0 注册:2011/11/15 23:31:00
  发帖心情 Post By:2012/6/25 11:11:00 [只看该作者]

Nothing

   ?

   !

   !!!

谢谢啦


 回到顶部