Selecionar dbgrid

[johnhey 0]

Como faço o seguinte código:

 

se dbgrid não estiver selecionado então

mensagem = Selecione um item

fim

if dbgrid.select = false then
   msgbox = "Selecione um item" 
end if	

[KhaosDoctor 242]

Na verdade você não seleciona um DBGrid, você seleciona o conteúdo dentro dele, tente:

 

If Dbgrid.SelectedCells.Count <=0 Then

Mensagem

End if

 

[johnhey 0]

obrigado, já agora como faço para quando abrir a pesquisa não aparecer nenhum campo selecionado.

[KhaosDoctor 242]

O mesmo comando, mas mude o <= para = e tira fora do IF

[johnhey 0]

Não resultou, deu erro, coloquei da seguinte forma.

 

Dbgrid.SelectedCells.Count =0

 

Property 'Count' is 'ReadOnly'

[KhaosDoctor 242]

Então não podemos definir. Desculpe pelo erro, o comando é o ClearSelection()

 

DBGrid.ClearSelection()

[johnhey 0]

Então não podemos definir. Desculpe pelo erro, o comando é o ClearSelection()

 

DBGrid.ClearSelection()

 

Não resultou também

[KhaosDoctor 242]

Qual VB você está usando?

[johnhey 0]

Nao deu certo.

[KhaosDoctor 242]

Qual versão do VB?

[johnhey 0]

visual studio 2010

[KhaosDoctor 242]

Poste um pedaço do seu código onde você deseja usar essa linha.

[johnhey 0]

Não tenho nada ainda.

 

Apenas no formload, gostaria que ao ser carregado não estivesse selecionado a primeira célula.

 

se puder ver esse video mostra o que acontece.

tenho um formulário que apresenta os dados do meu bd no datagrid, só que a primeira celular aparece sempre selecionada por padrão.

 

[KhaosDoctor 242]

O evento formload do formulário que contém o grid deve ter a instrução .ClearSelection após ele preencher o grid, está fazendo deste modo?

[johnhey 0]

No load tenho:

 

       ' Texto de ligação à base de dados
       Dim linha As String = Application.StartupPath & "\SIAF.mdf"
       Dim myConnectionString As String = "Data source=.\SQLEXPRESS;AttachDbFilename=" & linha & ";Integrated Security=True;User Instance=True"

       ' Cria uma nova ligação à base de dados
       Dim connection As New SqlConnection(myConnectionString)

       ' Cria um novo SqlDataAdapter que servirá para actualizar o DataSet
       Dim SQL As String = "SELECT * FROM " & tabela
       da = New SqlDataAdapter(SQL, connection)

       ' Cria um DataSet, ou seja, uma representação em memória da informação
       ds = New DataSet

       ' Coloca a informação da tabela definida no DataSet
       da.Fill(ds, tabela)

       ' Define que a fonte de dados da DataGridView é a nossa DataSet
       ' criando automáticamente as colunas e linhas de dados
       Me.DGPesquisa.DataSource = ds.Tables(tabela)

       ' Limpa a ligação à base de dados. Não é necessário fechar a ligação
       ' porque esta não foi aberta através do comando .Open()
       connection = Nothing
       Background.RunWorkerAsync()
       txtpesquisa.Focus()
       dgpesquisa.ClearSelection