Ir para conteúdo
Fórum Script Brasil
  • 0

Formatação Num Flexgrid


rbordini

Pergunta

3 respostass a esta questão

Posts Recomendados

  • 0

depois de um final de semana rachando o coco, consegui resolver a parada blink.gif .... aí vai o resultado para quem se interessar:

---------------------

''Inicia o preenchimento do GRID

grid1.Row = 1

Do While Not mate.EOF ''Onde mate é o nome da minha tabela já aberta via SQL

grid1.Col = 2

grid1.Text = mate("qmi") ''mate é a tabela e qmi é o nome do campoa = CDbl(grid1) ''Armazena o valor da coluna para foprmatar condicionalmente

grid1.Col = 3

grid1.Text = mate("qtd")

b = CDbl(grid1) ''Armazena o valor da coluna para foprmatar condicionalmente

If b = 0 Or b = "" Then ''Aqui formata condicionalmente grid1.Col = 3

grid1.CellBackColor = &HFF&

ElseIf a > b Then

grid1.Col = 3

grid1.CellBackColor = &HC0FFFF

End If

a = ""

b = ""

mate.MoveNext

grid1.Rows = grid1.Rows + 1

grid1.Row = grid1.Row + 1

Loop

''-----

Sds,

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...