۱۹-اردیبهشت-۱۳۸۶, ۰۱:۳۹:۰۲
۲۰-اردیبهشت-۱۳۸۶, ۱۵:۳۲:۳۱
من تا حال شیئی که بتونه اطلاعات دیتابیس را مستقیم درختی کنه ندیدم. ولی شیئی برای ساختار درختی ساختن هست. اسمشم Treeview است و توی مجموعه ی Microsoft Common controls میتونی پیداش کنی
۰۵-خرداد-۱۳۸۶, ۱۲:۲۱:۲۱
اینم یه لینک به سورسشه ایمد وارم به دردتون بخوره
http://www.googlen.ir/showthread.php?tid=226
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
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