关于TreeView的问题，折腾我一天了

Dim MyDR As SqlDataReader = MyCommand.ExecuteReader()



            MyDS.Load(MyDR, LoadOption.OverwriteChanges, New String() {"Module"})

            

            Dim DV As DataView = MyDS.Tables(0).DefaultView



            DV.RowFilter = "ModuleOrder=0"



            If DV.Count > 0 Then



                For i As Integer = 0 To DV.Count - 1



                    Dim TV As TreeNode = New TreeNode



                    With TV

                        .Text = DV.Item(i).Item("ModuleName")

                        .Value = DV.Item(i).Item("ModuleID")

                        .Expanded = False

                    End With



                    

                    TreeView1.Nodes.Add(TV)



                    Dim DVP As DataView = MyDS.Tables(0).DefaultView



                    DVP.RowFilter = "ModuleOrder<>0 AND ModuleParent=" & _

                    DV.Item(i).Item("ModuleID").ToString()



                    If DVP.Count > 0 Then



                        For j As Integer = 0 To DVP.Count - 1



                            Dim TVP As TreeNode = New TreeNode



                            With TVP

                                .Text = DVP.Item(j).Item("ModuleName")

                                .Value = DVP.Item(j).Item("ModuleParent")

                                .NavigateUrl = DVP.Item(j).Item("ModulePage").ToString()

                                .Target = "_New"

                            End With



                            TV.ChildNodes.Add(TVP)

                            



                        Next



                    End If



                Next



            End If