Inter-relación entre dos formularios
Publicado por Antonio (93 intervenciones) el 15/04/2009 16:26:06
Hola a todos, buenas tardes.
Supongamos que tenemos un proyecto con dos formularios.
Un formulario (AltaPro) con una DataGrid en el que se pueden añadir, modificar o borrar registro de una tabla de Proveedores.
En el otro formulario (ComDirMat), uno de los TextBox guarda relación con el DataGrid (de AltaPro), que si no pones nada o el dato que pones no está en DataGrid ejecuta:
'bOtraForm, variable pública (normalmente false)
bOtraForm = True
AltaPro.Show
Una vez en AltaPro, uitilizo la tecla INTRO, bien para modificar un registro o bien para que si venimos de otro formulario tome el valor de dos campos en dos variables.
If KeyCode = 13 Then
If bOtraForm = False Then
cTexto = ""
CmdUpd_Click
Else
bOtraForm = False
cPCodPro = DGPro.Columns(0)
cPNomRazSoc = DGPro.Columns(1)
CmdClose.SetFocus
cmdClose_Click
End If
...
De nuevo en el formulario ComDirMat paso a dos TexBox las variables:
cCodPro.Text = cPCodPro
cNomRazSoc.Text = cPNomRazSoc
Pero no me funciona, si vuelvo a repetir el proceso si pone los valores.
Supongamos que tenemos un proyecto con dos formularios.
Un formulario (AltaPro) con una DataGrid en el que se pueden añadir, modificar o borrar registro de una tabla de Proveedores.
En el otro formulario (ComDirMat), uno de los TextBox guarda relación con el DataGrid (de AltaPro), que si no pones nada o el dato que pones no está en DataGrid ejecuta:
'bOtraForm, variable pública (normalmente false)
bOtraForm = True
AltaPro.Show
Una vez en AltaPro, uitilizo la tecla INTRO, bien para modificar un registro o bien para que si venimos de otro formulario tome el valor de dos campos en dos variables.
If KeyCode = 13 Then
If bOtraForm = False Then
cTexto = ""
CmdUpd_Click
Else
bOtraForm = False
cPCodPro = DGPro.Columns(0)
cPNomRazSoc = DGPro.Columns(1)
CmdClose.SetFocus
cmdClose_Click
End If
...
De nuevo en el formulario ComDirMat paso a dos TexBox las variables:
cCodPro.Text = cPCodPro
cNomRazSoc.Text = cPNomRazSoc
Pero no me funciona, si vuelvo a repetir el proceso si pone los valores.
Valora esta pregunta


0