COMO USAR O CHECKED DO DATAGRID

COQUITO 24/01/2016 12:20:30
#456451
Olá pessoal

me encontro com um problema que nao consigo solucionar, estou com um datagrid onde tenho o campo Presença, este campo tem a opção de Checked estou tentando salvar a marcação direto no datagrid e salvar o registro pelo botao salvar juntos a outros campos, mas porem nao estou conseguindo alguem me pode ajudar? agradeço bastante.
segue a imagem
ASHKATCHUP 24/01/2016 17:20:03
#456457
Poste o código fonte e assim poderemos lhe ajudar.
KERPLUNK 24/01/2016 19:52:30
#456467
Se o tipo da coluna for boolean, basta colocar a sua entidade com o mesmo tipo que a coluna no grid vai aparecer como Checked automaticamente.
COQUITO 24/01/2016 22:58:49
#456473
Eu tenho de codigo esse mas nao estou conseguindo add checked do datagrid


Public Sub SalvarDados()
Using cn As OleDbConnection = GetConnection()
Try
cn.Open()
Dim sql As String = [Ô]Insert Into tabDiarioClasse (Presenca, Data,Classe,Ausentes,Presentes,Visitantes,Assistencias,Biblias,Revistas,Ofertas) values (?,?,?,?,?,?,?,?,?)[Ô]
Dim cmd As OleDbCommand = New OleDbCommand(sql, cn)

If marcar = [Ô]True[Ô] Then
cmd.Parameters.Add(New OleDbParameter([Ô]@Presenca[Ô], marcar))
Else
cmd.Parameters.Add(New OleDbParameter([Ô]@Presenca[Ô], marcar))
End If
cmd.Parameters.Add(New OleDbParameter([Ô]@Data[Ô], MaskedTextBox1.Text))
cmd.Parameters.Add(New OleDbParameter([Ô]@Classe[Ô], ClassesComboBox.Text))
cmd.Parameters.Add(New OleDbParameter([Ô]@Ausentes[Ô], txtAus.Text))
cmd.Parameters.Add(New OleDbParameter([Ô]@Presentes[Ô], txtRevis.Text))
cmd.Parameters.Add(New OleDbParameter([Ô]@Visitantes[Ô], txtVisi.Text))
cmd.Parameters.Add(New OleDbParameter([Ô]@Assistencias[Ô], txtAssis.Text))
cmd.Parameters.Add(New OleDbParameter([Ô]@Biblias[Ô], txtBiblias.Text))
cmd.Parameters.Add(New OleDbParameter([Ô]@Revistas[Ô], txtRevis.Text))
cmd.Parameters.Add(New OleDbParameter([Ô]@Ofertas[Ô], txtOfertas.Text))
cmd.ExecuteNonQuery()
MsgBox([Ô]Dados registrado com sucesso. ![Ô], MsgBoxStyle.Information, [Ô]Patty[Ô])
zerar()
Catch ex As Exception
MsgBox(ex.Message)
Finally
cn.Close()
End Try

End Using

End Sub
ACCIOLLY 24/01/2016 23:17:24
#456474
Pra salvar quando marcar a caixa vc deve fazer um loop pra percorrer a grid
COQUITO 25/01/2016 07:23:48
#456477
Citação:

:
Pra salvar quando marcar a caixa vc deve fazer um loop pra percorrer a grid



amigao nao entendi sua logica, pode me dar um exemplo?
PERCIFILHO 25/01/2016 07:28:49
#456479 Resposta escolhida
Se você for salvar somente o registro que está sendo editado, deve especificar mais ou menos assim:
If sua_Grid.CurrentRow.Cells([Ô]Presenca[Ô]).Value = True Then
cmd.Parameters.Add(New OleDbParameter([Ô]@Presenca[Ô], True)
Else
cmd.Parameters.Add(New OleDbParameter([Ô]@Presenca[Ô], False)
End If

Mas se for salvar todos os registros da grid, tem que fazer um loop como o amigo Acciolly disse.
COQUITO 25/01/2016 07:49:34
#456480
Citação:

:
Se você for salvar somente o registro que está sendo editado, deve especificar mais ou menos assim:
If sua_Grid.CurrentRow.Cells([Ô]Presenca[Ô]).Value = True Then
cmd.Parameters.Add(New OleDbParameter([Ô]@Presenca[Ô], True)
Else
cmd.Parameters.Add(New OleDbParameter([Ô]@Presenca[Ô], False)
End If

Mas se for salvar todos os registros da grid, tem que fazer um loop como o amigo Acciolly disse.




Amigo obg. disso eu procurava agora entendi.....rsrs valwu
PERCIFILHO 25/01/2016 12:07:17
#456504
Não se esqueça de fechar o tópico se já foi resolvido.

Até mais.
Tópico encerrado , respostas não são mais permitidas
Voltar