제가 DB에서 리스트목록을 불러와서
트리뷰의 세부항목을 '대분류', '중분류', '소분류' 이렇게 불러오고싶어서 코드를 짜봤습니다.
아래와 같이요. 그런데 실행이 안 되네요... 오류가 뜨는게 아니라 프로그램은 실행되는데
창이 뜨질 않아요.
아래 '3번루프'라고 주석달려있는 구간만 지우면 창이 정상적으로 뜨고 원하는대로 되는데, 왜 3번루프를 포함시키면 창이 안 뜰까요...
Public Class list
Public Sub list_load()
Me.BigClassTableAdapter1.Fill(DatabaseDataSet1.BigClass)
Me.MiddleClassTableAdapter1.Fill(DatabaseDataSet1.MiddleClass)
Me.SubClassTableAdapter1.Fill(DatabaseDataSet1.subClass)
Dim intBigCount, intMidCount, intSubCount As Integer ' Item의 Index 번호
Dim colorName As String
Dim intBC, intMC As Integer ' Table의 Count_Column
Dim intMn, intSn As Integer ' Nodes의 갯수
Dim BigNode As DatabaseDataSet.BigClassDataTable
BigNode = DatabaseDataSet1.BigClass
Dim MidNode As DatabaseDataSet.MiddleClassDataTable
MidNode = DatabaseDataSet1.MiddleClass
Dim SubNode As DatabaseDataSet.subClassDataTable
SubNode = DatabaseDataSet1.subClass
colorName = Panel1.BackColor.Name
TreeView1.BackColor = Color.FromName(colorName)
TreeView1.BorderStyle = Windows.Forms.BorderStyle.None
TreeView1.ShowPlusMinus = True
TreeView1.ShowRootLines = True
intBigCount = 0
Do Until intBigCount = BigNode.Count '1번 루프
TreeView1.Nodes.Add(BigNode.Item(intBigCount).Name.ToString)
intBC = BigNode.Item(intBigCount).Count
intMidCount = 0
intMn = 0
Do While intMn <> intBC '2번 루프
If BigNode.Item(intBigCount).BCode Like MidNode.Item(intMidCount).BCode = True Then '1번 mid if
TreeView1.Nodes(intBigCount).Nodes.Add(MidNode.Item(intMidCount).Name.ToString)
intMn += 1
intMC = MidNode.Item(intMidCount).Count
intSubCount = 0
intSn = 0
------------------------------------------------------------------------------------------------------------------------
Do While intSn <> intMC '3번 루프
If MidNode.Item(intMidCount).MCode Like SubNode.Item(intSubCount).MCode = True Then
TreeView1.Nodes(intBigCount).Nodes(intMidCount).Nodes.Add(SubNode.Item(intSubCount).Name.ToString)
intSn += 1
End If
Loop '3번 루프
------------------------------------------------------------------------------------------------------------------------
End If '1번 mid if
intMidCount += 1
Loop '2번 루프
intBigCount += 1
Loop '1번 루프
TreeView1.Nodes.Add(intBigCount)
End Sub
End Class
글쓰기