安装Access后天堂不定时断线，，急急！！！！

vb.net从数据库读取信息填充

给你一段我曾经写的代码，主要是生成TreeView的节点！有什么不懂的地方你就提！ Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet) Dim treBaseNodeOne As TreeNode Dim treBaseNodeTwo As TreeNode Dim strDWDM As String m_rsRecordTwo = g_clsSybase。 SelectSC_PD_SBCSB1() ...全部

  给你一段我曾经写的代码，主要是生成TreeView的节点！有什么不懂的地方你就提！ Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet) Dim treBaseNodeOne As TreeNode Dim treBaseNodeTwo As TreeNode Dim strDWDM As String m_rsRecordTwo = g_clsSybase。
  SelectSC_PD_SBCSB1() '查找供电局信息 g_clsSybase。SelectRS_ZZJG_ZZJGDMB(m_rsRecordOne) '添加根节点 Do While m_rsRecordOne。
  Read strDWDM = m_rsRecordOne。GetString(0) '获取单位代码 treBaseNodeOne = New TreeNode treBaseNodeOne。
  Text = m_rsRecordOne。GetString(1)。Trim() '获取单位名称 treBaseNodeOne。Name = m_rsRecordOne。
  GetString(1) treBaseNodeOne。Tag = "" strvXL。Nodes。Add(treBaseNodeOne) '添加树结构第二层 Dim drsTwo() As DataRow drsTwo = m_rsRecordTwo。
  Tables(0)。Select("SSDW='" & strDWDM & "' and SC__XLBM is null") For Each dr As DataRow In drsTwo treBaseNodeTwo = New TreeNode treBaseNodeTwo。
  Text = dr。Item("XLMC")。ToString。Trim treBaseNodeTwo。Name = dr。Item("XLMC") treBaseNodeTwo。
  Tag = dr。Item("XLBM") treBaseNodeOne。Nodes。Add(treBaseNodeTwo) Next Loop m_rsRecordOne。
  Close() End Sub。收起