Hola resulta que estoy creando en tiempo de ejecución un dataset al cual le agrego una tabla, lo lleno con los datos que selecciona el usuario lo cual va bien cuando lo hago localmente (dentro del mismo form)
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
En frmHistorialClinico tengo: Public dt As New DataTable
Por favor si alguien me puede dar una mano, no es necesario que me den codigos hechos con alguna idea basta, gracias.