以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树背景色  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52531)
--  作者：lshshlxsh
--  发布时间：2014/6/17 16:45:00
--  目录树背景色

请问代码如何实现  展开省份后，备注列为OK的县市背景色设为红色？

 

效果如下

 

 

 

 

图片点击可在新窗口打开查看

 

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

[此贴子已经被作者于2014-8-2 16:02:30编辑过]
--  作者：有点甜
--  发布时间：2014/6/17 16:59:00
--  

代码

 

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("表A", "省份|县市")
For Each nd As WinForm.TreeNode In tv.AllNodes
    If nd.Level = 1 Then
        If nd.DataRow("备注") = "ok" Then
            nd.BackColor = Color.Red
        End If
    End If
Next
--  作者：lshshlxsh
--  发布时间：2014/6/17 17:01:00
--  

谢谢你的回答