Treeview with Background worker ?

[dhilipkumar]

Treeview with Background worker ?

i have some problem that want you all save me...

check out my code:

Dim ArrMonth As String() = New String() {"January", "Febury", "March", "April", "May", "June", "July", "August", "September", "Octomber", "November", "December"}
    'Dim ArrNum As String() = New String() {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
    Dim ArrWeek As String() = New String() {"Week1", "Week2", "Week3", "Week4"}
    ds = db.Db_DistinctYear_Air
    If ds.Tables(0).Rows.Count > 0 Then
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            NodeM = NodeAir.Nodes.Add(ds.Tables(0).Rows(i).ItemArray(0).ToString)
            Dim sYear As String = ds.Tables(0).Rows(i).ItemArray(0).ToString
            For j As Integer = 0 To ArrMonth.Length - 1
                NodeW = NodeM.Nodes.Add(ArrMonth(j).ToString)

                For k As Integer = 0 To ArrWeek.Length - 1
                    Dim sBdate As Date : Dim sEdate As Date
                    P.Status = ArrWeek(k).ToString
                    P.IsYear = CInt(sYear)
                    P.IsMonth = ArrMonth(j).ToString
                    ds1 = db.Db_GetBDate_EDate_ByWeek_Air(P)
                    If ds1.Tables(0).Rows.Count > 0 Then
                        sBdate = ds1.Tables(0).Rows(0).ItemArray(0).ToString
                        sEdate = ds1.Tables(0).Rows(0).ItemArray(1).ToString
                        NodeW_Kind = NodeW.Nodes.Add(ArrWeek(k).ToString & " : " & sBdate & " To " & sEdate)
                        NodeW.ForeColor = Color.Red
                        ds2 = db.Db_GetKindName_ByWeek_Air(P)

                        If ds2.Tables(0).Rows.Count > 0 Then
                            For l As Integer = 0 To ds2.Tables(0).Rows.Count - 1
                                NodeW_Kind.Nodes.Add(ds2.Tables(0).Rows(l).ItemArray(0).ToString).BackColor = Color.FromArgb(200, 255, 255)
                            Next
                            NodeW_Kind.ForeColor = Color.FromArgb(100, 100, 0)
                        Else
                            NodeW_Kind.ForeColor = Color.Silver
                        End If
                    Else
                        NodeW.ForeColor = Color.Silver
                    End If

                Next
            Next
        Next
    End If

    ds = db.Db_DistinctYear_Bok
    If ds.Tables(0).Rows.Count > 0 Then
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            NodeB = NodeBok.Nodes.Add(ds.Tables(0).Rows(i).ItemArray(0).ToString)
            Dim sYear As String = ds.Tables(0).Rows(i).ItemArray(0).ToString
            For j As Integer = 0 To ArrMonth.Length - 1
                NodeW_B = NodeB.Nodes.Add(ArrMonth(j).ToString)

                For k As Integer = 0 To ArrWeek.Length - 1
                    Dim sBdate As Date : Dim sEdate As Date
                    P.Status = ArrWeek(k).ToString
                    P.IsYear = CInt(sYear)
                    P.IsMonth = ArrMonth(j).ToString
                    ds1 = db.Db_GetBdate_Edate_ByWeek_Bok(P)
                    If ds1.Tables(0).Rows.Count > 0 Then
                        sBdate = ds1.Tables(0).Rows(0).ItemArray(0).ToString
                        sEdate = ds1.Tables(0).Rows(0).ItemArray(1).ToString
                        NodeW_B_Kind = NodeW_B.Nodes.Add(ArrWeek(k).ToString & " : " & sBdate & " To " & sEdate)
                        ds2 = db.Db_GetKindName_ByWeek_Bok(P)
                        NodeW_B.ForeColor = Color.Red
                        If ds2.Tables(0).Rows.Count > 0 Then
                            For l As Integer = 0 To ds2.Tables(0).Rows.Count - 1
                                NodeW_B_Kind.Nodes.Add(ds2.Tables(0).Rows(l).ItemArray(0).ToString).BackColor = Color.FromArgb(200, 255, 255)
                            Next
                            NodeW_B_Kind.ForeColor = Color.FromArgb(100, 100, 0)
                        Else
                            NodeW_B_Kind.ForeColor = Color.Silver
                        End If
                    Else
                        NodeW_B.ForeColor = Color.Silver
                    End If
                Next
            Next
        Next
    End If
    TreView.ExpandAll()
End Sub

[dhoni]

tree view somewhat ok but it has big program in vb.net
how it can work with background on vb.net
this should get this program easily on .net with tree view