|
|
Postada em 25/04/2009 12:09 hs
Em VB eu faço assim .... TbEmpresa.Codigo IN (1, 5, 8, 9) como isto é traduzido para passar para o Crystal ? .selectionformula = " ???? " Alguém sabe ? |
|
|
|
|
|
|
|
Postada em 26/04/2009 00:04 hs
Dim diai
Dim mesi
Dim anoi
Dim diaf
Dim mesf
Dim anof
diai = Day(DtInicial)
mesi = Month(DtInicial)
anoi = Year(DtInicial)
diaf = Day(DtFinal)
mesf = Month(DtFinal)
anof = Year(DtFinal)
CrystalReport1.SelectionFormula = "{ContasEstornadas.NomeDevedor}='" & DBGrid1.Columns("NomeDevedor") & "'" & _
" and {ContasEstornadas.DtEstorno} >= Date(" & anoi & "," & mesi & "," & diai & ") and " & _
"{ContasEstornadas.DtEstorno} <= Date(" & anof & "," & mesf & "," & diaf & ")"
'Na formula acima estou selecionando por nome do devedor e por período.
Espero ter ajudado.
Luciano.
|
|
|
|
|
|
Postada em 27/04/2009 14:10 hs
Obrigado Luciano, vi que tem como fazer. Mas o que eu queria mesmo era como ficaria exatamente e expressão que montei sem usar controles do VB. TbEmpresa.Codigo IN (1, 5, 8, 9) como isto é traduzido para passar para o Crystal ? .selectionformula = " ???? " Se alguém puder me dar mais alguma dica. |
|
|
|
marcos
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 28/04/2009 09:46 hs
SUPONDO QUE OS CODIGOS ESTEJAM EM UMA GRADE OU LISTA...
DIM MSQL AS STRING
FOR I = 0 TO LST.LISTCOUNT - 1
IF MSQL <> "" THEN MSQL=MSQL + " OR "
MSQL=MSQL+"{TABELA.CODIGO}=" & LST.LIST(I) & "
NEXT
RPT.SELECTIONFORMULA=MSQL
TENTA AI..
ABRACO!
|
|
|
|
|
|
Postada em 28/04/2009 20:39 hs
|
|
|
|
