29 Next 30 End If 31 End Sub 32 33 Sub addnode()Sub addnode(ByVal pnode As MenuItem, ByVal pid As Integer) 34 Dim menunode As MenuItem 35 Dim j As Integer 36 mydv.RowFilter = "parentid=" & pid 37 For j = 0 To mydv.Count - 1 38 menunode = New MenuItem 39 menunode.Text = mydv.Item(j).Item("text") 40 menunode.Value = mydv.Item(j).Item("id") 41 menunode.Enabled = mydv.Item(j).Item("Enabled") 42 menunode.Target = mydv.Item(j).Item("Target") 43 menunode.NavigateUrl = mydv.Item(j).Item("url") 44 pnode.ChildItems.Add(menunode) 45 addnode(menunode, menunode.Value) 46 mydv.RowFilter = "parentid=" & pid 47 Next 48 49 End Sub 50 51 Function GetDataView()Function GetDataView(ByVal Sql As String, ByVal strTable As String) As DataView 52 Dim myDataAdapter As SqlDataAdapter 53 Dim myDataSet As DataSet 54 myConn.Open()
精品推荐