Ho il seguente problema:

Devo visualizzare il record di una tabella e con l'ID del record
devo estrarre i dati da una seconda tabella e visualizzarli sotto
il record della prima tabella.

L'idea era di creare un dataList all'interno del quale inserivo un
secondo DataList ma.... non funziona.

L' errore che viene visualizzato in compliazione e' il segente.
BC30451: Nome "Opzioni" non dichiarato

'**************************************
<script language="VB" runat="server">

Sub Page_Load(Sender As Object, E As EventArgs)
Lista()
end sub

Sub Lista()
Dim MyConnection as SqlConnection
Dim MyCommand as SqlDataAdapter
Dim MyCommand_1 as SqlDataAdapter
Dim ds as DataSet
Dim strSQL as string

PCCOM_PageLoad() 'informazioni DB SQL
Page.DataBind()
MyConnection = New SqlConnection(ConnectionString)

' ****************************************************************************************************** Categorie Prodotti **
strSQL = "SELECT * FROM VIEW_CategorieProdotti WHERE IDsquadra='" & Request("id") & "' ORDER BY Descrizione"

MyCommand = New SqlDataAdapter(strSQL, MyConnection)
ds = New DataSet()
MyCommand.Fill(ds, "VIEW_CategorieProdotti")

Categorie.DataSource = ds.Tables("VIEW_CategorieProdotti").DefaultView
Categorie.DataBind()

end sub

' *************** sub CHE NON FUNZIONA
sub Opzioni_1()
Dim EditText_1
Dim DescCategoria As HtmlInputText
Dim strSQL_2, a
Dim MyCommand_2 as SqlDataAdapter
Dim ds_2 as DataSet
Dim MyConnection_2 as SqlConnection

EditText_1 = "1"

strSQL_2="SELECT * FROM VIEW_Opzioni WHERE IDProdotto='" & EditText_1 & "'"

PCCOM_PageLoad()
Page.DataBind() 'Utilizzato quando si passano delle variabili da un URL ad un altro URL
MyConnection_2 = New SqlConnection(ConnectionString)

MyCommand_2 = New SqlDataAdapter(strSQL_2, MyConnection_2)
ds_2 = New DataSet()
MyCommand_2.Fill(ds_2, "VIEW_Opzioni")

Opzioni.DataSource = ds_2.Tables("VIEW_Opzioni").DefaultView
Opzioni.DataBind()

MyConnection_2.Close()
end sub

</script>

.......
<!-- ***** inizio DataList CATEGORIE ***** -->
<form method="POST" action="dettaglio.asp" runat="server">
<ASP:datalist id="Categorie" runat="server"
GridLines="Vertical"
Width="98%"
border="1"
BorderColor="#111111"
cellpadding="0"
cellspacing="0"
align="center"
Font-Names="Tahoma"
Font-Size="8pt"
ItemStyle-Backcolor="#E8E8E8"
AlternatingItemStyle-Backcolor="#D4D4D4"
AutoGenerateColumns="False"
DataKeyField="IDCategoria">

<ItemTemplate>


<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="50%"><%# DataBinder.Eval(Container.DataItem, "Descrizione")%>&nbsp;</td>
<td width="50%">
<asp:DropDownList id="Misura" DataSource=<%# Misura(Request("Categoria")) %> runat="server" />
</td>
</tr>
</table>

<!-- inizio OPZIONI -->

<ASP:datalist id="Opzioni" runat="server"
GridLines="Vertical"
Width="98%"
border="0"
ShowHeader="True"
cellpadding="0"
cellspacing="0"
align="center"
ItemStyle-Backcolor="#E8E8E8"
AlternatingItemStyle-Backcolor="#D4D4D4"
AutoGenerateColumns="False"
DataSource='<%# Opzioni_1() %>'
DataKeyField="IDCategoria">

<ItemTemplate>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="50%" align="right"><font size="2" face="Arial">xxxxx</font></td>
<td width="50%"><font size="2" face="Arial">cc</font></td>
</tr>
</table>


</ItemTemplate>
</ASP:datalist>


<!-- fine OPZIONI -->


</ItemTemplate>

</ASP:datalist>

</form>

</body>

</html>

---

Modificato da rdd il 23 gennaio 2003 16.32 -