Referencia a objeto no establecida como instancia de un objeto
Publicado por Miguel (281 intervenciones) el 02/01/2020 13:56:37
He visto código en la red sobre este problema y la mayoría se dan por no haber inizializado una variable. Sin embargo tengo este problema pasando parámetros con un constructor y todas las variable que entran en el segundo formulario tiene valor. Por esta razón estoy desconcertado.
Pongo el código haber si alguien ve en él algún paso mal.
Gracias por la ayuda
Pongo el código haber si alguien ve en él algún paso mal.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
'***** Variables para el paso de parametros de compras al almacén ********Private pIdAlmacen As Integer
Private pCodigo As String
Private pArticulo As String
Private pIdFamilia As Integer
Private pFamilia As String
Private pIdSubFamilia As Integer
Private pSubFamilia As String
Private pIdMarca As Integer
Private pMarca As String
Private pIdModelo As Integer
Private pModelo As String
Private pPrecioCompra As Decimal
Private pCantidad As Integer
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Public Sub New(mIdAlmacen As Integer, mCodigo As String, mArticulo As String, mIdFamilia As Integer, mFamilia As String,
mIdSubfamilia As Integer, mSubfamilia As String, mIdMarca As Integer, mMarca As String, mIdModelo As Integer,
mModelo As String, mPrecioCompra As Decimal, mCantidad As Integer)
Me.pIdAlmacen = mIdAlmacen
Me.pCodigo = mCodigo
Me.pArticulo = mArticulo
Me.pIdFamilia = mIdFamilia
Me.pFamilia = mFamilia
Me.pIdSubFamilia = mIdSubfamilia
Me.pSubFamilia = mSubfamilia
Me.pIdMarca = mIdMarca
Me.pMarca = mMarca
Me.pIdModelo = mIdModelo
Me.pModelo = mModelo
Me.pPrecioCompra = mPrecioCompra
Me.pCantidad = mCantidad
End Sub
'********** EL EVENTO LOAD DEL FORMULARIO**********************'Private Sub FrmAlmacen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
If objAlmacen.GetContador() > 0 Then
Call ListarAlmacenes()
txtFiltro.Text = pArticulo
Else
txtIdAlmacen.Text = Convert.ToString(pIdAlmacen) 'linea donde se produce el error
txtCodigo.Text = pCodigo
txtArticulo.Text = pArticulo
txtIdFamilia.Text = Convert.ToString(pIdFamilia)
txtFamilias.Text = pFamilia
txtIdSubfamilia.Text = Convert.ToString(pIdSubFamilia)
txtSubfamilias.Text = pSubFamilia
txtIdMarca.Text = Convert.ToString(pIdMarca)
txtMarcas.Text = pMarca
txtIdModelo.Text = Convert.ToString(pIdModelo)
txtModelos.Text = pModelo
txtPrecioCompra.Text = Convert.ToString(pPrecioCompra)
txtStock.Text = Convert.ToString(pCantidad)
txtPrecioVenta.Focus()
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Gracias por la ayuda
Valora esta pregunta
0
