05/04/2004, 07:20
|
 | | | Fecha de Ingreso: enero-2004
Mensajes: 519
Antigüedad: 21 años, 1 mes Puntos: 1 | |
| Si fuese un problema con el código tampoco funcionaria en W2000 no? Bueno, por si acaso
Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
strOrigenListado = "ReportAreas1"
fVisorGeneral.ShowDialog()
End Sub
Private Sub fVisor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
...................
............
If strOrigenListado = "ReportAreas1" Then
fVisorGeneral.Text = "Areen Txostena"
fAreasBase.DAAREAS1.Fill(fAreasBase.DataSet11.Tabl es("AREASBASE1"))
fAreasBase.DAMIENTIDAD1.Fill(fAreasBase.DataSet11. Tables("MIENTIDAD"))
ReportAreas1.SetDataSource(fAreasBase.DataSet11)
Viewer.ReportSource = ReportAreas1
Viewer.RefreshReport()
End If
.....................
..................
La variable reportAreas1 esta declarada en un modulo
Public ReportAreas1 As New CrystalReportAreas1 |