Venho tentando mudar a cor de uma linha ou coluna no MsFlex, mas tudo que tento, não sai como o esperado.

Quero que em um cadastro de produto, na consulta os produtos que estiverem com estoque negativo, saiam em vermelho, no código abaixo, consegui fazer isto, mas ao entrar o grid em foco, ele não destaca a linha inteira, fica só algumas células destacadas, e também me traz no Top do Grid o ultimo registro, e quando clico no grid volta ao primeiro registro normal, mas sem clicar funciona de forma incorreta.

Alguém sabe, estou usando o código abaixo.

If dtaPRODUTO.Recordset.RecordCount > 0 Then
  msfPRODUTO.Visible = True
  iJ = 0
  For iJ = 0 To dtaPRODUTO.Recordset.RecordCount
   msfPRODUTO.TextMatrix(iJ, 2) = Format$(msfPRODUTO.TextMatrix(iJ, 2), "###,##0.000")
   msfPRODUTO.TextMatrix(iJ, 3) = Format$(msfPRODUTO.TextMatrix(iJ, 3), "###,##0.00")
   msfPRODUTO.TextMatrix(iJ, 4) = Format$(msfPRODUTO.TextMatrix(iJ, 4), "###,##0.00")
   sCOL = msfPRODUTO.TextMatrix(iJ, 2)
   If Val(sCOL) < 0 Then
    msfPRODUTO.Row = iJ
    msfPRODUTO.Col = 2
    msfPRODUTO.CellForeColor = vbRed
   End If
  Next
 Else
  msfPRODUTO.Visible = False
 End If

End Function

 

vlu//

 

Voce está usando a função errada é CellBackColor

 

   If Val(sCOL) < 0 Then
    msfPRODUTO.Row = iJ
    msfPRODUTO.Col = 2
    msfPRODUTO.CellBackColor = vbRed
   End If
 

Obrigado Daniel, mas a função é a mesma, fica do mesmo jeito, a diferença é que a cor de fundo que muda, eu quero só o texto, mas mesmo assim continua o defeito.

Ex-FatBoy, sim, vi a dica e funciona da forma que está o meu, se não clicar no Grid, fica todo esquisito e bagunçado.

Alguém tem sugestão?

 

Obrigado.

 

vlu//