Visual Basic.NET - Porcedimientos NET

Hola a todos.

Estoy empezando a ver VB NET 2012 y lo que no he logrado hacer es poder migrar un procedimiento desde VB6.

formulario: frmPaises

Private Sub LLenaGrilla()
Set rsTabla = db.Consulta("SELECT paises.* FROM paises WHERE pais_eliminado = 0 " & strSQLBusqueda & " ORDER BY " & strSQLOrden)
vsfGrilla.Rows = 1
If rsTabla.RecordCount > 0 Then
For a = 1 To rsTabla.RecordCount
vsfGrilla.TextMatrix(a, 0) = rsTabla.Fields("pais_ID")
vsfGrilla.TextMatrix(a, 1) = UCase(rsTabla.Fields("pais_ref"))
vsfGrilla.TextMatrix(a, 2) = UCase(rsTabla.Fields("pais_nombre"))
ProgressBar1.Value = a
rsTabla.MoveNext
Next a
vsfGrilla.Row = 1
End If
End Sub



en el form_load
call LLenaGrilla()
y funciona


pero desde el Formulario: frmPaisesABM

call LLenaGrilla()

no me muestra ningun error pero no me actualiza la grilla

que debería modificar para que funcione?


Desde ya muchas gracias a todos

¿Pero se ejecuta o no ese procedimiento desde el Formulario frmPaisesABM? ¿Dices que lo llama pero que no muestra nada?

Igual en frmPaisesABM debes poner el nombre del formulario en donde fue declarado para llamarlo sería:

frmPaises.LLenaGrilla()

Mira en VB 2012 en la depuración paso a paso lo recorre, pero no me esta actualizando la grilla.

este es el codigo que utilizo en VB 2012

Formulario frmPaises

Public Sub LLenoGrilla(ByRef Grilla As C1FlexGrid)
'CONECTO LA BASE DE DATOS
Call Conectar()
'CARGO LA CONSULTA
Dim strSQL As String
Dim i As Integer
Dim unaFila As DataRow
i = 1

strSQL = "SELECT"
strSQL = strSQL & " pais_ID"
strSQL = strSQL & " , pais_alpha3"
strSQL = strSQL & " , pais_nombre"
strSQL = strSQL & " From"
strSQL = strSQL & " paises_iso3166"
strSQL = strSQL & " WHERE pais_eliminado = 0 " & strSQLBusqueda & " ORDER BY " & strSQLOrden & ";"
EjecutarSQL(strSQL)

Grilla.Rows.Count = unDs.Tables(0).Rows.Count + 1
For Each unaFila In unDs.Tables(0).Rows
Grilla(i, 0) = unaFila("pais_ID").ToString
Grilla(i, 1) = UCase(unaFila("pais_alpha3").ToString)
Grilla(i, 2) = UCase(unaFila("pais_nombre").ToString)
i = i + 1
Next
unDs.Clear()
Grilla.Col = 1

End Sub



Private Sub frmPaises_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call OrdenoFormulario(barMenuABM, vsfGrilla, Me)

'FILTROS Y ORDEN DE LA CONSULTA
strSQLBusqueda = ""
strSQLOrden = "pais_nombre"


'DECLARO VARIABLES
LLenoGrilla(vsfGrilla)

End Sub



Luego en el formulario frmPaisesABM



Private Sub cmdAceptar_Click(sender As Object, e As EventArgs) Handles cmdAceptar.Click
'validar
'agregar
Dim strSQL As String
If strFuncionPaises = "Agregar" Then
strSQL = "INSERT INTO paises_iso3166 SET "
strSQL = strSQL & "pais_alpha3= '" & Trim(txtREF.Text) & "' ,"
strSQL = strSQL & "pais_nombre = '" & Trim(txtNombre.Text) & "' ,"
strSQL = strSQL & "pais_eliminado = 0 "
EjecutarSQL(strSQL)
unDs.Clear()
Else
'modicicar
strSQL = "UPDATE paises_iso3166 SET "
strSQL = strSQL & "pais_alpha3= '" & Trim(txtREF.Text) & "' ,"
strSQL = strSQL & "pais_nombre = '" & Trim(txtNombre.Text) & "' ,"
strSQL = strSQL & "pais_eliminado = 0 "
strSQL = strSQL & " WHERE pais_ID=" & Val(varIdPais)
EjecutarSQL(strSQL)
unDs.Clear()
End If

frmPaises.LLenoGrilla(frmPaises.vsfGrilla)
"pero esta línea es la que no me actualiza la grilla de frmpaises"



Me.Close()

End Sub