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