ايران ويج

نسخه‌ی کامل: Tree View
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سلام
دنبال شئی هستم که بتونه اطلاعات database  اکسس را به صورت درختی نمایش بده.
ممنون میشم.
من تا حال شیئی که بتونه اطلاعات دیتابیس را مستقیم درختی کنه ندیدم. ولی شیئی برای ساختار درختی ساختن هست. اسمشم Treeview است و توی مجموعه ی Microsoft Common controls میتونی پیداش کنی
اینم یه لینک به سورسشه ایمد وارم به دردتون بخوره
http://www.googlen.ir/showthread.php?tid=226
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