help su datalist

**dvd83i** · 01-08-2005, 18:53

Salve raga
ho preso lìesempio di questa link http://freeasp.html.it/articoli/view...olo.asp?id=207 e lo modificato così:

codice:

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">

    Sub Page_Load(Sender As Object, E As EventArgs)
    
         If Not Page.IsPostBack Then
    
             Dim ConnectionString As String = "server=(local);database=menu;user=sa"
             Dim CommandText As String = "select * from menu1"
    
             Dim myConnection As New SqlConnection(ConnectionString)
             Dim myCommand As New SqlDataAdapter(CommandText, myConnection)
    
             Dim ds As New DataSet()
             myCommand.Fill(ds,"menu1")
    
            DataList1.DataSource = ds.Tables("menu1").DefaultView
            DataList1.DataBind()
    
         End If
     End Sub
    
     Private Sub DataList1_ItemCommand(ByVal obj As Object, ByVal e As DataListCommandEventArgs)
         DataList1.SelectedIndex = e.Item.ItemIndex
         DataList1.DataBind()
     End Sub

</script>
<html>
<head>
</head>
<body>
    <form id="manuBar" runat="server">
        <asp:DataList id="DataList1" runat="server" OnItemCommand="DataList1_ItemCommand" DataKeyField="pulsID" RepeatDirection="Vertical" SelectedItemStyle-BackColor="#C0FFFF" HeaderStyle-BackColor="#FF8080" Width="150px" Font-Size="8pt" Font-Name="Verdana" CellPadding="3" GridLines="Both" BorderWidth="1" BorderColor="black">
            <SelectedItemStyle cssclass="item-select-bg"></SelectedItemStyle>
            <EditItemStyle cssclass="item-expanded-bg"></EditItemStyle>
            <ItemStyle cssclass="item-bg"></ItemStyle>
            <HeaderTemplate>
                <asp:Label id="Label1" forecolor="Blue" runat="server">Menu</asp:Label> 
            </HeaderTemplate>
            <ItemTemplate>
                <asp:LinkButton id="button1" CommandName="Select" text='<%# Container.DataItem("testoPuls") %>' Runat="server"></asp:LinkButton>
            </ItemTemplate>
            <SelectedItemTemplate>
                <%# Container.DataItem("testoPuls") %> +" "+ <%# Container.DataItem("pulsID") %> 
                

                <%# Container.DataItem("pulsID") %> 
            </SelectedItemTemplate>
        </asp:DataList>
    </form>
</body>
</html>

ma non va

Cosa può essere???

P.S. sono un novellino in asp.net e vb!!

**sms** · 01-08-2005, 19:59

non va: cosi vuol dire?
dà errore? se sì, quale?
non fa niente?

**dvd83i** · 02-08-2005, 09:20

Intanto grazie peravere risposto!!
Allora, facendolo girare in webmatrix, la schermata iniziale (ovvero il primo menù con le voci) compare ma quando clicco su di una voce non mi appare più nulla! Invece dovrebbe apparire ciò che ho inserito nel SelectedItemTemplate. Facendolo girare semplicemente in explorer, da errore di un ; in riferimento al page_load BOH!

Grazie e spero che tu mi possa aiutare!

P.S. potevi anche provarlo!!

**dvd83i** · 02-08-2005, 11:50

Mezzo EWWIWA !!!!

Ho modificato leggermente il codice ed ora sotto webMatrix mi funziona perfettamente!!!!

Questo è il cod mod:

codice:

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">

    Sub Page_Load(Sender As Object, E As EventArgs)
    
             If Not Page.IsPostBack Then
    
             BindList()
    
             End If
    
          End Sub
    
    
       Sub BindList()
    
                  Dim ConnectionString As String = "server=(local);database=menu;user=sa"
                  Dim CommandText As String = "select * from menu1"
    
                  Dim myConnection As New SqlConnection(ConnectionString)
                  Dim myCommand As New SqlDataAdapter(CommandText, myConnection)
    
                  Dim ds As New DataSet()
                  myCommand.Fill(ds,"menu1")
    
                 DataList1.DataSource = ds.Tables("menu1")
                 DataList1.DataBind()
          End Sub
    
    
    Private Sub DataList1_ItemCommand(ByVal obj As Object, ByVal e As DataListCommandEventArgs)
    
         DataList1.SelectedIndex = e.Item.ItemIndex
         BindList()  anziche DataList1.DataBind()
    
        End Sub

</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <asp:DataList id="DataList1" runat="server" Font-Names="Verdana" BorderColor="Black" BorderWidth="1px" GridLines="Both" CellPadding="3" Font-Name="Verdana" Font-Size="8pt" Width="150px" HeaderStyle-BackColor="#FF8080" SelectedItemStyle-BackColor="#C0FFFF" DataKeyField="pulsID" OnItemCommand="DataList1_ItemCommand">
            <SelectedItemStyle backcolor="#C0FFFF"></SelectedItemStyle>
            <HeaderTemplate>
                Menu 
            </HeaderTemplate>
            <SelectedItemTemplate>
                <table>
                    <tbody>
                        <tr>
                            <td>
                                <%# Container.DataItem("pulsID") %> 
                            </td>
                        </tr>
                    </tbody>
                </table>
            </SelectedItemTemplate>
            <ItemTemplate>
                <asp:LinkButton id="button1" CommandName="Select" text='<%# Container.DataItem("testoPuls") %>' Runat="server"></asp:LinkButton>
            </ItemTemplate>
            <HeaderStyle backcolor="#FF8080"></HeaderStyle>
        </asp:DataList>
    </form>
