DATAGRID MÊLTIPLAS SELE?ÕES
Boa noite
Estou desenvolvimento um sistema para controle de pagamentos. A idéias é ter uma DataGrid para fazer a seleção de vários recibos para poder excluir, gerar os recibos, efetuar o pagamento.
Como faço essa grid com várias seleções, verifiquei algumas dicas de colocar o checkbox junto com a grid. Como usar um checkbox junto com a grid e como fazer reconhecer as várias seleçoes para por exemplo excluir?
Estou desenvolvimento um sistema para controle de pagamentos. A idéias é ter uma DataGrid para fazer a seleção de vários recibos para poder excluir, gerar os recibos, efetuar o pagamento.
Como faço essa grid com várias seleções, verifiquei algumas dicas de colocar o checkbox junto com a grid. Como usar um checkbox junto com a grid e como fazer reconhecer as várias seleçoes para por exemplo excluir?
Como está preenchendo o Grid?
para adicionar este campo no DataGridView basta clicar com o botão direito em cima de sua grid e depois em Edit Columns. Na próxima janela clique no botão add.
Depois informe um name e um HeaderText que será como um rótulo. Em Type selecione DataGridViewCheckBoxColumn.
por fim coloque seu comando de deletar numa estrutura de repetição (For). Pra percorrer linha por linha da grid. Fica +/- assim já que não estou com o vs.
Neste exemplo o Cells(0) representa a primeira coluna já que se trabalha com Ãndices e o primeiro sempre é 0.
Té mais
Depois informe um name e um HeaderText que será como um rótulo. Em Type selecione DataGridViewCheckBoxColumn.
por fim coloque seu comando de deletar numa estrutura de repetição (For). Pra percorrer linha por linha da grid. Fica +/- assim já que não estou com o vs.
Dim i As Integer
For i = 0 To dataGridView1.Rows.Count - 1
If dataGridView1.Rows(i).Cells(0).Value.ToString = [Ô]True[Ô] Then
Coloque seu comando de exclusão aqui
End If
Next iNeste exemplo o Cells(0) representa a primeira coluna já que se trabalha com Ãndices e o primeiro sempre é 0.
Té mais
Bom dia
Estou desenvolvimento o aplicativo em VB 6.0, ainda não migrei para o Vb.NET
Estou desenvolvimento o aplicativo em VB 6.0, ainda não migrei para o Vb.NET
Véi! CheckBox na grid creio que seja só no .Net. Mas se quer uma dica, porque ao invés de tentar colocar um checkbox não coloca uma coluna onde pode estar digitando um caracter Ex: [Ô]X[Ô]. Esse caracter será responsável por representar essas seleções. No mais só seguir a mesma lógica postada no VB.Net
Use o Listview do Vb6 com CheckBox.
Mudei ao invés da Grid estou usando ListBox, este é o código para preencher.
Private Sub cboClientes_Click()
Dim strClientes As New ADODB.Recordset
strClientes.Open [Ô]Select CNPJ, Nome from tbClientes where Nome=[ô][Ô] & cboClientes.Text & [Ô][ô][Ô], BaseDados
adRecibo.ConnectionString = ([Ô]DRIVER={Firebird/InterBase(r) driver};[Ô] & _
[Ô]user=SYSDBA; password=masterkey; DBNAME=[Ô] & App.Path & [Ô]\BaseClientes.fdb;[Ô])
adRecibo.CursorLocation = adUseClient
adRecibo.CommandType = adCmdText
adRecibo.RecordSource = [Ô]Select Competencia, Codigo, Vencimento, Valor, Pagamento from tbRecibo where CodCliente=[ô][Ô] & strClientes!CNPJ & [Ô][ô] order by Codigo desc[Ô]
adRecibo.Refresh
Do Until adRecibo.Recordset.EOF
lstRecibos.AddItem adRecibo.Recordset.Fields([Ô]Competencia[Ô])
lstRecibos.ItemData(lstRecibos.NewIndex) = adRecibo.Recordset.Fields([Ô]Codigo[Ô])
adRecibo.Recordset.MoveNext
Loop
End Sub
A ideia é selecionar um cliente e aparecer todos recibos emitidos para ele, assim aqueles que estiverem marcados eu posso excluir ou gerar um extrato. Usando o código abaixo só está excluindo o último registro selecionado
Private Sub cmdExcluir_Click()
BaseDados.Execute ([Ô]Delete from tbRecibo where Codigo=[Ô] & lstRecibos.ItemData(lstRecibos.ListIndex))
End Sub
Private Sub cboClientes_Click()
Dim strClientes As New ADODB.Recordset
strClientes.Open [Ô]Select CNPJ, Nome from tbClientes where Nome=[ô][Ô] & cboClientes.Text & [Ô][ô][Ô], BaseDados
adRecibo.ConnectionString = ([Ô]DRIVER={Firebird/InterBase(r) driver};[Ô] & _
[Ô]user=SYSDBA; password=masterkey; DBNAME=[Ô] & App.Path & [Ô]\BaseClientes.fdb;[Ô])
adRecibo.CursorLocation = adUseClient
adRecibo.CommandType = adCmdText
adRecibo.RecordSource = [Ô]Select Competencia, Codigo, Vencimento, Valor, Pagamento from tbRecibo where CodCliente=[ô][Ô] & strClientes!CNPJ & [Ô][ô] order by Codigo desc[Ô]
adRecibo.Refresh
Do Until adRecibo.Recordset.EOF
lstRecibos.AddItem adRecibo.Recordset.Fields([Ô]Competencia[Ô])
lstRecibos.ItemData(lstRecibos.NewIndex) = adRecibo.Recordset.Fields([Ô]Codigo[Ô])
adRecibo.Recordset.MoveNext
Loop
End Sub
A ideia é selecionar um cliente e aparecer todos recibos emitidos para ele, assim aqueles que estiverem marcados eu posso excluir ou gerar um extrato. Usando o código abaixo só está excluindo o último registro selecionado
Private Sub cmdExcluir_Click()
BaseDados.Execute ([Ô]Delete from tbRecibo where Codigo=[Ô] & lstRecibos.ItemData(lstRecibos.ListIndex))
End Sub
Boa noite
alguém poderia me ajudar com esta solução
alguém poderia me ajudar com esta solução
Preenche um listview com checkbox, ai vai selecionar todos registro desejados.
Larga este objeto data.Ele pesa muito, fora outrossssssssssssssss.
Larga este objeto data.Ele pesa muito, fora outrossssssssssssssss.
Boa noite
Depois de 3 anos sem programar em VB, realmente fazendo uma revisão em manuais realmente dei uma Upgrade no código, agora o programa está funcionando. Estou postando o código pra sugestões ou correções.
#Código para filtrar Recibos de um cliente
Private Sub cboClientes_Click()
lstRecibos.Clear
BaseDados.Execute [Ô]Delete from tbAuxRecibo[Ô]
strClientes.Open [Ô]Select CNPJ, Nome from tbClientes where Nome=[ô][Ô] & cboClientes.Text & [Ô][ô][Ô], BaseDados
strRecibos.Open [Ô]Select Competencia, Codigo, Vencimento, Valor, Pagamento from tbRecibo where CodCliente=[ô][Ô] & strClientes!CNPJ & [Ô][ô] order by Codigo desc[Ô], BaseDados
Do Until strRecibos.EOF
lstRecibos.AddItem strRecibos([Ô]Competencia[Ô])
lstRecibos.ItemData(lstRecibos.NewIndex) = strRecibos([Ô]Codigo[Ô])
strRecibos.MoveNext
Loop
strClientes.Close
strRecibos.Close
End Sub
#Codigo que filtra somente os itens selecionados
Private Sub lstRecibos_ItemCheck(Item As Integer)
If lstRecibos.Selected(lstRecibos.ListIndex) = True Then
BaseDados.Execute ([Ô]INSERT INTO tbAuxRecibo (CodigoRecibo) VALUES ([Ô] & lstRecibos.ItemData(lstRecibos.ListIndex)) & [Ô])[Ô]
ElseIf lstRecibos.Selected(lstRecibos.ListIndex) = False Then
BaseDados.Execute ([Ô]Delete from tbAuxRecibo where CodigoRecibo=[Ô] & lstRecibos.ItemData(lstRecibos.ListIndex))
End If
End Sub
Foi necessário criar um tabela temporario, para auxiliar o tratamento de dados com os itens selecionados
Depois de 3 anos sem programar em VB, realmente fazendo uma revisão em manuais realmente dei uma Upgrade no código, agora o programa está funcionando. Estou postando o código pra sugestões ou correções.
#Código para filtrar Recibos de um cliente
Private Sub cboClientes_Click()
lstRecibos.Clear
BaseDados.Execute [Ô]Delete from tbAuxRecibo[Ô]
strClientes.Open [Ô]Select CNPJ, Nome from tbClientes where Nome=[ô][Ô] & cboClientes.Text & [Ô][ô][Ô], BaseDados
strRecibos.Open [Ô]Select Competencia, Codigo, Vencimento, Valor, Pagamento from tbRecibo where CodCliente=[ô][Ô] & strClientes!CNPJ & [Ô][ô] order by Codigo desc[Ô], BaseDados
Do Until strRecibos.EOF
lstRecibos.AddItem strRecibos([Ô]Competencia[Ô])
lstRecibos.ItemData(lstRecibos.NewIndex) = strRecibos([Ô]Codigo[Ô])
strRecibos.MoveNext
Loop
strClientes.Close
strRecibos.Close
End Sub
#Codigo que filtra somente os itens selecionados
Private Sub lstRecibos_ItemCheck(Item As Integer)
If lstRecibos.Selected(lstRecibos.ListIndex) = True Then
BaseDados.Execute ([Ô]INSERT INTO tbAuxRecibo (CodigoRecibo) VALUES ([Ô] & lstRecibos.ItemData(lstRecibos.ListIndex)) & [Ô])[Ô]
ElseIf lstRecibos.Selected(lstRecibos.ListIndex) = False Then
BaseDados.Execute ([Ô]Delete from tbAuxRecibo where CodigoRecibo=[Ô] & lstRecibos.ItemData(lstRecibos.ListIndex))
End If
End Sub
Foi necessário criar um tabela temporario, para auxiliar o tratamento de dados com os itens selecionados
Tópico encerrado , respostas não são mais permitidas