asp.net menü ve datalist

Visual basic , Delphi , C , C++ - asp.net menü ve datalist ...

Cevapla
asp.net menü ve datalist
sevenler12 isimli Üye şimdilik offline konumundadır

sevenler12

Öğrenci (Diğer) / Konya

Standart

asp.net menü ve datalist

Alt 21-05-2010 #1
Sponsorlu Bağlantılar

arkadaşlar bu sorun yaklaşık 3 haftadır çözülemedi, yardımcı olursanız sevinirim.

Sayfamda Bir Adet Menü ve Bir Adet Datalist Var.
load event şu şekilde

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Not Page.IsPostBack Then



PopulateMenu()

End If

yukle()

End Sub
Menüyü Şu Kodlarla Dolduruyorum :

Private Sub PopulateMenu()

Dim menuData As DataTable = GetMenuData()

AddTopMenuItems(menuData)

End Sub







Private Function GetMenuData() As DataTable

Dim selectCommand As String = "SELECT CategoryId,ParentId,Name FROM Categories"



Dim conString As String = WebConfigurationManager.ConnectionStrings("sqldata ").ConnectionString

Dim dad As SqlDataAdapter = New SqlDataAdapter(selectCommand, conString)

Dim dtblCategories As DataTable = New DataTable()

dad.Fill(dtblCategories)

Return dtblCategories

End Function











Private Sub AddTopMenuItems(ByVal menuData As DataTable)

Dim view As DataView = New DataView(menuData)

view.RowFilter = "ParentID IS NULL"





Dim row As DataRowView

For Each row In view

Dim NewMenuItem As MenuItem = New MenuItem(row("Name").ToString(), row("CategoryId").ToString())

Menu1.Items.Add(NewMenuItem)

AddChildMenuItems(menuData, NewMenuItem)

Next







End Sub



Private Sub AddChildMenuItems(ByVal menuData As DataTable, ByVal parentMenuItem As MenuItem)

Dim view As DataView = New DataView(menuData)

view.RowFilter = "ParentID=" + parentMenuItem.Value

Dim row As DataRowView

For Each row In view

Dim NewMenuItem As MenuItem = New MenuItem(row("Name").ToString(), row("CategoryId").ToString())

parentMenuItem.ChildItems.Add(NewMenuItem)

AddChildMenuItems(menuData, NewMenuItem)

Next













End Sub



Datalisti şu Kodlarla Dolduruyorum :



Private Sub Yukle()

Try



Sayfa = New PagedDataSource


Dim DataTable As New DataTable
Baglanti = New SqlConnection

Baglanti.ConnectionString = "Data Source=72.72.72.72;Initial Catalog=deneme;Persist Security Info=True;User ID=deneme;Password=deneme"





If Baglanti.State = ConnectionState.Closed Then Baglanti.Open()
command = New SqlCommand

command.Connection = Baglanti

command.CommandText = "SELECT * FROM Products where [email protected]"



command.Parameters.AddWithValue("@CategoryId", Menu1.SelectedValue)

Dim rs As SqlDataAdapter = New SqlDataAdapter(command) '
rs.Fill(DataTable)
Baglanti.Close()

Sayfa.DataSource = DataTable.DefaultView
Sayfa.AllowPaging = True
Sayfa.PageSize = 6
SayfaSayisi = Sayfa.PageCount - 1
Sayfa.CurrentPageIndex = SayfaNo
dtlist.DataSource = Sayfa
ReadSayfa()
Catch ex As Exception

Baglanti.Close()

End Try



End Sub



Sorun Şu :

datalistte listeleme yapmam için menüden herhangibir kaydı iki kere tıklamam gerekiyor. yani menüden seçtiğim kategoriyi bir kere tıkladığımda listeleme yapmıyor, aynı kategoriye ikinci kez tıkladığımda listelemeyi gerçekleştiriyior.

nasıl çözebilirim?
Bu mesajdan alıntı yap
Sponsor Links

Grafikerler.net Reklamları

Cevapla

Benzer Konular
Konu Konu Bilgileri Forum Cevaplar Son Mesaj
Açılan menü yapımı- show pop-up menü mt_design Dreamweaver 11 09-08-2009 16:44:14
restaurant menü & Bar menü sarinergiz Kitap kapağı, broşür, menü vb. 39 17-04-2009 12:35:14
menü ŞENGÜL BOZKURT Kitap kapağı, broşür, menü vb. 15 27-11-2008 14:37:18
menü ŞENGÜL BOZKURT Kitap kapağı, broşür, menü vb. 4 21-03-2008 09:38:57
sub menü rüvü* Flash 0 03-01-2008 13:41:29

Kapat
Şifremi Unuttum?