我需要做一个动态导航条,从数据库里读取数据,需要一个2级菜单,大家能给点思路吗?最好有例子的 谢谢你的
解决方案 »
- asp.net wap网站开发,控件换行问题
- 江湖救急~~关于基于ASP.NET和SQL的软件开发设计
- 一个简单的asp页面设计的问题~~~~~
- psd,ai等图片格式转换成jpeg(100分求答案)
- 为什么不建一个ASP.NET2.0的模块呢?
- 在 asp.net 中怎样实现上传,下载文件的功能
- 最后10分 ,在用户控件里面拖放进去一些label,可是根本无法随意拖放位置,很难排版,应该怎么做啊?
- 求ASP.NET2.0或3.0安裝程序下載地址
- gb2312 to big5的问题
- ^^^请问进入系统时,如何页面最大化???
- repeater绑定两个表属性。。
- |zyciis| 如何在后台cs中更新前台的实时代码 谢谢 有得变态和难度
'参数
Public Sub 导航填充(ByVal 导航控件 As Menu, ByVal SQL As String, ByVal 跟目录参数 As String, ByVal 代码字段 As String, ByVal 文本字段 As String, ByVal 父级代码字段 As String, ByVal URL字段 As String, ByVal IMG字段 As String, ByVal 打开方式字段 As String)
Dim I As Integer = 0
Dim DS As DataSet = (New AutoCommon.数据操作).获取数据集(SQL)
Dim DV As New DataView(DS.Tables(0))
DV.RowFilter = 父级代码字段 + " ='" & 跟目录参数 & "'"
For Each Row As DataRowView In DV
导航填充(导航控件, Row(文本字段).ToString(), Row(URL字段).ToString(), Row(IMG字段).ToString(), Row(打开方式字段).ToString())
Dim DV2 As DataView = DV
DV2.RowFilter = 父级代码字段 + " ='" + Row(代码字段).ToString() + "'"
If DV2.Count > 0 Then
For Each Row2 As DataRowView In DV2
子导航填充(导航控件, Row2(文本字段).ToString(), Row2(URL字段).ToString(), Row2(IMG字段).ToString(), Row2(打开方式字段).ToString(), I)
Next
End If
I = I + 1
Next
End Sub Protected Sub 导航填充(ByVal 导航控件 As Menu, ByVal 文本 As String, ByVal URL As String, ByVal IMG As String, ByVal Target As String)
Dim 控件 As New MenuItem()
控件.NavigateUrl = URL
控件.Text = 文本
控件.Target = Target
控件.ImageUrl = IMG
导航控件.Items.Add(控件)
End Sub Protected Sub 子导航填充(ByVal 导航控件 As Menu, ByVal 文本 As String, ByVal URL As String, ByVal IMG As String, ByVal Target As String, ByVal i As Integer)
Dim 控件 As New MenuItem()
控件.NavigateUrl = URL
控件.Text = 文本
控件.Target = Target
控件.ImageUrl = IMG
导航控件.Items(i).ChildItems.Add(控件)
End Sub