|
|
Postada em 10/05/2006 13:52 hs
Pessoal,
Estou com o seguinte codigo dentro de um relatorio no Active Reports:
cnnpetro.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "SoftCalSOFTCAL.mdb"
Data1.ConnectionString = cnnpetro
Data1.Source = "select a.*,b.* from INSTRUMENTOS a, CERTIFICADOS b Where a.KEYINS = b.INSCTF AND (DTCCTF >=#" & Format(Petro.DTini.Value, "mm/dd/yyyy") & "# AND DTCCTF<=#" & Format(Petro.DTfim.Value, "mm/dd/yyyy") & "# AND PTFINS Like '%" & plat & "%')order by KEYINS, DTCCTF DESC"
Field1.DataField = "KEYINS"
Field2.DataField = "PTFINS"
Field3.DataField = "TAGINS"
Field4.DataField = "SERINS"
Field5.DataField = "FABINS"
Field6.DataField = "LOCINS"
Field7.DataField = "MODINS"
Field8.DataField = "CODCTF"
Field9.DataField = "DTCCTF"
cnnpetro.Close
Tudo funciona bem só que no textbox Field2.DataField = "PTFINS" queria substituir o conteudo que vem do banco de dados dessa forma:
Se for "1" escrever "PV"
Se for "2" escrever "VP"
Alguem saberia me ajudar??
Grato,
Flavio
|
|
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
Postada em 10/05/2006 14:12 hs
faz uma condicao if cara se form.txt.txt = 1 entao, field = pv , senao form.txt.txt =2 entao field = vp
Jesus Cristo é O Senhor!!!
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 10/05/2006 14:24 hs
Valeu Korn,
Já tentei isso e não sei pq não funcionou..
|
|
|
|
Daniel
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/05/2006 14:59 hs
a base é ACESS? se for faça, no exemplo estou supondo que PTFINS faz parte de Instrumentos: Data1.Source = "select a.*,b.*,IIf([INSTRUMENTOS]![PTFINS]=1,"PV","VP") AS Expr1 from INSTRUMENTOS a, CERTIFICADOS b Where a.KEYINS = b.INSCTF AND (DTCCTF >=#" & Format(Petro.DTini.Value, "mm/dd/yyyy") & "# AND DTCCTF<=#" & Format(Petro.DTfim.Value, "mm/dd/yyyy") & "# AND PTFINS Like '%" & plat & "%')order by KEYINS, DTCCTF DESC"
dsmn
|
|
|
|
|
|
Postada em 10/05/2006 15:01 hs
Só não esqueça que terá que substituir a linha abaixo : Field2.DataField = "Expr1"
dsmn
|
|
|
|
|
|
Postada em 10/05/2006 15:29 hs
Daniel,
Obrigado mas deu erro...
|
|
|
|
