Popolando un Report "CrystalReport" realizzato con il "Crystal Report "di VB.NET 2002 tramite un DataSet, si puo fare un legame tra tabelle molteplici e non solamente tra 2 tabelle come si vede nel codice qui sotto ???
Ho una ListView Che elenca una serie di Anagrafiche:
nell'evento "DoubleClick" richiamo il Report in questione passandogli il DataSet:
<pre id=code><font face=courier size= id=code>
If lvwPratiche.SelectedItems.Count > 0 Then
Dim oConn As New SqlConnection("Data Source=127.0.0.1,1433; Network Library=DBMSSOCN; Initial Catalog=Web_Monster; User ID=sa; Password=;")
Dim myReport As New CrystalReport1()
Dim DS As New DataSet()
Dim rel1 As New DataColumn()
Dim rel2 As New DataColumn()
Dim myCondition As Integer = lvwPratiche.SelectedItems.Item(0).Text
oConn.Open()
Dim da As New SqlDataAdapter("SELECT ID_Anagrafica, RagSoc FROM Anagrafica", oConn)
da.Fill(DS, "Anagrafica")
Dim da2 As New SqlDataAdapter("SELECT ID_Pratica, ID_Anagrafica FROM Pratiche WHERE ID_Pratica='" & myCondition & "'", oConn)
da2.Fill(DS, "Pratiche")
oConn.Close()
rel1 = DS.Tables("Anagrafica").Columns("ID_Anagrafica")
rel2 = DS.Tables("Pratiche").Columns("ID_Anagrafica")
Dim relCustOrder As DataRelation
relCustOrder = New DataRelation("CustomersOrders", rel1, rel2)
DS.Relations.Add(relCustOrder)
myReport.SetDataSource(DS)
CrystalReportViewer1.ReportSource = myReport
End If
</font id=code></pre id=code>
Si possono fare legami con Molteplici tabelle ???