以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]目录树字体  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84261)

--  作者:zcgmxf
--  发布时间:2016/4/27 7:26:00
--  [求助]目录树字体
老师,如何更改表属性设置的目录树下拉窗口的字体。谢谢!
--  作者:Hyphen
--  发布时间:2016/4/27 8:44:00
--  
自己做下拉窗口:http://www.foxtable.com/help/topics/2478.htm
--  作者:zcgmxf
--  发布时间:2019/1/31 10:32:00
--  
老师,如果体检项目 列包含 “血常规” “尿常规” 等项目,如何在双击姓名后 增加第三级节点 “血常规” “尿常规”?谢谢

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


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



--  作者:有点甜
--  发布时间: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