问题重新加载树查看器 [英] Problem Reload Tree viewer

问题描述

我的代码有问题：



Conn.Open（）

Dim AccTableAdapter As New SqlDataAdapter（SQLstr，Conn）

AccTableAdapter.Fill（AccountDataSet，ClinicServices）

Conn.Close（）

CreateTree（）

< br $>
结束子



私有子CreateTree（）

TreeView1.BeginUpdate（）

TreeView1.Nodes.Clear（）



Dim MainHeader作为新TreeNode（诊所服务）



MainHeader.Tag = 0



TreeView1.Nodes.Add（MainHeader）



AddSubNode（MainHeader）

TreeView1.EndUpdate（）



TreeView1.ExpandAll（）

TreeView1.Select（）

End Sub



Private Sub AddSubNode（ByVal Node As TreeNode）







Dim d v1 As DataView = AccountDataSet.Tables（ClinicServices）。DefaultView



dv1.RowFilter =MaineServiceCode =& CType（Node.Tag，Integer）



每个drLine作为DataRowView在dv1中



Dim SubNode As新的TreeNode（drLine（MixValue）。ToString（））





SubNode.Tag = drLine（ServiceCode）。ToString



Node.Nodes.Add（SubNode）







如果不是SubNode.Tag是String.Empty那么



AddSubNode（SubNode）



结束如果

下一页





结束次级

I have problem with the code :

Conn.Open()
Dim AccTableAdapter As New SqlDataAdapter(SQLstr, Conn)
AccTableAdapter.Fill(AccountDataSet, "ClinicServices")
Conn.Close()
CreateTree()

End Sub

Private Sub CreateTree()
TreeView1.BeginUpdate()
TreeView1.Nodes.Clear()

Dim MainHeader As New TreeNode("Clinic Services")

MainHeader.Tag = 0

TreeView1.Nodes.Add(MainHeader)

AddSubNode(MainHeader)
TreeView1.EndUpdate()

TreeView1.ExpandAll()
TreeView1.Select()
End Sub

Private Sub AddSubNode(ByVal Node As TreeNode)



Dim dv1 As DataView = AccountDataSet.Tables("ClinicServices").DefaultView

dv1.RowFilter = "MaineServiceCode =" & CType(Node.Tag, Integer)

For Each drLine As DataRowView In dv1

Dim SubNode As New TreeNode(drLine("MixValue").ToString())


SubNode.Tag = drLine("ServiceCode").ToString

Node.Nodes.Add(SubNode)



If Not SubNode.Tag Is String.Empty Then

AddSubNode(SubNode)

End If
Next


End Sub

引用：

更改数据添加到上一个

I想重新填写新的数据

Change the data adds to previous
I want to re-fill data from the New

谢谢你

Thank u

推荐答案

引用：

你的解决方案

这篇关于问题重新加载树查看器的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！