在VB6中，常将TreeView用来表示层次数据，但相关的与数据库进行交互的代码，需要大量的采用手工编码;在VB.Net中，由于数据绑定功能的加强及语言特性的增强，可以很容易的实现TreeView与层次数据的绑定，本文将首先建立一个继承自TreeView的 dbTreeView，然后用一个单位(部门)的层次数据与dbTreeView进行数据绑定，并提供了与数据库进行交互的代码。
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
网页显示有限 阅读全文请下载本文完整版WORD文档