Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 24/08/2005 09:36 hs
Huber, Nao desista  , pois o msflex tem varios recursos e vantagens sobre o dbgrid. No inicio tambem tive dificuldade em migrar mais depois o resultado é muito bom pois voce tera mais flexibilidade e um acabamento melhor. Coloque Fillstyle = 1 --> O seu esta como single e ele deve ser repeat para funcionar Selectmode = 1 --> Para marcar a linha toda. Para marca a linha faca mfg_aux.Row = 10 ' Toca a cor da linha 10
mfg_aux.ColSel = mfg_aux.Cols - 1
mfg_aux.CellBackColor = QBColor(5) ' Define a cor
Se for um programa pequeno, se quizer me envie que vejo o que esta errado. Mais nao desista. 
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
|
|
|
|
Postada em 24/08/2005 09:48 hs
Huber, se vc deixar o SelectionMode para ByRow, vc nao precisa mais da rotina pra mudar a cor de linha... basta mover a linha usando o valor da propriedade Row... Faça um teste, com SelectionMode = byRow, e tira a funcao para mudar a cor... testa e me fala... Se nao funcionar, zipa o projeto e manda pro meu e-mail pra eu dar uma olhada... ai eu comento o codigo pra vc... ah, lembra de mandar tb o banco, se for access... Flw!
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 21/12/2008 01:14 hs
Como faço pra somar um TextMatrix
Ex:
' no caso o valor unitario
grdPesquisa.TextMatrix(1, 6) = "Produto"
grdPesquisa.TextMatrix(1, 7) = "Unitario" <---- '** Somar esta **
depois sair a soma dessa coluna, cada vez que pesquisa tem colunas diferentes de valores
txtSoma.Text = ?????
Obrigado
|
|
|
|
ALBERTO
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 30/01/2009 15:24 hs
FLEXGRID E SCROLLBAR
Ola.
Tenho uma tabela de produtos e uso o Msflexgrid para exibir os dados. Eu utilizo o metodo Find Min para encontrar os dados do recordset e depois eu movo meu Flex para a linha onde contem a informação... porem quando essa linha foge da area do flex, ele nao move o Scroolbar ate a linha selecionada...
Teria como ir ate uma linha "msflexgrid1.row=44" e ele ir ate ela movendo o scrollbar ate essa linha????
um grande abraço
|
|
|
|
|
|
Postada em 30/01/2009 16:01 hs
Olá a todos!
Huber, tenho essa Sub para colorir FlexGrid... dê uma olhada e veja se consegue adaptar para você.
Sub ColorirGrid()
Linha = 1
Do While Linha <= Grd.Rows - 1
Grd.Row = Linha
Coluna = 0
If (Linha Mod 2 <> 0) Then
Do While Coluna <= Grd.Cols - 1
Grd.Col = Coluna
Grd.CellBackColor = RGB(255, 255, 255)
Coluna = Coluna + 1
Loop
Else
Do While Coluna <= Grd.Cols - 1
Grd.Col = Coluna
Grd.CellBackColor = RGB(247, 247, 247)
Coluna = Coluna + 1
Loop
End If
Linha = Linha + 1
Loop
End Sub
Tenta ai e depois posta o resultado pra gente.
Epero ter ajudado!!!
Abraços!!! 
by
Gustavo Bittencourt Costa
|
|
|
|
