主题：帮忙完善代码

查找所有的二级菜单

Dim xx As WinForm.TopicBar = e.Form.Controls("TopicBar1")
Dim cmd As New SQLCommand
cmd.ConnectionName = "123"
Dim dt As DataTable
Dim i As Integer
cmd.CommandText = "select [菜单ID], [菜单名称], len(菜单ID) as 长度 fr om {View_1}"
dt = cmd.ExecuteReader
For Each dr As DataRow In dt.Select("长度 = 2")
    Dim p As WinForm.TopicPage = xx.Pages.Add(dr("菜单id"),dr("菜单名称"))
    For Each cdr As DataRow In dt.Select("菜单ID = '" & dr("菜单id") & "'")
        p.Links.Add(cdr("菜单id"),cdr("菜单名称"))
    Next
Next