El error que recibo:
Si entre dos veces al form en cuestion sin cerrar el programa me dice:
Que la tabla ya existe
Cuando agrego una columna me dice que no esta creada la tabla.
Supongo que mi problema esta entonces cuando lo hago desde otra form e instancia la form inicial.
Parte del codigo(estan en un modulo):
Código PHP:
Public Sub CrearTablaInsumo()
Dim frmHistorialClinico As frmHistorialClinico = frmHistorialClinico.Instance
frmHistorialClinico.dt.Columns.Add(New DataColumn("Nombre", GetType(String)))
frmHistorialClinico.dt.Columns.Add(New DataColumn("PrecioIva", GetType(Integer)))
frmHistorialClinico.dt.Columns.Add(New DataColumn("Cantidad", GetType(Integer)))
frmHistorialClinico.dt.Columns.Add(New DataColumn("CodigoProducto", GetType(Integer)))
frmHistorialClinico.dt.Columns.Add(New DataColumn("SubTotal", GetType(Integer)))
End Sub
Código PHP:
Public Sub AgregarInsumo(ByVal Codigo)
'Agrega un insumo al historial clinico del paciente
'Parametros
'Codigo del producto insumo
Dim frmHistorialClinico As frmHistorialClinico = frmHistorialClinico.Instance
Dim htDatos As New Hashtable
'Obtengo los datos
htDatos = mProducto.Ver(Codigo)
Dim dr As DataRow
dr = frmHistorialClinico.dt.NewRow()
dr("Nombre") = htDatos.Item("Nombre")
dr("PrecioIva") = htDatos.Item("PrecioIva")
dr("Cantidad") = 1
dr("CodigoProducto") = htDatos.Item("Codigo")
dr("SubTotal") = htDatos.Item("PrecioIva")
frmHistorialClinico.dt.Rows.Add(dr)
Return
End Sub
Por favor si alguien me puede dar una mano, no es necesario que me den codigos hechos con alguna idea basta, gracias.