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

この質問であなたが何を意味したかをまとめてくれることを願っています...

  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 に答える
0

ノードをツリービューの親に追加する前に、スタイルを適用しtnparentてこれを行います。また、コードから、フォントを太字ではなく斜体に変更しているように見えます。

于 2012-12-19T11:54:49.590 に答える