比如
Dim nvb1 As WinForm.NavBar = e.Form.Controls("NavBar1") '定义指定导航栏为nvb1
nvb1.NavPages.Clear '清除指定的导航栏的页面
Dim Type1 As String = "NavPage"
Dim dt1 As DataTable
Dim cmd As new SQLCommand
cmd.CommandText="select * from {表A} where 控件类型= '" & type1 & "'"
dt1=cmd.ExecuteReader() '生成临时表
For Each dr1 As DataRow In dt1.DataRows
'Add(Name页面名称, ButtonText页面按钮标题, ButtonImageFile按钮图标文件)
'图标文件放大项目文件Images子目录下,就不无需指定路径
nvb1.NavPages.Add(dr1("页面名称"),dr1("按钮标题"),"")
Next