Allora, ti dico i passaggi chiave, così puoi consigliarmi dove sbaglio:
Dim listfornitore_datasource As New Microsoft.Reporting.WinForms.ReportDataSource
Dim dt_fornitore As New DataTable("Fornitore")
Dim Classe_fornitore As New DataLayer_t_ana_fornitori
dt_fornitore.Columns.Add("Codice", GetType(Decimal))
dt_fornitore.Columns.Add("Ragione_Sociale", GetType(String))
dt_fornitore.Columns.Add("Indirizzo", GetType(String))
dt_fornitore.Columns.Add("Stato", GetType(String))
dt_fornitore.Columns.Add("Cod_Rif_Forn", GetType(String))
dt_fornitore.Columns.Add("Città", GetType(String))
dt_fornitore.Columns.Add("Descrizione", GetType(String))
dt_fornitore.Columns.Add("Provincia", GetType(String))
dt_fornitore.Columns.Add("Nazione", GetType(String))
dt_fornitore.Columns.Add("Telefono", GetType(String))
dt_fornitore.Columns.Add("Fax", GetType(String))
dt_fornitore.Columns.Add("Mail", GetType(String))
dt_fornitore.Columns.Add("Referente", GetType(String))
RPTViewer_VerIspettiva.LocalReport.ReportPath = "E:\VSS\...\...\rptVerIspettiva.rdlc"
lista_fornitore = Classe_fornitore.Load(CDec(tbfFornitore.Values("Codice")), FormMain.centrale)
dt_fornitore.Rows.Add(lista_fornitore.Codice)
dt_fornitore.Rows(0).Item(1) = lista_fornitore.Ragione_Sociale
dt_fornitore.Rows(0).Item(2) = lista_fornitore.Indirizzo
dt_fornitore.Rows(0).Item(3) = lista_fornitore.Stato
dt_fornitore.Rows(0).Item(4) = lista_fornitore.Cod_Rif_Forn
dt_fornitore.Rows(0).Item(5) = lista_fornitore.Città
dt_fornitore.Rows(0).Item(6) = lista_fornitore.Descrizione
dt_fornitore.Rows(0).Item(7) = lista_fornitore.Provincia
dt_fornitore.Rows(0).Item(8) = lista_fornitore.Nazione
dt_fornitore.Rows(0).Item(9) = lista_fornitore.Telefono
dt_fornitore.Rows(0).Item(10) = lista_fornitore.Fax
dt_fornitore.Rows(0).Item(11) = lista_fornitore.Mail
dt_fornitore.Rows(0).Item(12) = lista_fornitore.Referente
listfornitore_datasource.Name = "ds_Vista_VerificaIspettiva"
listfornitore_datasource.Value = dt_fornitore
Me.RPTViewer_VerIspettiva.LocalReport.DataSources.Clear()
Me.RPTViewer_VerIspettiva.LocalReport.DataSources.Add(listfornitore_datasource)
Me.RPTViewer_VerIspettiva.LocalReport.Refresh()
Con questo codice non riesco ancora a visualizzare nulla.
Non ci sono errori secondo il compilatore, il datasource del report lo riempie ma non compare nulla a video se non il reportviewer vuoto.
Grazie mille per l'aiuto che mi dai!