Foxtable(狐表)用户栏目专家坐堂 → [求助]目录树字体


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

主题:[求助]目录树字体

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


加好友 发短信
等级:七尾狐 帖子:1636 积分:14459 威望:0 精华:0 注册:2014/6/6 8:42:00
[求助]目录树字体  发帖心情 Post By:2016/4/27 7:26:00 [只看该作者]

老师,如何更改表属性设置的目录树下拉窗口的字体。谢谢!

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/4/27 8:44:00 [只看该作者]


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


加好友 发短信
等级:七尾狐 帖子:1636 积分:14459 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2019/1/31 10:32:00 [只看该作者]

老师,如果体检项目 列包含 “血常规” “尿常规” 等项目,如何在双击姓名后 增加第三级节点 “血常规” “尿常规”?谢谢

2019-01-01
       王五
             血常规
             尿常规


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



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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/31 10:50:00 [只看该作者]

afterLoad事件,改成

 

'''
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("检验结果","日期|姓名")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = 1 Then
        For Each s As String In nd.DataRow("体检项目").split("、")
            nd.nodes.Add(s)
        Next
    End If
Next

 


 回到顶部