</body>
</html>

**dvd83i** · 02-08-2005, 11:55

Dimenticavo, rimane l'errore " Errore: previsto';' quando lo apro con IE sempre riferito alla riga 6 carattere 9 codice 0!!!

HELP!!!

**sms** · 02-08-2005, 14:33

Originariamente inviato da dvd83i
Dimenticavo, rimane l'errore " Errore: previsto';' quando lo apro con IE sempre riferito alla riga 6 carattere 9 codice 0!!!

HELP!!!

evidenzi la riga incriminata?

**dvd83i** · 02-08-2005, 15:20

non so qual'è la riga perchè non me la evidenzia!!!

Mi da solo quell'errore!!

P.S. Ho ancora ritoccato il mio codice:

codice:

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">

    Sub Page_Load(Sender As Object, E As EventArgs)
    
             If Not Page.IsPostBack Then
    
             BindList()
    
             End If
    
    End Sub
    
    
    Sub BindList()
    
      Dim ConnectionString As String = "server=(local);database=menu;user=sa"
      Dim CommandText As String = "select * from menu1"
    
      Dim myConnection As New SqlConnection(ConnectionString)
      Dim myCommand As New SqlDataAdapter(CommandText, myConnection)
    
      Dim ds As New DataSet()
      myCommand.Fill(ds,"menu1")
    
      DataList1.DataSource = ds.Tables("menu1")
      DataList1.DataBind()
    
    End Sub
    
    
    Sub BindLink()
    
      Dim ConnectionString1 As String = "server=(local);database=menu;user=sa"
      Dim CommandText1 As String = "select * from puls1"
    
      Dim myConnection1 As New SqlConnection(ConnectionString1)
      Dim myCommand1 As New SqlDataAdapter(CommandText1, myConnection1)
    
      Dim ds1 As New DataSet()
      myCommand1.Fill(ds1,"puls1")
    
      DataList2.DataSource = ds1.Tables("puls1")
      DataList2.DataBind()
    
    End Sub
    
    
    Private Sub DataList1_ItemCommand(ByVal obj As Object, ByVal e As DataListCommandEventArgs)
    
         DataList1.SelectedIndex = e.Item.ItemIndex
         BindList()
         BindLink()
    
    End Sub

</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <asp:DataList id="DataList1" runat="server" Font-Names="Verdana" BorderColor="Black" BorderWidth="1px" GridLines="Both" CellPadding="3" Font-Name="Verdana" Font-Size="8pt" Width="150px" HeaderStyle-BackColor="#FF8080" SelectedItemStyle-BackColor="#C0FFFF" DataKeyField="pulsID" OnItemCommand="DataList1_ItemCommand">
            <SelectedItemStyle backcolor="#C0FFFF"></SelectedItemStyle>
            <HeaderTemplate>
                Menu
            </HeaderTemplate>
            <SelectedItemTemplate>
                <%# Container.DataItem("testoPuls") %>
                <asp:DataList id="DataList2" runat="server" GridLines="Both" CellPadding="5" Font-Name="Verdana" Font-Size="8pt" Width="150px" DataKeyField="linkID">
                    <ItemTemplate>
                        <table>
                            <tbody>
                                <tr>
                                    <td>
                                        [img]c:\img\1.gif[/img]</td>
                                    <td>
                                        <asp:LinkButton id="link" Runat="server" text='<%# Container.DataItem("testoLink") %>'></asp:LinkButton>
                                    </td>
                                </tr>
                            </tbody>
                        </table>
                    </ItemTemplate>
                </asp:DataList>
            </SelectedItemTemplate>
            <ItemTemplate>
                <asp:LinkButton id="button1" CommandName="Select" text='<%# Container.DataItem("testoPuls") %>' Runat="server"></asp:LinkButton>
            </ItemTemplate>
            <HeaderStyle backcolor="#FF8080"></HeaderStyle>
            <EditItemTemplate>
                <table>
                    <tbody>
                        <tr>
                            <td>
                                [img][/img]</td>
                            <td>
                                link</td>
                        </tr>
                    </tbody>
                </table>
            </EditItemTemplate>
        </asp:DataList>
    </form>
</body>
</html>

Il webmatrix mi da questo errore:

Errore di compilazione
Descrizione: Errore durante la compilazione di una risorsa necessaria per soddisfare la richiesta. Rivedere i dettagli relativi all'errore e modificare in modo appropriato il codice sorgente.

Messaggio di errore del compilatore: BC30451: Nome 'DataList2' non dichiarato.

Errore nel codice sorgente:

Riga 43: myCommand1.Fill(ds1,"puls1")
Riga 44:
Riga 45: DataList2.DataSource = ds1.Tables("puls1")
Riga 46: DataList2.DataBind()
Riga 47:

Ke significa?? Io ho semlicemente ricopiato il BindList() e ne ho creato uno che si chaiama BindLink() "è una Datalist dentro una Datalist" Forse non si può fare???

Discussione: help su datalist

Strumenti discussione

Ricerca discussione

Visualizza

help su datalist

Permessi di invio