Cor De Fundo De Msflexfrid

[zerebeu]

Boas

Gostaria de saver se existe maneira de um msflexgrid ter uma cor de fundo diferente no caso de este ter um registo??desde já agradeço :)

[lcs_sp]

não entendi, tente detalhar melhor.

você quer trocar a cor de fundo de uma flex ???

[zerebeu]

sim, ao fazer uma busca em sql, as células que contém registos ficam com uma cor de fundo diferente do branco

[lcs_sp]

vê se te ajuda:

linha=numero da linha que você quer trocar a cor

max = msflex.Cols - 1

For i = 0 To max

msflex.Row = linha

msflex.col = i

msflex.CellBackColor = &HC0FFC0 <-- insira aqui a cor

Next

[zerebeu]

Vou tentar ser mais explicito:

o programa consiste em gerir um complexo de campos de futsal. Os dados das horas e campos podem ser visualizados num msflexgrid...O que eu queria é que as reservas dos campos para aluguer(CellBackColor) ganhassem uma cor e as reservas para treinos ficassem com outra para ser mais fácil de distinguir para os treinadores...

exemplo:

"select campo1 from complexo where campo1 like '%Treino%'" --->queria que este resultado da query tivesse uma cor CellBackColor

"select campo1 from complexo where campo1 like '%Aluguer%'" --->queria que este resultado da query tivesse OUTRA CellBackColor

Aceito todas as sugestões....

[lcs_sp]

vê se é isso montei um sisteminha só pra ver se funciona e os campos de aluguel ficaram na cor verde, se precisar me manda seu email que te mando o fonte

Private Sub Form_Load()

Set cnn2 = CreateObject("ADODB.Connection")

cnn2.Open "DRIVER={MySQL ODBC 3.51 Driver};user=root;password=;server=127.0.0.1;database=test;option=20499"

Set rs2 = CreateObject("ADODB.RecordSet")

Set rs2.ActiveConnection = cnn2

ssql = "select * from complexo"

rs2.Open ssql, cnn2

Dim i As Integer

i = 0

Do While Not rs2.EOF

i = i + 1

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

MSFlexGrid1.TextMatrix(i, 0) = rs2(0)

MSFlexGrid1.Row = i

MSFlexGrid1.CellBackColor = IIf(rs2(0) = "ALUGUEL", &HC0FFC0, vbWhite)

rs2.movenext

Loop

End Sub

[zerebeu]

já mandei o meu mail para si aqui através do scriptbrasil...fico á espera do código-fonte...abraços