提要:在VB6中，常将TreeView用来表示层次数据，但相关的与数据库进行交互的代码，需要大量的采用手工编码;在VB.Net中，由于数据绑定功能的加强及语言特性的增强，可以很容易的实现TreeView与层次数据的绑定，本文将首先建立一个继承自TreeView的 dbTreeView，然后用一个单位(部门)的层次数据与dbTreeView进行数据绑定，并提供了与数据库进行交互的代码。
1、从层次数据的表达方式开始
在本例中，部门表(department)中有五个字段，如下表:
| 字段名 |
字段 |
类型说明 |
| ID |
自动编号 |
Key |
| Code |
String |
编码 |
| Name |
String |
名称 |
| PID |
Int |
父结点的ID |
| CPtr |
boolean |
是否有子结点 |
2、继承自TreeNode的myTreeNode
在myTreeNode中，新增了三个属性，如下表:
| 属性名 |
类型 |
说明 |
| Value |
Object |
Key |
| PID |
Object |
父结点的ID |
| CPtr |
Boolean |
是否有子结点 |
在Init事件中，根据传入的四个参数，设置这三个属性和Text属性。
3、将dbTreeView绑定到数据源
| 属性名 |
类型 |
说明 |
| Datasource |
dataview |
dbTreeVIew的数据源使用dataview，而不是object |
| Value |
Member |
string值成员(数据源[dataview]的列名) |
| Display |
Member |
string显示(在Text中)成员 |
| Pid |
Member |
string父ID成员 |
| CPtr |
Member |
string是否有子结点 |
后四个属性对应myTreeNode的value，text，pid，cptr。
相关代码如下:
Protected Property DataSource() As Object
Get
Return mDataView
End Get
Set(ByVal Value As Object)
If Value Is Nothing Then
Else
mDataView = Value
cm = CType(Me.BindingContext(mDataView), CurrencyManager)
UpdateTreeView()
End If
End Set
End Property
Protected Property PidMember() As String
Get
Return mPidMember
End Get
Set(ByVal Value As String)
mPidMember = Value
End Set
End Property
Protected Property DisplayMember() As String
Get
Return Join(mDisplayMember, SplitChar)
End Get
Set(ByVal Value As String)
mDisplayMember = Split(Value, SplitChar)
End Set
End Property
'注意，这几个属性都是保护成员，必须在Init事件中设置:
Public Sub Init(ByVal dispmember As String, ByVal valuemember As String, ByVal pidmember As String, ByVal cptrmember As String, ByVal datasource As DataView)
Me.ValueMember = valuemember
Me.DisplayMember = dispmember
Me.PidMember = pidmember
Me.CPtrMember = cptrmember
Me.DataSource = datasource
'取value最大值，新增时将value+1，保证关健值唯一。
Me.mDataView.Sort = Me.ValueMember
Me.m_MaxID = Me.GetValue(Me.mDataView.Count - 1)
End Sub |
设置DisplayMember属性的格式如:字段1;字段2;字段3… ，在设置属性时，将传来的参数转换为字符串数组mDisplayMember，在检索值时返回数据如:值1 值2 值3.…
Protected Overridable Function GetDisplay(ByVal Index As Integer) As Object
Dim i As Integer
Dim temp As String = ""
For i = 0 To mDisplayMember.Length - 1
temp = temp & IIf(i > 0, LinkChar, "") & mDataView(Index)(mDisplayMember(i))
Next
Return temp
End Function |
其它检索值的函数请参见源程序。
生成树
UpdateTreeView调用私有方法FillTree来生成树，需要注意的，FillTree只是生成指定结点的子结点并将其添加到指定结点，而不是一次就将所有结点添加到树中，如果未指定结点(第一次填充时)，只是添加顶层结点。
Private Sub FillTree(ByRef pnode As myTreeNode, Optional ByVal filter As String = "")
mDataView.RowFilter = filter
Dim i As Integer, icol As Integer
Dim newnode As myTreeNode
RemoveHandler cm.PositionChanged, AddressOf cm_PositionChanged
Me.BeginUpdate()
For i = 0 To mDataView.Count() - 1
newnode = New myTreeNode(GetDisplay(i), GetValue(i), GetPid(i), GetCPtr(i))
'当有子结点时，为这个结点添加一个空子结点
If newnode.CPtr Then
Dim nullnode As New myTreeNode()
nullnode.Value = NoExpandNodeValue
newnode.Nodes.Add(nullnode)
End If
If pnode Is Nothing Then
Me.Nodes.Clear()
Me.Nodes.Add(newnode)
Else
pnode.Nodes.Add(newnode)
End If
Next
Me.EndUpdate()
mDataView.RowFilter = ""
AddHandler cm.PositionChanged, AddressOf cm_PositionChanged
End Sub |
在展开有子结点的结点前，删除所有子结点，再用FillTree为待展开结点新增子结点。 |
