USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Crystal 8 e Vb6
Lucas Souza
não registrado
ENUNCIADA !
Postada em 26/08/2004 14:38 hs   
Ordenar relatorio pelo form! Como que eu adciono o order by
 
  Dim x As String
        x = FRmhonorários.fatura
        m_Report.RecordSelectionFormula = "{atendimentos.numerofat} = " & x & " "
         
 
   
Xevious
PORTO ALEGRE
RS - BRASIL
ENUNCIADA !
Postada em 26/08/2004 17:16 hs         
Assim com esta não da
teria que ser algo como
 
m_Report.RecordSelectionFormula = "Select * From atendimentos Order by numerofat"
   
Lucas Souza
não registrado
ENUNCIADA !
Postada em 26/08/2004 17:25 hs   
Já Tentei usar SQL naum aceita! Será que a unica solução é ir pelo ADODB?
   
Geronimo
Pontos: 2843
JOINVILLE
SC - BRASIL
ENUNCIADA !
Postada em 26/08/2004 18:44 hs            
Veja este exemplo:
Dim lFormulaF   As String
'Captura data inicial
lFormulaF = "({bolão.Data} >= DATE(" & Mid$(DataInicial.Text, 7, 4) & "," & Mid$(DataInicial.Text, 4, 2) & "," & Mid$(DataInicial.Text, 1, 2) & "))"
'Captura data final
lFormulaF = lFormulaF & " AND ({bolão.Data} <= DATE(" & Mid$(DataFinal.Text, 7, 4) & "," & Mid$(DataFinal.Text, 4, 2) & "," & Mid$(DataFinal.Text, 1, 2) & "))"
lFormulaF = lFormulaF & " AND {bolão.Nome} = '" & Nome.Text & "'"
Me.MousePointer = 11
    Crp.DataFiles(0) = App.Path & "olao.mdb"
    Crp.ReportFileName = App.Path & "Ficha.rpt"
    Crp.SelectionFormula = lFormulaF
    Crp.WindowState = crptMaximized
    Crp.Destination = crptToWindow
    Crp.Action = 1
Me.MousePointer = 0

"O pior inimigo que você poderá encontrar será sempre você mesmo."
   
Geronimo
Pontos: 2843
JOINVILLE
SC - BRASIL
ENUNCIADA !
Postada em 26/08/2004 18:49 hs            

"O pior inimigo que você poderá encontrar será sempre você mesmo."
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página