CRYSTAL REPORT - PARAMETRO
Eu novamente pessoal 
,
Meu projeto é em VB6 e fiz a sql abaixo para montar meu relatorio no Crystal Report 8.0:
select
b.codrel,
b.codrel,
b.datarel,
c.nome,
b.fce,
b.codprojeto,
i.oc,
d.idld,
g.posicao,
h.desenho,
e.revisao,
d.qtdlib,
e.unidade,
g.descposicao,
e.observacao,
e.pesold,
b.norma,
b.observacao,
b.statusimp,
Upper(f.descricao)
from
tbfo as a
left join tbrelatorios as b on
b.fce = a.fce
left join tbclifor as c on
c.codclifor = a.codclifor
left join tbitemrelatorio as d on
d.codrel = b.codrel
left join tbitemld as e on
e.fce = b.fce and
e.codprojeto = b.codprojeto and
e.idld = d.idld
left join tbfases as f on
f.codprocesso = d.codprocesso and
f.codfase = d.codfase
left join tbposicoes as g on
g.codigopos = e.codposicao
left join tbdesenho as h on
h.codigodes = e.coddesenho
left join tbprojetos as i on
i.codprojeto = b.codprojeto
where
b.codrel =1
order by
b.codrel,
d.idld
Essa query funciona perfeitamente.
Meu problema eh nessa parte aki:
where b.codrel =1
codrel eh o campo onde eh armazenado os numeros dos relatorios. Eu estou informando o numero do relatorio direto no SQL e gostaria que utilizasse o textbox da imagem em anexo como parametro.
Grato
,Meu projeto é em VB6 e fiz a sql abaixo para montar meu relatorio no Crystal Report 8.0:
select
b.codrel,
b.codrel,
b.datarel,
c.nome,
b.fce,
b.codprojeto,
i.oc,
d.idld,
g.posicao,
h.desenho,
e.revisao,
d.qtdlib,
e.unidade,
g.descposicao,
e.observacao,
e.pesold,
b.norma,
b.observacao,
b.statusimp,
Upper(f.descricao)
from
tbfo as a
left join tbrelatorios as b on
b.fce = a.fce
left join tbclifor as c on
c.codclifor = a.codclifor
left join tbitemrelatorio as d on
d.codrel = b.codrel
left join tbitemld as e on
e.fce = b.fce and
e.codprojeto = b.codprojeto and
e.idld = d.idld
left join tbfases as f on
f.codprocesso = d.codprocesso and
f.codfase = d.codfase
left join tbposicoes as g on
g.codigopos = e.codposicao
left join tbdesenho as h on
h.codigodes = e.coddesenho
left join tbprojetos as i on
i.codprojeto = b.codprojeto
where
b.codrel =1
order by
b.codrel,
d.idld
Essa query funciona perfeitamente.
Meu problema eh nessa parte aki:
where b.codrel =1
codrel eh o campo onde eh armazenado os numeros dos relatorios. Eu estou informando o numero do relatorio direto no SQL e gostaria que utilizasse o textbox da imagem em anexo como parametro.
Grato
Só colocar assim:
where b.codrel = [Ô] & Val(TxtNumero.Text)
where b.codrel = [Ô] & Val(TxtNumero.Text)
Essa sql eu to usando no Crystal Report e eu acho q no Crystal nao da para passar parametros dessa forma. Tentei e nao aceitou 
Tenta assim, na hora que vc chama o relatório:
Filtro = [Ô]{b.codrel} = [Ô] & Val(TxtNumero.Text) & [Ô][Ô]
report.RecordSelectionFormula = Filtro
Filtro = [Ô]{b.codrel} = [Ô] & Val(TxtNumero.Text) & [Ô][Ô]
report.RecordSelectionFormula = Filtro
Olha soh,
declarei a variavel Filtro
Dim Filtro as Integer
o campo codrel eh numerico e o textbox tah numerico Val(TxtNumero.Text)
e tah dando esse erro:
Run-time error [ô]13[ô]:
type mismatch
declarei a variavel Filtro
Dim Filtro as Integer
o campo codrel eh numerico e o textbox tah numerico Val(TxtNumero.Text)
e tah dando esse erro:
Run-time error [ô]13[ô]:
type mismatch
Alterei alguma coisa e deu certo
Report.RecordSelectionFormula = [Ô]{ado.codrel} = [Ô] & Val(TxtNumero.Text)
MSMJUDAS sua ajuda foi de grande valia.
Mto obrigado
Report.RecordSelectionFormula = [Ô]{ado.codrel} = [Ô] & Val(TxtNumero.Text)
MSMJUDAS sua ajuda foi de grande valia.
Mto obrigado
Tópico encerrado , respostas não são mais permitidas