2

我有一个从这样的数据集中填充的树视图

Dim PrSet As New DataSet()
        If lblemail.Text.ToString().Equals("ali.saleem@shakarganj.com.pk") Then
            PrSet = PDataset("select distinct PEND,to_char(BPV_DTE,'DD MON YYYY') BPV_DTE,BPV_DTE BPV_DTE1,COUNT from chq_dir order by 3 desc")
        Else
            PrSet = PDataset("select distinct PEND,to_char(BPV_DTE,'DD MON YYYY') BPV_DTE,BPV_DTE BPV_DTE1,COUNT from chq_dte order by 3 desc")
        End If
        TreeView2.Nodes.Clear()
        For Each dr As DataRow In PrSet.Tables(0).Rows
            Dim tnParent As New TreeNode()
            tnParent.Text = dr("PEND").ToString()
            tnParent.Value = dr("BPV_DTE")
            tnParent.PopulateOnDemand = True
            tnParent.SelectAction = TreeNodeSelectAction.Select
            tnParent.ToolTip = tnParent.Text
            tnParent.Expand()
            TreeView2.Nodes.Add(tnParent)
            If dr("COUNT").ToString() = "0" Then
                TreeView2.Font.Bold= True
            End If
        Next dr

有一些日期的列COUNT。0问题是我试图将树视图加粗，COUNT但0它不起作用任何人都可以给我一个明确的想法。

4

3 回答 3

1

我已经像这样解决了我的问题

 If Not dr("COUNT") = 0 Then
 tnParent.Text = "<b>" & dr("PEND").ToString() & "</b>"
 End If
于 2012-12-19T12:42:10.470 回答
0

在将节点添加到树视图中的父节点之前应用样式tnparent并执行此操作，并且从您的代码中看起来您正在将字体更改为斜体而不是粗体。

于 2012-12-19T11:54:49.590 回答
0

我希望我已经收集了你这个问题的意思......

  For Each tn As TreeNode In treeView2.Nodes
     If tn.Text = "0" Then
          Dim index As Integer
          index = tn.Index
          treeView2.Nodes(index).NodeFont = New Font(treeView2.Font, FontStyle.Bold)
     End If
  Next
于 2012-12-19T11:56:18.607 回答