Postada em 12/07/2012 08:17 hs
opa Marcio..preciso sim..se puderes me manda ... outra coisa..tenho um combobox onde em
determinada linhas deveriam ficar no cor vermelha porem nao estou conseguindo,tu sabe como fazer ??? abaixo como eu fiz mas nao funcionou:
Dim wl_select As String
Dim cur_DadosForm As Recordset
Dim WL_EXCLUIDO As Integer
Dim wl_Cont As Integer
wl_Cont = 0
DTX_QUAIS_CONTRATOS.Clear
wl_select = "SELECT * FROM CLIENTE (INDEX = IK_CLIENTE_POR_NOME)"
wl_select = wl_select & " WHERE "
wl_select = wl_select & " NM_CLIENTE = '" & DTX_NM_CLIENTE & "'"
If KTX_NR_CGC <> "0" Then
wl_select = wl_select & " AND NR_CGC = " & KTX_NR_CGC & ""
End If
Set cur_DadosForm = db.OpenRecordset(wl_select)
With cur_DadosForm
If .EOF Then
sl_limparDadosForm
End If
Do While Not .EOF
DTX_QUAIS_CONTRATOS.AddItem IIf(IsNull(!nr_contrato), "0", !nr_contrato)
WL_EXCLUIDO = IIf(IsNull(!FL_CLIENTE_EXCLUIDO), "0", !FL_CLIENTE_EXCLUIDO)
If WL_EXCLUIDO = "0" Then
DTX_QUAIS_CONTRATOS.itemData(DTX_QUAIS_CONTRATOS.NewIndex) = vbBlue
Else
DTX_QUAIS_CONTRATOS.itemData(DTX_QUAIS_CONTRATOS.NewIndex) = vbRed ''VERMELHO, NÃO PAGO
End If
.MoveNext
wl_Cont = wl_Cont + 1
Loop
.Close
End With
|
