Refresh datagridview!!!!!

[Aquaventus]

Hola junior1920, el dgwlistcategoria en tu clase listcategoria existe? Porque no lo veo declarado en ningun lado, sería ideal que en vez que hagas esto en tu clase listcategoria :

Código vb:

Public Sub cargarlista()
        Try
            ObjCategoriaEN=New CategoriaEN
            ObjCategoriaLN=New CategoriaLN
            dgwlistcategoria.DataSource=Me.ObjCategoriaLN.listado
       Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
       End Try
    End Sub
 

Le hagas un return :

Código vb:

Public Sub cargarlista() As List(Of CategoriaEN)
        Try
            ObjCategoriaEN=New CategoriaEN
            ObjCategoriaLN=New CategoriaLN
            return ObjCategoriaLN.listado
       Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
       End Try
    End Sub
 

y eso se lo pases a tu frm_insert_cat :

Código vb:

Sub Button1Click(sender As Object, e As EventArgs)
        Dim listcat As New listcategoria
        Try
            ObjCategoriaEN=New CategoriaEN
            ObjCategoriaLN=New CategoriaLN
            ObjCategoriaEN.gnom_cat=Ltrim(Rtrim(txtnom_cat.Text))
            ObjCategoriaEN.gdesc_cat=Ltrim(Rtrim(txtdesc_cat.Text))
            ObjCategoriaLN.agregar(ObjCategoriaEN)
            dgwlistcategoria.DataSource = Listcat.cargarlista()
            MessageBox.Show("Se grabo correctamente")
            If MessageBox.Show("¿Desea Continuar agregando registros ?","Mensaje",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=Windows.Forms.DialogResult.Yes Then
                txtnom_cat.Text=""
                txtdesc_cat.Text=""
                txtnom_cat.Focus
            Else
                Me.close()
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
        End Try
    End Sub
 

Nos Cuentas!. Saludos!.