asked on
For Each iRow In iDataSet.Tables("Table1").Rows
If iRow("TABNAME") <> PreviousTab Then
Dim oTreeNodeTabName As New TreeViewItem
oTreeNodeTabName.Header = iRow("TABNAME")
oTreeNodeTabName.Tag = Nothing
_TreeView.Items.Add(oTreeNodeTabName)
End If
If iRow("TYPEDESC") <> PreviousDesc Then
Dim oTreeNodeHeader As New TreeViewItem
oTreeNodeHeader.Header = iRow("TYPEDESC")
oTreeNodeHeader.Tag = Nothing
count += 1
_TreeView.items.Add(oTreeNodeHeader)
End If
Dim oTreeNode As New TreeViewItem
oTreeNode.Header = iRow("EVENTDATE") & " " & iRow("TYPEDESC")
oTreeNode.Tag = iRow("VIEWPARMS")
Dim tvItem As TreeViewItem = _TreeView.Items(count)
tvItem.Items.Add(oTreeNode)