Tree View

[Black_Man]

سلام
دنبال شئی هستم که بتونه اطلاعات database  اکسس را به صورت درختی نمایش بده.
ممنون میشم.

[ajlajlajl]

من تا حال شیئی که بتونه اطلاعات دیتابیس را مستقیم درختی کنه ندیدم. ولی شیئی برای ساختار درختی ساختن هست. اسمشم Treeview است و توی مجموعه ی Microsoft Common controls میتونی پیداش کنی

[areza]

اینم یه لینک به سورسشه ایمد وارم به دردتون بخوره
http://www.googlen.ir/showthread.php?tid=226

[h_a_1970]

1- در فرم خود يك كنترل treeviwe ايجاد كنيد
2- در Form_Load تابع ايجاد نمودار درختي را فراخواني نماييد
3- يك ماژول با نام Utility Tree ايجاد نماييد
4- تابع :
AddNode(FindTreeCtrl As Object)
Dim objNode As Node
Dim dbs As Object
Dim rs As Recordset
Set dbs = CurrentDb

Set rs1 = dbs.OpenRecordset("M_Group")

With FindTreeCtrl
.Nodes.Clear

Set objNode = .Nodes.Add(, , "root", "root", 1, 1)
objNode.Expanded = True
If rs1.RecordCount = 0 Then Exit Function
I = 1
rs1.MoveFirst
Do While Not rs1.EOF

Set objNode = .Nodes.Add("root", tvwChild, "T" & rs1("M_GCode"), I, I)
objNode.Expanded = False
rs1.MoveNext
Loop
End With