مشکل این کد چیست؟ [بایگانی]

kama2222

دوشنبه 25 آذر 1387, 19:48 عصر

Private Sub Form_Load()
tv.Nodes.Add , , "Fich", "˜Ï ãÔÊÑí"
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
tv.Nodes.Add "Fich", tvwChild, "FI" & Adodc1.Recordset.AbsolutePosition, Adodc1.Recordset.Fields(0)
Adodc1.Recordset.MoveNext
Loop
End If
End Sub

kama2222

سه شنبه 26 آذر 1387, 11:40 صبح

چرا کسی جواب نمی دهد؟

mpmsoft

سه شنبه 26 آذر 1387, 12:25 عصر

پیغام خطارو بذار

m_vb1386

سه شنبه 26 آذر 1387, 12:28 عصر

ببينيد منظور شما همينه
اگه اينجوريه شما بايد ابتدا يك گره اصلي تعريف كنيد سپس براي اون گره يك گره فرزند تعريف كنيد و براي اون هم يك يا چند گره فرزند ديگه

m_vb1386

سه شنبه 26 آذر 1387, 13:19 عصر

اين كد ميتونه كمك خوبي بهتون بكنه

Private Sub Form_Load()
TreeView1.Checkboxes = True
Dim nodx As Node
Set nodx = TreeView1.Nodes.Add(, , "root", "ÇÓÇãí")
nodx.Expanded = True
Set nodx = TreeView1.Nodes.Add("root", tvwChild, "root1", "äÇã")
'nodx.Expanded = True
Set nodx = TreeView1.Nodes.Add("root1", tvwChild, "root1a", "Úáí")
Set nodx = TreeView1.Nodes.Add("root1", tvwChild, "root1b", "ÑÖÇ")
End Sub

kama2222

سه شنبه 26 آذر 1387, 19:11 عصر

error کد بالا این است : object variable or with block variable not set