Dim simpul As Node
Dim sAkun As String
Dim sJudul As String
Dim sLevel As String
Set rsakun = OpenRs("select distinct(tingkat) from
table1", True)
jml = rsakun.RecordCount
For i = 1 To jml
Set rsakun = OpenRs("select * from table1 where
tingkat= '" & i & "'",
True)
While rsakun.EOF <> True
sAkun = Trim(rsakun!no_akun)
sJudul = Trim(rsakun!judul_akun)
If i = 1 Then
Set simpul = TreeView1.Nodes.Add(,
tvwChild, sAkun, sJudul)
'Set simpul = TreeView1.Nodes.Add("1000",
tvwChild, "1000",
"Aktiva LAncar")
ElseIf i <> 1 Then
Set simpul = TreeView1.Nodes.Add(sAkun,
tvwChild, sAkun, sJudul)
End If
rsakun.MoveNext
Wend
Next
==============================================
Minta tolong kasih tau error nya apanya...? udah g
ada Clue lagi ni....
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
