我想一access2000中的資料用treeview顯示其資料如rs.fields(0)=父項,rs.fields(1)=name我的程式碼如下,但其顯示是空白的..why??
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "data source=c:\樹.mdb"
cn.Open
Set rs = New ADODB.Recordset
rs.Open "1", cn, adOpenStatic
Dim nodx As Node
If rs.Fields(0) ＜＞ "" Then
Set nodx = TreeView1.Nodes.Add(rs!父項, tvwChild, , _
& "rs!name", rs!Name)
nodx.EnsureVisible
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
rs.Close
cn.Close
End Sub
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Set nodx = TreeView1.SelectedItem
End Sub