COMO USAR O CHECKED DO DATAGRID
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
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
Poste o código fonte e assim poderemos lhe ajudar.
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.
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
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
Pra salvar quando marcar a caixa vc deve fazer um loop pra percorrer a grid
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?
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.
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.
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
Não se esqueça de fechar o tópico se já foi resolvido.
Até mais.
Até mais.
Tópico encerrado , respostas não são mais permitidas