Ciao Moreno,
ti ringrazio per le dritte, ho provato a seguire il tuo esempio ma mi sa che sbaglio qualche cosa, perché la dorpdowlist sembra non caricare i dati, o meglio guardando con il debug sembra che effettivamente il programma passi di da "OttieniOpzioni" e carica correttamente i dati prelevati dalla tabella, ma non me li fa vedere, non riesco a capire dove sbaglio.
ti riporto parte del codice.
<asp:GridView ID="dgvOggettiObbligatori" runat="server"
AllowSorting="True" AutoGenerateColumns="False"
CssClass="TexBoxNumericoDx">
<Columns>
<asp:BoundField DataField="IDOggettoTipo" HeaderText="IDOggettoTipo"
SortExpression="IDOggettoTipo" />
<asp:BoundField DataField="Codice" HeaderText="Codice"
SortExpression="Codice" />
<asp:BoundField DataField="Descrizione" HeaderText="Descrizione"
SortExpression="Descrizione" />
<asp:TemplateField>
<ItemTemplate>
<asp:DropDownList ID="IDOggetto" runat="server">
</asp:DropDownList>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Prezzo" HeaderText="Prezzo"
SortExpression="Prezzo" />
</Columns>
</asp:GridView>
table = New DataTable
table.Columns.Add("IDOggettotipo", GetType(Integer))
table.Columns.Add("Codice", GetType(String))
table.Columns.Add("Descrizione", GetType(String))
table.Columns.Add("IDOggetto", GetType(Integer))
table.Columns.Add("Prezzo", GetType(Double))
For i = 0 To objDataSetOggettiTipo.Tables(0).Rows.Count - 1
table.Rows.Add(objDataSetOggettiTipo.Tables(0).Rows(i).Item("IDOggettoTipo"), objDataSetOggettiTipo.Tables(0).Rows(i).Item("Codice"), objDataSetOggettiTipo.Tables(0).Rows(i).Item("Descrizione"), 1, 0)
Next
Protected Sub dgvOggettiObbligatori_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles dgvOggettiObbligatori.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim ddl = CType(e.Row.FindControl("IDOggetto"), DropDownList)
Dim opzioni = OttieniOpzioni(e.Row.DataItem("IDOggettotipo"))
ddl = New DropDownList
ddl.DataSource = opzioni
ddl.DataTextField = "DescrizioneOggetto"
ddl.DataValueField = "IDOggetto"
ddl.DataBind()
ddl.SelectedValue = e.Row.DataItem("IDOggetto")
End If
End Sub
Private Function OttieniOpzioni(id As Integer) As List(Of Genere)
Dim objDataAdapterOggetti As SqlDataAdapter
Dim objDataSetOggetti As DataSet
Dim objConnection As New SqlConnection()
Dim listaOpzioni As New List(Of Genere)
objConnection = New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("HTS_GestioneConnectionString").ToString())
objConnection.Open()
Try
objDataAdapterOggetti = New SqlDataAdapter()
objDataAdapterOggetti.SelectCommand = New SqlCommand()
objDataAdapterOggetti.SelectCommand.Connection = objConnection
objDataAdapterOggetti.SelectCommand.CommandText = "SELECT * FROM VW_C_Oggetti WHERE IDOggettoTipo = " & id & " AND Obbligatorio = 1 AND Disattivo = 0 ORDER BY Descrizione"
objDataSetOggetti = New DataSet()
objDataAdapterOggetti.Fill(objDataSetOggetti, "Oggetti")
If objDataSetOggetti.Tables(0).Rows.Count > 0 Then
For i = 0 To objDataSetOggetti.Tables(0).Rows.Count - 1
listaOpzioni.Add(New Genere With {.DescrizioneOggetto = objDataSetOggetti.Tables(0).Rows(i).Item("Descrizione"), .IDOggetto = objDataSetOggetti.Tables(0).Rows(i).Item("IDOggetto")})
Next
End If
Catch ex As Exception
ClsFileLog.ScriviLog(ex.Message, HttpContext.Current.Session("User"))
End Try
objDataAdapterOggetti = Nothing
objDataSetOggetti = Nothing
objConnection.Close()
Return listaOpzioni
End Function
Public Class Genere
Private Descrizione As String
Public Property DescrizioneOggetto() As String
Get
Return Descrizione
End Get
Set(ByVal value As String)
Descrizione = value
End Set
End Property
Private Id As String
Public Property IDOggetto() As String
Get
Return Id
End Get
Set(ByVal value As String)
Id = value
End Set
End Property
End Class
