- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]筛选树符合条件加粗 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69554)
-- 发布时间：2015/6/7 9:51:00
-- [求助]筛选树符合条件加粗
如何把筛选树里的时间离系统时间最近24小时的自动改成红色体加粗并展开节点
此主题相关图片如下：aaa.jpg
-- 发布时间：2015/6/7 10:29:00
--
Dim btrv As Object = trv.BaseControl
For Each nd As Object In btrv.Nodes
Dim sp As TimeSpan = Date.Now - cDate(nd.Name)
If Math.Abs(sp.TotalHours) <= 24 Then
nd.ForeColor = Color.Red
nd.NodeFont = new Font("宋体", 9, FontStyle.Bold)
nd.ExpandAll
End If
Next