Crear Relación de forma Manual

Por si le sirve a algún otro despistado como yo, asi lo hice y me funcionó.

Dim ds As New DataSet

Private Sub Facturas_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Dim conn As New
VistaDB.VistaDBConnection("datasource=C:\DotNet\Kardex\bin\Kardex.vdb")

Dim da1 As New VistaDB.VistaDBDataAdapter("SELECT * FROM Facturas Order By
n_factura", conn)

Dim da2 As New VistaDB.VistaDBDataAdapter("SELECT * FROM Detalle_Fact Order
By n_factura", conn)

da1.Fill(ds, "facturas")

da2.Fill(ds, "detalle_fact")

Dim relacion As New DataRelation("EncaDeta", _

ds.Tables("facturas").Columns("n_factura"), _

ds.Tables("detalle_fact").Columns("n_factura"))

ds.Relations.Add(relacion)

TextBox1.DataBindings.Add("text", ds, "facturas.n_factura")

TextBox2.DataBindings.Add("text", ds, "facturas.fecha")

dgDetalle.DataSource = ds

dgDetalle.DataMember = "facturas.EncaDeta"

End Sub


David Fúnez
Tegucigalpa, Honduras


"David Fúnez" wrote in message
news:OFO8$

Hola a todos;

Me ayudarían con un ejemplo de Relación Maestro/Detalle entre 2 tablas
pero de forma manual.

Saludos y gracias.

David Fúnez
Tegucigalpa, Honduras