Visual Basic.NET - Problema Relaciones

   
Vista:

Problema Relaciones

Publicado por Beatriz (38 intervenciones) el 16/06/2008 13:18:55
Buenos días:

Estoy bloqueada, por lo que expongo mi problema por si me pudiesen echar una mano.
Tengo 2 datagridview, donde quiero que me muestre las facturas en el primero y en el segundo las lineas de factura. A su vez, los campos de las facturas los tengo expuestos en textbox, con el fin de que puedan ser modificados más facilmente.

Private Sub ConfigurarAccesoDatos()
' Try
cn.ConnectionString = Origen
cn.Open()
daf = New OleDb.OleDbDataAdapter("Select * from Facturas", cn)
daExp = New OleDb.OleDbDataAdapter("Select * from Facturadas", cn)
daf.Fill(ds, "Facturas")
daExp.Fill(ds, "Facturadas")

Dim clave(0) As DataColumn
clave(0) = New DataColumn
clave(0) = ds.Tables("Facturas").Columns("IDFACTURA")
ds.Tables("Facturas").PrimaryKey = clave

Dim cb As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daExp)
daExp.UpdateCommand = cb.GetUpdateCommand
daExp.InsertCommand = cb.GetInsertCommand
daExp.DeleteCommand = cb.GetDeleteCommand
Dim cF As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daf)
daf.UpdateCommand = cF.GetUpdateCommand
daf.InsertCommand = cF.GetInsertCommand
daf.DeleteCommand = cF.GetDeleteCommand

Me.lblFactura.DataBindings.Clear()
Me.txtIDCLIENTE.DataBindings.Clear()
Me.txtFechaFactura.DataBindings.Clear()
Me.txtNotas.DataBindings.Clear()
Me.ckCobrado.DataBindings.Clear()
Me.ckImpresa.DataBindings.Clear()
Me.txtFechaImpresion.DataBindings.Clear()
Me.txtFechaEnvio.DataBindings.Clear()
Me.txtFechaEnvio.DataBindings.Clear()
Me.cboModoPago.DataBindings.Clear()
Me.txtRetencion.DataBindings.Clear()
Me.txtseguro.DataBindings.Clear()
Me.ckRetencion.DataBindings.Clear()
Me.ckSeguro.DataBindings.Clear()
'Me.DataGridView1.DataBindings.Clear()
Me.lblFactura.DataBindings.Add(New Binding("text", ds.Tables("Facturas"), "IDFACTURA", True))
Me.txtIDCLIENTE.DataBindings.Add(New Binding("TEXT", ds.Tables("Facturas"), "IDCLIENTE", True))
Me.txtFechaFactura.DataBindings.Add(New Binding("TEXT", ds.Tables("Facturas"), "FECHAEMISION", True))
Me.txtNotas.DataBindings.Add(New Binding("text", ds.Tables("Facturas"), "NOTAS", True))
Me.ckCobrado.DataBindings.Add(New Binding("CHECKED", ds.Tables("Facturas"), "COBRADA", True))
Me.ckImpresa.DataBindings.Add(New Binding("CHECKED", ds.Tables("Facturas"), "IMPRESA", True))
Me.txtFechaImpresion.DataBindings.Add(New Binding("text", ds.Tables("Facturas"), "FECHAIMPRESION", True))
Me.cboModoPago.DataBindings.Add(New Binding("TEXT", ds.Tables("Facturas"), "MODOPAGO", True))
Me.ckRetencion.DataBindings.Add(New Binding("CHECKED", ds.Tables("Facturas"), "RET", True))
Me.ckSeguro.DataBindings.Add(New Binding("CHECKED", ds.Tables("Facturas"), "SEG", True))
Me.txtRetencion.DataBindings.Add(New Binding("TEXT", ds.Tables("Facturas"), "RETENCION", True))
Me.txtseguro.DataBindings.Add(New Binding("TEXT", ds.Tables("Facturas"), "SEGURO", True))
cn.Open()
******** he modificado a última hora en los databinding,bs, por ds.tables("Facturas")
por si ahí estuviese el error, pero de momento nada.
bs.DataSource = ds
bs.DataMember = "Facturas"

bs.MoveLast()
bs.MoveFirst()

ds.Relations.Add("Rel", ds.Tables("Facturas").Columns("IDFACTURA"), ds.Tables("Facturadas").Columns("IDFACTURA"))
'Establecer el DataSource y el DataMember para el DataGridview Detalle

Me.DataGridView1.DataSource = ds
Me.DataGridView1.DataMember = "Facturas"

With Me.DataGridView2
.DataSource = ds
.DataMember = "Facturadas.Rel" ****** EL ERROR ME DA AQUÍ, ME DICE "No se puede crear una lista secundaria para el campo Facturadas." ... Estuve modificando el datasource de este datagrid por si acaso, pero sin resultados
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
End With

'cerrar la conexíón
With cn
If .State = ConnectionState.Open Then
.Close()
End If
Dispose()
End With

Gracias por su atención. Sin otro particular, reciban un cordial saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder