设为首页
给我留言
首页       关于蓬缘    克隆建站    模版建站    建站流程    建站疑虑    支付方式    网站推广    网站优化    建站学院    联系我们    
蓬缘网络技术工作室真心为您服务!霸州网站建设 + 霸州网页设计 + 霸州企业建站 + 霸州FLASH设计 + 霸州网站开发 + 平面设计,专业技术人员一对一服务让建站更加专业更加放心……二十四小时服务热线: 15932615201 13810319167。欢迎来电咨询……霸州网站建设工作室|霸州网站制作|霸州建站|霸州网站改版|霸州企业建站|霸州专业建站|蓬缘网络技术工作室 - 我要网站 - http://www.woyaowangzhan.com……霸州蓬缘网络技术工作室是专业的建站团队,提供专业的霸州建站服务:1、霸州专业网站建设(霸州网站设计)2、霸州网站推广(百度、Google、搜狐、阿里巴巴等)3、霸州网站优化(SEO、百度推广优化)4、霸州域名注册(.com/.cn/.net等)5、霸州虚拟主机(ASP、.net等)6、霸州政府建站7、霸州门户网站…… 现在时间是
建站学堂
 
VB.NET中层次数据绑定TreeView的实现
[ 2008-8-27 7:16:00 ] 作者: 来源:

  核心提示:...

提要:在VB6中,常将TreeView用来表示层次数据,但相关的与数据库进行交互的代码,需要大量的采用手工编码;在VB.Net中,由于数据绑定功能的加强及语言特性的增强,可以很容易的实现TreeView与层次数据的绑定,本文将首先建立一个继承自TreeView的 dbTreeView,然后用一个单位(部门)的层次数据与dbTreeView进行数据绑定,并提供了与数据库进行交互的代码。

  1、从层次数据的表达方式开始

  在本例中,部门表(department)中有五个字段,如下表:



























字段名字段类型说明
ID自动编号Key
CodeString编码
NameString名称
PIDInt父结点的ID
CPtrboolean是否有子结点
  
  2、继承自TreeNode的myTreeNode

  在myTreeNode中,新增了三个属性,如下表:



















属性名类型说明
ValueObjectKey
PIDObject父结点的ID
CPtrBoolean是否有子结点
  
  在Init事件中,根据传入的四个参数,设置这三个属性和Text属性。

  3、将dbTreeView绑定到数据源



























属性名类型说明
DatasourcedataviewdbTreeVIew的数据源使用dataview,而不是object
ValueMemberstring值成员(数据源[dataview]的列名)
DisplayMemberstring显示(在Text中)成员
PidMemberstring父ID成员
CPtrMemberstring是否有子结点
  
  后四个属性对应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为待展开结点新增子结点。





Private Sub dbTreeView_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles MyBase.BeforeExpand
 ''当是新增结点引起BeforeExpand事件时,直接退出。
 If ExpandWhenAddNode Then Exit Sub
 ''在展开结点前更新子结点
 Dim currentnode As myTreeNode = CType(e.Node, myTreeNode)
 With currentnode
  .Nodes.Clear()
  FillTree(currentnode, mPidMember & "= " & CInt(.Value))
 End With
End Sub

  4、实现数据与绑定控件的同步

  要实现两个方面的同步:

  1、 其它绑定控件(如textbox等)应与TreeView当前结点所指向的记录位置一致。





Private Sub dbTreeView_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles MyBase.AfterSelect

 If e.Node Is Nothing Then Exit Sub
 ''定位到position
 cm.Position = GetPosition(CType(e.Node, myTreeNode).Value)
 If AllowEdit Then
  oldNode = e.Node
  oldPos = cm.Position
 End If
End Sub

  2、在其它绑定控件改变了数据源后,更新树结点,这个工作在触发CurrencyManager的PositionChanged事件时进行。





Public Sub cm_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
 If CType(Me.SelectedNode, myTreeNode).Value <> GetValue(cm.Position) Then
  Debug.WriteLine("Current node isn''t correct point to currencymanager.position!")
  Me.SelectedNode = FindNodeByValue(GetValue(cm.Position), Me.Nodes)
 End If
 If AllowEdit Then
  If Me.SelectedNode Is Nothing AndAlso cm.Position = cm.Count - 1 Then
   ''当新增记录时,新增树结点
   If CType(cm.Current, DataRowView).IsNew Then
    Me.SelectedNode = AddNode(cm.Position)
    Exit Sub
   End If
  End If
  If Not oldNode Is Nothing Then
   If CType(oldNode, myTreeNode).Value = GetValue(oldPos) Then
    ''更新老结点
    oldNode.Text = GetDisplay(oldPos)
   Else
   End If
  End If
 End If
End Sub

  使用dbTreeView

  程序运行后界面如下:

  

  相关代码请参见源程序,这里不做详述,需要注意的是删除操作并没有删除子结点,只是删除当前结点而已,删除子结点的工作应该在存储过程中递归实现,而不应放在前端。



 
   建站学堂
  ●  ASP编程技术
  ●  PHP编程技术
  ●  JSP编辑技术
  ●  ASP.NET编程技术
  ●  JAVA软件开发
  ●  C#软件开发
  ●  VB.NET软件开发
   网站推广与营销
  ● 网站备案的9个细节问题
  ● 网上注册一个域名的意义
  ● 网站从建设到运营的5点注意
  ● 8种提高网站ALEXA排名的方法
  ● 搜索引擎之间的4个区别
  ● 网站优化基本搜索引擎优化篇
  ● 点评A8音乐商业模式
  ● 5种不可取的网站推广方法
  ● SNS将成四大门户竞争的关键筹码
  ● 企业整站优化的一些技巧
  ● 马化腾创业三问
  ● 站长们每天都要做的工作
   网站优化与排名
  ● 快速提升访问量的方法
  ● 网站优化关键词工具,优化软件,SEO优化工具,SEO优化软件
  ● 总结四点分享我建站失败的经历
  ● 从达人圈到开心人人首谈SNS域名的选择与定位
  ● 良好心态是站长们成功的关键
  ● 浅谈做冷门站的一些心得体会
  ● 小游戏网站经营最重要的是站在用户的角度创新
  ● 关于网站首页打开速度之我见
  ● 谈一次域名解析出错带来的惨痛代价
  ● 我的地方论坛的建站之路经验总结
  ● 千人站长讲座第46期空姐网军哥谈特色社区运营
  ● 浅谈QQ类网站之站长的出路