[VB Express] Selezionare riga da datagridview

2 Risposte

• 

  Smanettone

  Utente Attivo

  Iscritto da

  nov, 2004

  Messaggi:

  187

  Re: [VB Express] Selezionare riga da datagridview

  14 dic 2007, 00:15

  Sull'evento click del datagrid puoi aprire un altro form con il metodo ShowDialog e nel nuovo form crei un oggetto della classe del form del datagrid e alla sua proprietà item:
  
  oggetto_creato.nome_datagrid.Item(oggetto_creato.nome_datagrid.CurrentRowIndex, 0)
  
  con CurrentRowIndex hai l'indice della riga che avevi selezionato, l'altro parametro è l'indice di colonna (nell'esempio ho messo 0, che è l'indice della prima)
• M

  marco.voltolini

  Pochi posts

  Iscritto da

  giu, 2007

  Messaggi:

  47

  Re: [VB Express] Selezionare riga da datagridview

  14 dic 2007, 08:56

  Ciao,
  
  purtroppo non riesco a seguire la tua indicazione. Posto il codice scritto fin'ora
  
  
  
  Public Class frmElencoFilm
  
  Private Sub TblFilmBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TblFilmBindingNavigatorSaveItem.Click
  lblTOT.Text = (TblFilmDataGridView.RowCount - 1)
  Try
  Me.Validate()
  Me.TblFilmBindingSource.EndEdit()
  Me.TblFilmTableAdapter.Update(Me.VideonoleggioDataSet.tblFilm)
  MsgBox("Modifiche salvate correttamente", MsgBoxStyle.Information)
  Catch ex As Exception
  MsgBox("Verificare i dati", MsgBoxStyle.Critical)
  End Try
  End Sub
  
  Private Sub frmElencoFilm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  'TODO: questa riga di codice carica i dati nella tabella 'VideonoleggioDataSet.tblFilm'. È possibile spostarla o rimuoverla se necessario.
  Me.TblFilmTableAdapter.Fill(Me.VideonoleggioDataSet.tblFilm)
  lblTOT.Text = (TblFilmDataGridView.RowCount - 1)
  
  End Sub
  
  Private Sub btnChiudi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChiudi.Click
  Try
  Me.Validate()
  Me.TblFilmBindingSource.EndEdit()
  Me.TblFilmTableAdapter.Update(Me.VideonoleggioDataSet.tblFilm)
  lblTOT.Text = (TblFilmDataGridView.RowCount - 1)
  Catch ex As Exception
  MsgBox("Verificare i dati", MsgBoxStyle.Critical)
  End Try
  Me.Close()
  frmMain.Visible = True
  End Sub
  
  Private Sub TblFilmDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles TblFilmDataGridView.CellContentClick
  Dim form As New frmFilm()
  TblFilmDataGridView.CurrentRow.Selected = True
  
  If form.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
  TblFilmDataGridView.CurrentCell.Selected = frmFilm.IDFilmTextBox.Text
  Else
  MsgBox("errore")
  End If
  End Sub
  End Class