Perci
|
MATÃO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 16/01/2008 10:26 hs
Valeu mais uma vez, Ghost, eu acho que a solução vai ser esta mesmo. Eu achei (e até postei perguntando sobre isso), que a ListView permitisse fazer isso, mas como não tei jeito, vou alterar o projeto. Obrigado. Valeu!
Nunca diga a Deus que você tem um grande problema,
Diga ao problema que você tem um GRANDE DEUS.
|
|
|
|
|
|
KoRn
|
SAO PAULO
SP - BRASIL
|
|
Postada em 16/01/2008 11:18 hs
Perci , eu tenho um projeto de parcelas, que to com a mesma duvida , na hora de baixar é mor problema , eu postei aki o meu projeto , sera que nao tinha como agente trocar essa ideia aew sobre esse tipo de projeto ?/ |
|
|
|
|
|
Postada em 16/01/2008 11:44 hs
Então... só como idéia vc pode fazer no mesmo listview um filtro... para mostrar parcelas baixadas, não baixadas e todas.... identificando, qdo for todas pela cor mesmo... e lógico fazer a consistência para não baixar parcela já baixada... |
|
|
|
KoRn
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/01/2008 11:51 hs
Aew ghost sem querer me meter aew de novo, mas....isso aew vc tem em demo ? |
|
|
|
Perci
|
MATÃO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/01/2008 14:26 hs
Ghost, eu fiz quase isso. Criei 3 OptionButons> Pagas, Em Aberto e Todas. Aquela que for selecionada, eu fiz o filtro e mostro na ListView. Sem precisar alterar as cores. E se interessar ao Korn, o meu projeto ficou assim: Private Sub PreencheLista()
LstParcelas.ListItems.Clear
If OptAberto.Value = True Then
BtnBaixar.Enabled = True
TxtDataBaixa.Enabled = True
LstParcelas.Checkboxes = True
sqlcarnes = "Select * From Carnes Where numerocarne = " & TxtNumeroCarne.Text & " And pagto Like '" & "'"
Set rscarnes = db.OpenRecordset(sqlcarnes)
If rscarnes.EOF Then
Exit Sub
End If
While Not rscarnes.EOF
Set linha = LstParcelas.ListItems.Add(, , rscarnes("parcela"))
linha.SubItems(1) = "" & Format$(Format$(rscarnes("valor"), "##0.00"), "@@@@@@")
linha.SubItems(2) = "" & Format(rscarnes("pagto"), "dd/mm/yyyy")
rscarnes.MoveNext
Wend
ElseIf OptPagas.Value = True Then
BtnBaixar.Enabled = False
TxtDataBaixa.Enabled = False
LstParcelas.Checkboxes = False
sqlcarnes = "Select * From Carnes Where numerocarne = " & TxtNumeroCarne.Text & " And pagto <> '" & "'"
Set rscarnes = db.OpenRecordset(sqlcarnes)
If rscarnes.EOF Then
Exit Sub
End If
While Not rscarnes.EOF
Set linha = LstParcelas.ListItems.Add(, , rscarnes("parcela"))
linha.SubItems(1) = "" & Format$(Format$(rscarnes("valor"), "##0.00"), "@@@@@@")
linha.SubItems(2) = "" & Format(rscarnes("pagto"), "dd/mm/yyyy")
rscarnes.MoveNext
Wend
ElseIf OptTodas.Value = True Then
BtnBaixar.Enabled = False
TxtDataBaixa.Enabled = False
LstParcelas.Checkboxes = False
sqlcarnes = "Select * From Carnes Where numerocarne = " & TxtNumeroCarne.Text
Set rscarnes = db.OpenRecordset(sqlcarnes)
If rscarnes.EOF Then
Exit Sub
End If
While Not rscarnes.EOF
Set linha = LstParcelas.ListItems.Add(, , rscarnes("parcela"))
linha.SubItems(1) = "" & Format$(Format$(rscarnes("valor"), "##0.00"), "@@@@@@")
linha.SubItems(2) = "" & Format(rscarnes("pagto"), "dd/mm/yyyy")
rscarnes.MoveNext
Wend
End If
End Sub
Aí Ghost e Korn, depois de analisar essa pequena Sub do meu sistema, gostaria de uma opinião de vocês: o modo como eu escrevo o meu código é igual ao de vocês? Estou fazendo de maneira certa desse jeito? Tudo bem que até hoje sempre funcionou assim, mas de repente, a meneira que eu faço pode ser meio primitiva. Acontece que eu aprendi assim e até hoje sempre desenvolvi assim. Valeu! Até mais |
|
|
|
|
|
Postada em 16/01/2008 14:27 hs
não...  mas é só questão de preenchimento... do mesmo jeito que vc preenche o listview... vc filtra as informações usando o rs.filter ou por sql, limpa o ALV, depois insere os registros novamente... De que jeito vcs queriam ou fazem isso?  |
|
|
|
|
