Foxtable(狐表)用户栏目专家坐堂 → 单位工程目录树表点击后是空白,点击右键列属性,修改目录树系统死掉


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

主题:单位工程目录树表点击后是空白,点击右键列属性,修改目录树系统死掉

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/3 23:09:00 [显示全部帖子]

不要在prepareEdit事件,写生成目录树的代码。生成目录树的代码,可以写到currentTableChanged等等其它事件去。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/6 22:25:00 [显示全部帖子]

那你可以在比如click事件、currentChanged、startEdit等事件写代码,不要在prepareEdit事件写。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/7 8:46:00 [显示全部帖子]

那可以写到click事件去。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/7 11:36:00 [显示全部帖子]

以下是引用chengjingliang在2017/12/7 11:24:00的发言:
还是不行哦

 

1、代码肯定没问题;

 

2、如果显示空白,说明你表名写错、或者是对应的表没有符合条件的数据;

 

3、如果不会处理,实例发上来测试。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/8 16:17:00 [显示全部帖子]

以下是引用chengjingliang在2017/12/8 16:03:00的发言:
出入库表的图木舒克项目,在子表库明细规格内,可以选只限于该种材料的规格,如果换个位置编写代码就显示所有材料的所有规格

 

上传对应实例说明。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/8 17:57:00 [显示全部帖子]

以下是引用chengjingliang在2017/12/8 16:03:00的发言:
出入库表的图木舒克项目,在子表库明细规格内,可以选只限于该种材料的规格,如果换个位置编写代码就显示所有材料的所有规格

 

If e.IsFocusCell AndAlso e.Col.name = "规格" Then
    Dim tb As New DropTreeBuilder
    If e.Row.IsNull("项目id") OrElse e.Row.IsNull("工料id") Then
        tb.TreeFilter=""
    Else
        tb.TreeFilter="项目id='" & e.Row("项目id") & "' and 编号= '" & e.Row("工料ID") & "'"
    End If
    tb.SourceTable = DataTables("规格明细") '指定目录树表
   
    tb.TreeCols = "规格" '指定用于生成目录树的列
    tb.SourceCols = "规格" '指定数据来源列
    tb.ReceiveCols = "规格" '指定数据接收列
    e.Col.DropTree = tb.Build()
End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/10 12:05:00 [显示全部帖子]

以下是引用chengjingliang在2017/12/9 18:19:00的发言:
这里存在一个问题,我必须要先选择筛选树,在主表内点击相应项目才能按每个项目显示规格,如果直接点击主表项目则不行

 

那你可以写到主表的click事件,或者currentChanged事件。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/10 12:06:00 [显示全部帖子]

以下是引用chengjingliang在2017/12/10 11:57:00的发言:
请教下老师,用PrepareEdit写这个代码,会造成什么样后果

 

影响效率,其余没有什么问题。


 回到顶部