CRYSTAL COM PARAMETRO PARA DUAS TABELAS DO ACCESS

F5J5S52 26/04/2014 20:27:59
#437654

Tenho duas tabelas em meu Banco de dados Access 2007 - [Ô]CONDOMÍNIO e INADIMPLÊNCIA[Ô]

Criei um relatório Crystal via parâmetros para pegar os dados das duas tabelas, sendo no cabeçalho da página e no rodapé do relatório os dados da tabela Condomínio e para o detalhe os dados da tabela Inadimplência. Criei os seguintes códigos:

Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
Dim CN As New ADODB.Connection
Dim CN1 As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim RS1 As New ADODB.Recordset
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Private _isNull As Boolean
Dim V_Confirma As String
Dim RS11 As New ADODB.Recordset
Dim CN111 As New ADODB.Connection
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
CN1 = New ADODB.Connection [ô]conexao usando ADO
CN1.Open([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\abc condomínio\TABELASdoCONDOMÍNIO.mdb;[Ô])
RS = New ADODB.Recordset
RS.Open([Ô]select * from condomínio[Ô], CN1)
Dim V_EMP1 As String
Dim V_CNP1 As String
Dim V_END1 As String
Dim V_BAI1 As String
Dim V_CID1 As String
Dim V_SIN1 As String
Dim V_INI1 As String
Dim V_CAR1 As String
[ô]**********************************************
V_EMP1 = RS.Fields([Ô]EMPRESA[Ô]).Value [ô]= guardaTxt.Text & [Ô][Ô]
V_CNP1 = RS.Fields([Ô]CNPJ[Ô]).Value [ô]= guardaTxt.Text & [Ô][Ô]
V_END1 = RS.Fields([Ô]ENDEREÇO[Ô]).Value [ô]= guardaTxt.Text & [Ô][Ô]
V_BAI1 = RS.Fields([Ô]BAIRRO[Ô]).Value [ô]= guardaTxt.Text & [Ô][Ô]
V_CID1 = RS.Fields([Ô]CIDADE[Ô]).Value [ô]= guardaTxt.Text & [Ô][Ô]
V_SIN1 = RS.Fields([Ô]SÍNDICO[Ô]).Value [ô]= guardaTxt.Text & [Ô][Ô]
V_CAR1 = RS.Fields([Ô]CARGOSÍNDICO[Ô]).Value [ô]= guardaTxt.Text & [Ô][Ô]
V_INI1 = RS.Fields([Ô]INICIAL[Ô]).Value [ô]= guardaTxt.Text & [Ô][Ô]
Dim V_APTO1 As String [ô]Empresa
Dim V_VENC1 As String [ô]Cnpj
Dim V_MENS1 As String [ô]Endereço
Dim V_TEXT1 As String [ô]Bairro
Dim V_VRTO1 As String [ô]cidade
CN111 = New ADODB.Connection [ô]conexao usando ADO
CN111.Open([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ABC CONDOMÍNIO\TABELASdoCONDOMÍNIO.mdb;[Ô])
RS11 = New ADODB.Recordset
RS11.Open([Ô]select * from INADIMPLÊNCIA ORDER BY VENCIMENTO[Ô], CN111)
V_APTO1 = RS11.Fields([Ô]APARTAMENTO[Ô]).Value [ô]= guardaTxt.Text & [Ô][Ô] E
V_VENC1 = RS11.Fields([Ô]VENCIMENTO[Ô]).Value [ô]= guardaTxt.Text & [Ô][Ô]
V_MENS1 = RS11.Fields([Ô]MENSALIDADE[Ô]).Value [ô]= guardaTxt.Text & [Ô][Ô]
V_TEXT1 = RS11.Fields([Ô]TAXAEXTRA[Ô]).Value [ô]= guardaTxt.Text & [Ô][Ô]
V_VRTO1 = RS11.Fields([Ô]VRTOTAL[Ô]).Value [ô]= guardaTxt.Text & [Ô][Ô]
Dim rpt As New C1_Inadimp001
c1_inadimplências.CrystalReportViewer1.ReportSource = rpt
rpt.ParameterFields.Item([Ô]V_EMPRESA[Ô]).CurrentValues.AddValue(V_EMP1)
rpt.ParameterFields.Item([Ô]V_CNPJ[Ô]).CurrentValues.AddValue(V_CNP1)
rpt.ParameterFields.Item([Ô]V_ENDEREÇO[Ô]).CurrentValues.AddValue(V_END1)
rpt.ParameterFields.Item([Ô]V_BAIRRO[Ô]).CurrentValues.AddValue(V_BAI1)
rpt.ParameterFields.Item([Ô]V_CIDADE[Ô]).CurrentValues.AddValue(V_CID1)
rpt.ParameterFields.Item([Ô]V_SÍNDICO[Ô]).CurrentValues.AddValue(V_SIN1)
rpt.ParameterFields.Item([Ô]V_CARGOSÍNDICO[Ô]).CurrentValues.AddValue(V_CAR1)
rpt.ParameterFields.Item([Ô]V_INICIAL[Ô]).CurrentValues.AddValue(V_INI1)
rpt.ParameterFields.Item([Ô]V_Apartamento[Ô]).CurrentValues.AddValue(V_APTO1)
rpt.ParameterFields.Item([Ô]V_Apartamento[Ô]).CurrentValues.AddValue(V_APTO1)
rpt.ParameterFields.Item([Ô]V_Vencimento[Ô]).CurrentValues.AddValue(V_VENC1)
rpt.ParameterFields.Item([Ô]V_mensalidade[Ô]).CurrentValues.AddValue(V_MENS1)
rpt.ParameterFields.Item([Ô]V_TaxaExtra[Ô]).CurrentValues.AddValue(V_TEXT1)
rpt.ParameterFields.Item([Ô]V_vrtotal[Ô]).CurrentValues.AddValue(V_VRTO1)
c1_inadimplências.ShowDialog()
End Sub
End Class

O Relatório abre normalmente no CrystalReportViewer1 preenchendo o cabeçalho e o rodapé do relatório com os dados da tabela CONDOMÍNIO, porém quanto aos registros do Detalhe aparece somente o PRIMEIRO registro da tabela INADIMPLÊNCIA.
Peço, se possível, informarem o que ocorre e como deverei proceder.
Grato!