Dica de como montar meu FORM,com CHECKBOX "URGENTE

Data1.RecordSource = "SELECT
Codigo, cheque, SUM(valor), favorecido, ag_cheque,conta_cheque,data_emissao,funcionario,
pgto_referente,obs,documento,nominal,cidade_emissao,compensado FROM CHEQUE WHERE Compensado = FALSE GROUP BY
Codigo, cheque, favorecido, ag_cheque,conta_cheque,data_emissao,funcionario,
pgto_referente,obs,documento,nominal,cidade_emissao,compensado"

***********************************************************
A sql acima vai pegar os seus dados e trazer tds os registros em q o cheque NÃO ESTÁ COMPENSADO!!

Creio q não haverá problemas...

Bom depois vc vai preencher o seu listview conforme já foi passado aqui tanto por mim qto pelo Armando.

Antes sempre dê um ListView.ListItems.Clear para limpar o seu list... é bom já q vc vai estar sempre preechendo-o

Bom, agora vc tem tds os cheques listados que não são compensado no seu listview.

Agora para atualizar vc coloca um botão "Compensar cheques" com o seguinte código:

****************************************************************************
DIM BD AS DATABASE

IF MSGBOX("Deseja compensar os cheques selecionados?",VBQUESTION+VBYESNO)=VBYES THEN

SET BD = WORKSPACES(0).opendatabase(data1.databasename)

for i=1 to listview.listitems.count
     IF listview.listItems(i).checked THEN
       BD.EXECUTE "UPDATE CHEQUE SET compensado = true where cheque = " & listview.listitems(i)
     ENDIF
next
ENDIF
**********************************************************************
Agora vc está com a sua tabela atualizada...neste ponto vamos atualizar o List.

Este código é seqüência do código acima...

******************************************************
Listview.ListItems.clear

'código para preechimento do ListView novamente
'.
'.
'.

******************************************************

Onde está o comentário vc coloca o código q vc utilizou para o preenchimento do ListView novamente

Entendeu? Ainda tem dúvidas?