Olá amigos, boa tarde,
Tenho mais uma duvida. Tenho um datagridviwer onde a primeira coluna do datagrid é um checkbox. Preciso fazer com que o select carregue os dados neste checkbox. Ou seja quando o campo correspondente estiver marcado o check deve aparecer com o status checked.
Alguém poderia me ajudar pois o select que utilizo é assim:
'FAZ A CONSULTA NO BANCO
Dim SQLConsulta As New SqlDataAdapter("SELECT nomemodulo 'Módulo de Acesso'" _
& " FROM Cadastro_Grupo_Acesso " _
& " WHERE nomegrupo = '" & Grupo_Acesso.txtgrupoAcesso.Text & "'" _
& " AND nomemenu = 'CADASTRO'" _
& " ORDER BY 1 ", ConectionBD.ConnectionString)
'ABRE A CONEXÃO COM O BANCO
ConectionBD.Open()
'GUARDA A CONSULTA REALIZADA NO DATA SET
Dim sqlDados As New DataSet
'RECEBE OS DADOS DO DATA SET
SQLConsulta.Fill(sqlDados)
'RECEBE OS DADOS DA CONSULTA REALIZADA
Grupo_Acesso_Perfil.DataGrid_Dados_Cadastro.DataSource = sqlDados.Tables(0).DefaultView
'FECHA A CONEXÃO COM O BANCO
ConectionBD.Close()
'FAZ A CONSULTA NO BANCO
Dim SQLConsulta As New SqlDataAdapter("SELECT nomemodulo 'Módulo de Acesso'" _
& " FROM Cadastro_Grupo_Acesso " _
& " WHERE nomegrupo = '" & Grupo_Acesso.txtgrupoAcesso.Text & "'" _
& " AND nomemenu = 'CADASTRO'" _
& " ORDER BY 1 ", ConectionBD.ConnectionString)
'ABRE A CONEXÃO COM O BANCO
ConectionBD.Open()
'GUARDA A CONSULTA REALIZADA NO DATA SET
Dim sqlDados As New DataSet
'RECEBE OS DADOS DO DATA SET
SQLConsulta.Fill(sqlDados)
'RECEBE OS DADOS DA CONSULTA REALIZADA
Grupo_Acesso_Perfil.DataGrid_Dados_Cadastro.DataSource = sqlDados.Tables(0).DefaultView
'FECHA A CONEXÃO COM O BANCO
ConectionBD.Close()
Porem este select carrega os dados no datagrid. Mas o checBox que adicionei naa propriedade do Datagrid fica sempre em branco.Por que eu não pedi ainda no meu select para o fazer. Ai é que está o meu problema. Como fazer isso?
Obrigado;
William
↧