Te paso el Código que tengo en el primer formulario, donde tengo una grilla que levanta clientes y los botones de agregar y modificar, a su vez con estos botones levanto un formulario de ABM donde agrego o modifico un cliente nuevo.
Te voy comentando a lo largo del código que es lo que pretendo de cada linea donde tengo el error.
Espero no sea muy engorroso y puedas ayudarme, desde ya muchas gracias
Public Class frmClientes
Public inBoton As Integer
Public inIdCliente As Integer
Private ConsultaClie As clsCliente = New clsCliente()
'''Activate del Formulario donde lleno la grilla y oculto la primera columna que es donde tengo el id
Private Sub frmClientes_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
With dtgClie_Grilla
.DataSource = ConsultaClie.leerClientes()
.Columns(0).Visible = False
.RowHeadersWidth = 25
End With
End Sub
'''El load del Formulario, donde armo la grilla y le quiero dar nombre a la columna y no puedo
Private Sub frmClientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With dtgClie_Grilla
.MultiSelect = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
'.ColumnHeadersDefaultCellStyle.BackColor = Color.Gray
'.RowHeadersDefaultCellStyle.BackColor = Color.Gray
.AlternatingRowsDefaultCellStyle.BackColor = Color.LightCyan
.BackgroundColor = Color.WhiteSmoke
'.Columns(1).DataPropertyName = "Nro. Cliente" '''''Esta linea esta comentada porque le quiero dar el nombre a la columna y no lo toma
End With
End Sub
'''Boton agregar para abrir la ficha vacia y agregar un nuevo cliente
Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
inBoton = 1
frmABMCliente.Text = "Registrando nuevo Cliente"
frmABMCliente.Show()
End Sub
'''Boton modificar para abrir la ficha de mi cliente y modificar los datos
Private Sub btnModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModificar.Click
inBoton = 2
'CONTROLAR SI HAY ALGUN REGISTRO SELECCIONADO EN LA GRILLA
'If inIdCliente <> 0 Then
inIdCliente = dtgClie_Grilla.Item(0, dtgClie_Grilla.CurrentRow.Index).Value '''En esta linea de codigo le asigno el valor a la variable de mi idCliente para levantar los datos en caso de querer modificar. Es aca donde me sale el error de que no controlo si el dato es nulo
frmABMCliente.Text = "Cambiando Cliente"
frmABMCliente.Show()
'Else
'MsgBox("Seleccione un Cliente")
' End If
End Sub
'''Boton salir para cerrar el formulario
Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
Me.Close()
End Sub
'''Este es el evento que me dijiste que programe en los comentarios de mas arriba
Private Sub dtgClie_Grilla_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dtgClie_Grilla.CellEnter
inIdCliente = dtgClie_Grilla.Rows(e.RowIndex).Cells(0).Value
End Sub
End Class