|
|
Postada em 18/10/2004 19:30 hs
Tenho uma grade onde é preenchida através de uma funçao , só que não consigo formatar a coluna 8 onde os valores são decimas (.00), pergunto será que é possivel através desta funçao.. Public Sub carregagrade()
TabelaContaapagar
TB_CONTAAPAGAR.LockType = adLockOptimistic
TB_CONTAAPAGAR.CursorType = adOpenStatic
TB_CONTAAPAGAR.CursorLocation = adUseClient
TB_CONTAAPAGAR.Open "SELECT * FROM CONTAS_PAGAR order by DATAPAGAMENTO ASC", BD_CAIXA
TB_CONTAAPAGAR.CacheSize = 30
grade.Visible = False
grade.Rows = TB_CONTAAPAGAR.RecordCount + 1
grade.Cols = TB_CONTAAPAGAR.Fields.Count - 1
grade.Row = 0
grade.Col = 0
grade.RowSel = grade.Rows - 1
grade.ColSel = grade.Cols - 1
grade.Clip = TB_CONTAAPAGAR.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString)
formatagrade
grade.Row = 1
grade.Visible = True
FechaTabelaContaapagar
End Sub Obs : A grade possui 8 colunas, |
|
|
|
|
|
Poca
|
SETE LAGOAS
MG - BRASIL
|
|
Postada em 19/10/2004 02:03 hs
ao carregar a SQL vc pode usar o comando FORMAT... a sintaxe deste comando é igual a da usada dentro do VB. exemplo: Select Format(CampoDaTabela,"##,##0.00") From CONTAS_PAGAR order .... Assim quando vc copiar e colar o recordset no Flexgrid, o campo já irá formatado... Pode parecer estranho o comando Format dentro da SQL, porém funciona normalmente... T+
Imagine um sistema (.exe) que vc pode programar códigos fontes dentro dele, mesmo com ele estando em execução no momento e ainda trabalhando em rede! Ficou confuso ??? Não entendeu como isso é possível ??? Componente: Macro pra VB6 / Desenvolvido por Kraysler. O teu sistema fica com recursos parecido com o que a linguagem SAP oferece. OBS.: Linguagem SAP = R$ 80.000,00 , talvez seja por isso que vc não tenha ouvido falar nela. Baixe um aplicativo Demo do componente: http://www.macrovb.cjb.net
|
|
|
|
|
|
Postada em 19/10/2004 09:16 hs
Amigo Poca : TB_CONTAAPAGAR.Open "SELECT FORMAT(VALOR,"##,##0.00")* FROM CONTAS_PAGAR order by DATAPAGAMENTO ASC", BD_CAIXA
Deste jeito ele está dando erro nas "# antes mesmo de compilar. |
|
|
|
|
|
Postada em 19/10/2004 15:41 hs
Será que não tem como gravar os dados no bd já formatados tipo na grade os valores estão vindo assim. 5 10 6,5 15,4 é como esta no Access, não teria como na hora da inclusão ele gravar assim: 5,00 10,00 6,50 Talves resolveria ou será que o MSFlexrgrid por padrão ele não formata. |
|
|
|
Poca
|
SETE LAGOAS
MG - BRASIL
|
|
Postada em 20/10/2004 02:31 hs
Ricardo, Desculpa.... o exemplo que te dei está com aspas duplas... troque por aspas simples que irá funcionar... vale lembrar que vc não pode colocar aquele asterisco depois do FORMAT. Se vc quiser que a SQL tenha mais campos é só colocar a vírgula e o nome do campo coloque assim: exemplo simples: "SELECT FORMAT(VALOR,'##,##0.00') FROM CONTAS_PAGAR order by DATAPAGAMENTO" exemplo com mais campos: "SELECT FORMAT(VALOR,'##,##0.00'), NomeOutroCampo FROM CONTAS_PAGAR order by DATAPAGAMENTO" T+
Imagine um sistema (.exe) que vc pode programar códigos fontes dentro dele, mesmo com ele estando em execução no momento e ainda trabalhando em rede! Ficou confuso ??? Não entendeu como isso é possível ??? Componente: Macro pra VB6 / Desenvolvido por Kraysler. O teu sistema fica com recursos parecido com o que a linguagem SAP oferece. OBS.: Linguagem SAP = R$ 80.000,00 , talvez seja por isso que vc não tenha ouvido falar nela. Baixe um aplicativo Demo do componente: http://www.macrovb.cjb.net
|
|
|
|
|
