Ayuda subformulario

10/01/2006 - 17:01 por libnac | Informe spam
Hola,

Necesitaría una ayudita por favor, (

Dentro de un UserControl tengo unos textbox y unu dattagrid que
muestran los textbox los datos de un presuppestos y el dadtagrid los
datos dde las líneas del presupuesto.

Cuando selecciono sobre un Treeview el presupuesto que deseo ver,
utilizo el siguiente códdigo:

Me.Presupuestos1.Ds_Presupuestos1.Tables("presupuestos").DefaultView.RowFilter
= ""

Me.Presupuestos1.Ds_Presupuestos1.Tables("presupuestos").DefaultView.RowStateFilter
= DataViewRowState.CurrentRows

Me.Presupuestos1.Ds_Presupuestos1.Tables("presupuestos").DefaultView.Sort
= "id_presupuestos"

'Me.Presupuestos1.BindingContext(Me.Presupuestos1.Ds_Presupuestos1,
"presupuestos").Position Me.Presupuestos1.Ds_Presupuestos1.Tables("presupuestos").DefaultView.Find(TreeView1.SelectedNode.Tag(0))

Me.Presupuestos1.BindingContext(Me.Presupuestos1.Ds_Presupuestos1,
"presupuestos").Position Me.Presupuestos1.Ds_Presupuestos1.Tables("presupuestos").DefaultView.Find(TreeView1.SelectedNode.Tag(0))

Me.Presupuestos1.BindingContext(Me.Presupuestos1.Ds_Presupuestos1.presupuestos).Position
Me.Presupuestos1.Ds_Presupuestos1.Tables("presupuestos").DefaultView.Find(TreeView1.SelectedNode.Tag(0))

* En Tag(0) esta el id_presupuestos

Donde:
Presupuestos1 es el UserControl,
dentro tiene un dataset Ds_presupuestos en el que ademaa de otraas
exxisten las tablas "presupuestos" y "linea_presupuestos",
y una relación enttre presupuestos y linea_prsupuestos llamada
"presupuestoslinea_presupuestos".

Se muestran todos los datos perfectamente,

Llevo unos dias intentando introducir un nuevo registro mediantte uun
botón "nuevo prssupuesto" y no lo consigo.. alguien puede aayudarme
por faavor?

yo hago lo siguiente cuando se pulssa el botón "nuevo presupuesto": (
además de otras cosas)

Dim ds_auxiliar As DataSet = Me.Ds_Presupuestos1

ds_auxiliar.Tables(tabla_aux).NewRow()
ds_auxiliar.Tables("linea_presupuestos").NewRow()
Me.BindingContext(ds_auxiliar, tabla_aux).AddNew()
Me.BindingContext(ds_auxiliar, "linea_presupuestos").AddNew()

muchisimaas graciaas

Preguntas similare

Leer las respuestas

#1 Eduardo Alvarado Meza
11/01/2006 - 08:21 | Informe spam
Muy largo y no pones el mensaje de error que te lanza ni el codigo vinculado
al guardado de la info, pero en las siguientes lineas:

Dim ds_auxiliar As DataSet = Me.Ds_Presupuestos1
ds_auxiliar.Tables(tabla_aux).NewRow()
ds_auxiliar.Tables("linea_presupuestos").NewRow()
Me.BindingContext(ds_auxiliar, tabla_aux).AddNew()
Me.BindingContext(ds_auxiliar, "linea_presupuestos").AddNew()

Si realmente existe una relacion entre estas tablas por ejemplo al estilo
maestro detalle con alguna regla, necesitarias guardar primero el maestro
antes del detalle. Ahora eso lo estoy deduciendo, di mas acerca del problema
y en que linea revienta.
Respuesta Responder a este mensaje
#2 libnac
11/01/2006 - 12:48 | Informe spam
Hola Eduardo,

Ante todo, gracias por tu respuesta.

Siento no haberme expresado con claridad,

El código en realidad sería este,

Dim ds_auxiliar As DataSet = Me.Ds_Presupuestos1

ds_auxiliar.Tables("presupuestos").NewRow()
ds_auxiliar.Tables("linea_presupuestos").NewRow()
Me.BindingContext(ds_auxiliar, "presupuestos").AddNew()
Me.BindingContext(ds_auxiliar, "linea_presupuestos").AddNew()

Sí existe una relación denominada: "presupuestoslinea_presupuestos"
pero está creada directamente en el dataset : ds_Presupuestos.xsd
entre presupuestos y linea_presupuestos con los siguientes parámetros,

parent_element : presupuestos
child_element : linea_presupuestos
key : presupuestos_Constraint1 ( la crea automáticamente )
Key fields : id_presupuestos
Foreign Key Fields : id_linea_presupuestos
Create Foreign Key constraint only : FALSE
Update rule : Cascade
Delete rule : Cascade
Accept/reject Rule : (Default)

CUANDO PINCHO EN EL BOTON DE NUEVO TENGO EL CODIGO QUE TE HE DESCRITO
AL PRINCIPIO

CUANDO PINCHO EN EL BOTON GUARDAR TENGO EL CODIGO



Me.BindingContext(ds_auxiliar.Tables("presupuestos")).EndCurrentEdit()

Me.BindingContext(ds_auxiliar.Tables("linea_presupuestos")).EndCurrentEdit()

Me.BindingContext(ds_auxiliar, tabla_aux).Position Me.BindingContext(ds_auxiliar, tabla_aux).Position

Try

da_auxiliar.Update(ds_auxiliar.Tables("presupuestos"))
da_auxiliar.Update(ds_auxiliar,
"linea_presupuestos")
ds_auxiliar.AcceptChanges()
Catch ex As Exception
' Error during Update, add code to locate error,
reconcile
' and try to update again.
MsgBox("Error 1 en pro_btn_gua_Click : " &
ex.Message & " " & ex.InnerException.Message & " " & ex.Source.ToString
& " " & vbCrLf & ex.StackTrace.ToString)

End Try
Try
ds_auxiliar.Tables("presupuestos").Clear()
ds_auxiliar.Tables("linea_presupuestos").Clear()
Catch ex As Exception
' Error during Update, add code to locate error,
reconcile
' and try to update again.
MsgBox("Error 2 en pro_btn_gua_Click : " &
ex.Message)

End Try
Try

da_auxiliar.Fill(ds_auxiliar.Tables("presupuestos"))

da_auxiliar.Fill(ds_auxiliar.Tables("linea_presupuestos"))
Catch ex As Exception
' Error during Update, add code to locate error,
reconcile
' and try to update again.
MsgBox("Error 3 en pro_btn_gua_Click : " &
ex.Message)

End Try


El problema es que cuando pincho en el botón de nuevo.. el dataset
"DETALLE" no se pone en blanco, y en el maestro donde tengo un textbox
con el nº de presupuesto se queda en blanco. Y no sé ya que hacer,
esa es la verdad. No se almacena anda ni se puede crear nada, y
necesito terminar esto.


Muchas gracias Eduardo
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida