ACCESS2003中Treeview控件如何与数据表连接自动生成树形结构?
Private Sub Form_Load()Dim i As IntegerDim rst As DAO.RecordsetSet rst = CurrentDb.OpenRecordset("SELECT * FROM 表1;") '以要链接的表建立记录集If rst.RecordCount = 0 Then MsgBox "表中无数据!程序终止。": Exit Sub '如果链接表无数据i = 1rst.MoveFirst '记录首While Not rst.EOF '循环记录 With Me.TreeView3.Nodes '每循环1条记录添加一个分类 .Add , 4, "K" & i, "" & rst(0) & "" .Add "K" & i, 4, , "" & rst(1) & "" .Add "K" & i, 4, , "" & rst(2) & "" End Withi = i + 1rst.MoveNext '下一条记录Wend
Copyright © 广州京杭网络科技有限公司 2005-2025 版权所有 粤ICP备16019765号
广州京杭网络科技有限公司 版权所有