DATAREPORT
Erro:
Galera estou com um problema, esta dando a mensagem de erro quando tento preencher um datareport sem o dataenviroment
Segue o comando para preencher
With .Sections([Ô]Section6[Ô]).Controls
For I = 1 To .Count
If TypeOf .Item(I) Is RptTextBox Then
If I = 1 Then .Item(1).DataField = Rs(0).Name [ô]N Vale Frete
If I = 2 Then [ô]Nome motorista
.Item(2).DataField = IIf(Rs(3) = [Ô]A[Ô], Rs(1).Name, Rs(2).Name)
End If
If I = 3 Then .Item(3).DataField = IIf(IsNull(Rs(16).Name), [Ô][Ô], Rs(16).Name) [ô]Placa VeÃculo
If I = 4 Then .Item(4).DataField = Rs(4).Name [ô]Data Emissão
If I = 9 Then .Item(9).DataField = Rs(5).Name [ô]Data SaÃda
[ô] If i = 11 Then [ô]7 Then
[ô][ô] If Rs(10) = 4 Then [ô]Adiantamento
[ô] .Item(11).DataField = Rs(14).Name
[ô][ô] End If
[ô] End If
End If
Next I
End With
No datareport nenhum campo esta com o dataformat e eu não sei o que esta acontecendo
Imagem do datareport
Será que alguém pode me dar uma força, tenho um outro relatório que esta funcionando perfeitamente, só que ele não tem a clausula do group by, será que pode ser isso?
Galera estou com um problema, esta dando a mensagem de erro quando tento preencher um datareport sem o dataenviroment
Segue o comando para preencher
With .Sections([Ô]Section6[Ô]).Controls
For I = 1 To .Count
If TypeOf .Item(I) Is RptTextBox Then
If I = 1 Then .Item(1).DataField = Rs(0).Name [ô]N Vale Frete
If I = 2 Then [ô]Nome motorista
.Item(2).DataField = IIf(Rs(3) = [Ô]A[Ô], Rs(1).Name, Rs(2).Name)
End If
If I = 3 Then .Item(3).DataField = IIf(IsNull(Rs(16).Name), [Ô][Ô], Rs(16).Name) [ô]Placa VeÃculo
If I = 4 Then .Item(4).DataField = Rs(4).Name [ô]Data Emissão
If I = 9 Then .Item(9).DataField = Rs(5).Name [ô]Data SaÃda
[ô] If i = 11 Then [ô]7 Then
[ô][ô] If Rs(10) = 4 Then [ô]Adiantamento
[ô] .Item(11).DataField = Rs(14).Name
[ô][ô] End If
[ô] End If
End If
Next I
End With
No datareport nenhum campo esta com o dataformat e eu não sei o que esta acontecendo
Imagem do datareport
Será que alguém pode me dar uma força, tenho um outro relatório que esta funcionando perfeitamente, só que ele não tem a clausula do group by, será que pode ser isso?
qual a mensagem de erro?
ops.. ja vi a mensagem de erro ...
posta o codigo do relatorio que fica mais facil de identificar, mas acho que pode ser algo relacionado ao group by...
Segue
strSQL = [Ô]Select V.nvalefrete,M.Nome Agregado,P.Nome Parceiro,V.TipoMotorista,V.DataEmissao,V.DataSaida,V.DataChegada,V.SaldoInicial,V.SaldoAtualizado, LVF.CodValeFrete,LVF.CodLancamento , A.descricao,LVF.tipo,LVF.credito,LVF.debito, LVF.Data, Vei.Placa, R.Nome Remetente, D.Nome Destinatario, C.CodConhecimento [Ô]
strSQL = strSQL & [Ô]from ((((((((LancamentoValeFrete LVF [Ô]
strSQL = strSQL & [Ô]Inner Join Acertos A on A.codacerto = LVF.CodDescrLancamento ) [Ô]
strSQL = strSQL & [Ô]Inner join ValeFrete V on V.CodValeFrete=LVF.CodValeFrete ) [Ô]
strSQL = strSQL & [Ô]Left Join ValefretexConhecimento VFC on VFC.CodValeFrete = V.CodValeFrete ) [Ô]
strSQL = strSQL & [Ô]Left join Conhecimento C on C.NConhecimento= VFC.NConhecimento ) [Ô]
strSQL = strSQL & [Ô]Left Join Veiculos Vei on Vei.CodVeiculo = C.CodVeiculo)[Ô]
strSQL = strSQL & [Ô]Left Join Clientes R on R.CodCliente = C.CodRemetente ) [Ô]
strSQL = strSQL & [Ô]Left Join Clientes D on D.CodCliente = C.CodDestinatario ) [Ô]
strSQL = strSQL & [Ô]Left Join Motoristas M on M.CodMotorista = V.CodMotorista) [Ô]
strSQL = strSQL & [Ô]Left Join Parceiros P on P.CodParceiro = V.CodMotorista [Ô]
strSQL = strSQL & [Ô]group by V.nvalefrete,Agregado,Parceiro,V.TipoMotorista,V.DataEmissao,V.DataSaida,V.DataChegada,V.SaldoInicial,V.SaldoAtualizado, LVF.CodValeFrete,LVF.CodLancamento , A.descricao,LVF.tipo,LVF.credito,LVF.debito[Ô]
Eu colocando esse comando no banco, ele trás o resultado corretamente
strSQL = [Ô]Select V.nvalefrete,M.Nome Agregado,P.Nome Parceiro,V.TipoMotorista,V.DataEmissao,V.DataSaida,V.DataChegada,V.SaldoInicial,V.SaldoAtualizado, LVF.CodValeFrete,LVF.CodLancamento , A.descricao,LVF.tipo,LVF.credito,LVF.debito, LVF.Data, Vei.Placa, R.Nome Remetente, D.Nome Destinatario, C.CodConhecimento [Ô]
strSQL = strSQL & [Ô]from ((((((((LancamentoValeFrete LVF [Ô]
strSQL = strSQL & [Ô]Inner Join Acertos A on A.codacerto = LVF.CodDescrLancamento ) [Ô]
strSQL = strSQL & [Ô]Inner join ValeFrete V on V.CodValeFrete=LVF.CodValeFrete ) [Ô]
strSQL = strSQL & [Ô]Left Join ValefretexConhecimento VFC on VFC.CodValeFrete = V.CodValeFrete ) [Ô]
strSQL = strSQL & [Ô]Left join Conhecimento C on C.NConhecimento= VFC.NConhecimento ) [Ô]
strSQL = strSQL & [Ô]Left Join Veiculos Vei on Vei.CodVeiculo = C.CodVeiculo)[Ô]
strSQL = strSQL & [Ô]Left Join Clientes R on R.CodCliente = C.CodRemetente ) [Ô]
strSQL = strSQL & [Ô]Left Join Clientes D on D.CodCliente = C.CodDestinatario ) [Ô]
strSQL = strSQL & [Ô]Left Join Motoristas M on M.CodMotorista = V.CodMotorista) [Ô]
strSQL = strSQL & [Ô]Left Join Parceiros P on P.CodParceiro = V.CodMotorista [Ô]
strSQL = strSQL & [Ô]group by V.nvalefrete,Agregado,Parceiro,V.TipoMotorista,V.DataEmissao,V.DataSaida,V.DataChegada,V.SaldoInicial,V.SaldoAtualizado, LVF.CodValeFrete,LVF.CodLancamento , A.descricao,LVF.tipo,LVF.credito,LVF.debito[Ô]
Eu colocando esse comando no banco, ele trás o resultado corretamente
Alguém ...
Qual a linha de código que é destacada no ato do erro?
Tecla obrigado pelo retorno, o problema é que ele da o erro quando vai carregar o datareport na tela
Alguém ...
Alguém ....
Experimente mudar a forma como VINCULA os dados no RPT.
Alimente a propriedade DATASOURCE do RPT com o RS.
Exemplo:
Não esqueça de alterar o DATAFIELD dos campos.
Alimente a propriedade DATASOURCE do RPT com o RS.
Exemplo:
Set rpt.DataSource = rsNão esqueça de alterar o DATAFIELD dos campos.
Tópico encerrado , respostas não são mais permitidas