|
|
Postada em 15/01/2008 16:20 hs
Olá, amigos. Estou com a seguinte dúvida. No meu projeto tenho uma tabela onde guardo as parcelas de um carnê. Assim: numcarne - codcliente - parcela1 - valor1 - pagto1 - parcela2 - valor2 - pagto2 quero mostrar numa ListView ( com CheckBox) os registros, consultando pelo numero do carne do cliente, para marcar quais eu quero dar baixa. Assim: parcela valor pagto ------- ------ -------- 01/2008 20,00 02/2008 20,00 Dessa forma, como faço para, marcando as CheckBox, adicionar na tabela a data de pagto, ou seja dar baixa nas parcelas que estão sendo pagas? |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 15/01/2008 16:25 hs
Perci tem jeito amanha posto um código pra você aguarde |
|
|
|
Perci
|
MATÃO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 15/01/2008 16:33 hs
Valeu amigão. Vou aguardar, pois preciso muito desse código. |
|
|
|
|
|
Postada em 15/01/2008 17:32 hs
Se me permitem colegas :) Remove:
For i = 1 To LV.ListItems.Count
If LV.ListItems(i).Checked Then
'código para atualizar tabela de parcelas
LV.ListItems.Remove i 'remove o item da lista
GoTo Remove
End If
Next i Ao remover o item o index dos elementos é alterado então chamo novamente o for..next espero que ajude... at+ |
|
|
|
Perci
|
MATÃO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/01/2008 07:43 hs
Valeu Ghost, mas e se eu quiser, ao invés de remover as parcelas da lista, aparecer na lista, mas sem a caixa o checkbox. Tem alguma maneira de aparecer dessa forma, na ListView? Pois eu não queria remover as parcelas, elas teriam que aparecer na ListView constando sua data de pagamento. |
|
|
|
|
|
Postada em 16/01/2008 10:22 hs
para continuar lá é só tirar esta linha: LV.ListItems.Remove i 'remove o item da lista Agora, não dá para no listview uns itens terem o checkbox e outros itens não terem o checkbox. Vc pode mudar a cor das parcelas já pagas mas eu acho que para o usuário não seria melhor aparecer um relatório só do que falta pagar?? E outro do que já foi pago? Seria um de contas a receber e outro de contas já pagas... Para mudar a linha inteira de cor faça assim: For i = 1 To LV.ListItems.Count
If LV.ListItems(i).Checked Then
'código para atualizar tabela de parcelas
LV.ListItems(i).Checked = False
LV.ListItems(i).ForeColor = vbBlue
LV.ListItems(i).Bold = True
For j = 1 To LV.ListItems(i).ListSubItems.Count
LV.ListItems(i).ListSubItems(j).ForeColor = vbBlue
LV.ListItems(i).ListSubItems(j).Bold = True
Next j
End If
Next i Espero que ajude alguma forma at+ |
|
|
|
