Foxtable(狐表)用户栏目专家坐堂 → Treeview显示不全,有办法全部显示吗


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

主题:Treeview显示不全,有办法全部显示吗

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


加好友 发短信
等级:七尾狐 帖子:1777 积分:16791 威望:0 精华:0 注册:2017/6/1 23:12:00
Treeview显示不全,有办法全部显示吗  发帖心情 Post By:2018/12/9 22:22:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar


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


加好友 发短信
等级:七尾狐 帖子:1777 积分:16791 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/12/9 22:44:00 [显示全部帖子]

第一列不是空值啊,为啥不显示呢?


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


加好友 发短信
等级:七尾狐 帖子:1777 积分:16791 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/12/9 23:10:00 [显示全部帖子]

老师能帮助改一下5楼,让第一列显示中文吗?

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


加好友 发短信
等级:七尾狐 帖子:1777 积分:16791 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/12/9 23:18:00 [显示全部帖子]

那也好啊,试了一下,不会改,保存其他列也不错,请老师帮助改一下

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


加好友 发短信
等级:七尾狐 帖子:1777 积分:16791 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/12/10 17:48:00 [显示全部帖子]

是这个意思,甜老师真是高手啊,代码精炼


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


加好友 发短信
等级:七尾狐 帖子:1777 积分:16791 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/12/10 20:46:00 [显示全部帖子]

怎么判断选择的是不是最后一个结点?

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


加好友 发短信
等级:七尾狐 帖子:1777 积分:16791 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/12/10 21:21:00 [显示全部帖子]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

If   trv.Nodes.Count <> 0 Then

 

msgbox(trv.nodes.count)测试结果,无论是点哪个,数字都是一样的


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


加好友 发短信
等级:七尾狐 帖子:1777 积分:16791 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/12/10 21:58:00 [显示全部帖子]

就是判断选择的是不是最末结点

 

if node.nodes.count = 0 then 这样写会报错的

[此贴子已经被作者于2018/12/10 22:10:51编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1777 积分:16791 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/12/11 8:06:00 [显示全部帖子]

'If node.Nodes.Count <> 0 Then
    'msgbox("请选择最末级分类,再增加!")
    'Return
'End If

窗口中的button按钮做的判断


 回到顶部