Formulario Maestro detalle

Código de ejemplo en Visual Basic.NET para crear un formulario Maestro Detalle utilizando dos controles DataGridView

El formulario contiene dos DataGridview. El DataGridView1 es para la tabla maestro donde se cargan los regisros de una tabla (tabla clientes) , y en el otro control DatagridView, los datos de la tabla pedidos para el detalle

Ambas tablas tienen un campo en común, (IdCliente). Al seleccionar un registro del DV Maestro, se visualiza en el detalle , el o los pedidos de ese cliente en el otro DV

Para el ejemplo se necesita:

• colocar dos controles DataGridview en el formulario ( llamados DvMaestro y DvDetalle )
  
• Indicar el campo en común para ambas tablas en la variable 'campo_Relacionado'.
  
• Indicar las consultas sql para cargar los registros en ambas grillas
  

Código fuente

Option Explicit On Option Strict On Imports System.Data.SqlClient Public Class Form1 ' cadena de conexión Private Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _ "Initial Catalog=la_base_de_datos_sql;" & _ "Integrated Security=true" ' campo relacionado para las dos tablas ' ''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Const campo_Relacionado As String = "IdCliente" Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' crear nueva conexión Dim conexion As New SqlConnection(cs.ToString) Try ' abrir la conexión con la base de datos conexion.Open() ' Nuevo objeto Dataset Dim DataSet As New DataSet ' '''''''''''''''''''''''''''''''''''''''''''''''''''' ' DataGridView maestro ' '''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Adaptador As New SqlDataAdapter() Dim comando As New SqlCommand With comando ' Asignar el sql para seleccionar los datos de la tabla Maestro .CommandText = "SELECT idcliente,Nombre,Apellido FROM tClientes" .Connection = conexion End With With Adaptador .SelectCommand = comando ' llenar el dataset Adaptador.Fill(DataSet, "Maestro") End With ' Enlazar el DataGridView al dataset With DvMaestro .DataMember = "Maestro" .DataSource = DataSet .SelectionMode = DataGridViewSelectionMode.FullRowSelect .DefaultCellStyle.BackColor = Color.AliceBlue End With ' '''''''''''''''''''''''''''''''''''''''''''''''''''' ' DataGridView detalle ' '''''''''''''''''''''''''''''''''''''''''''''''''''' With comando ' cadena sql para cargar la tabla pedidos .CommandText = "SELECT idcliente,FechaPedido, FechaEntrega,Monto,Destino FROM tPedidos" End With With Adaptador .SelectCommand = comando ' llenar el dataset Adaptador.Fill(DataSet, "Detalle") End With ' Agregar la relación ( campo en común : campo_Relacionado = idCliente ) ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' With DataSet .Relations.Add("mi_Relacion", _ .Tables("Maestro").Columns(campo_Relacionado), _ .Tables("Detalle").Columns(campo_Relacionado)) End With ' Establecer el DataSource y el DataMember para el DataGridview Detalle With DvDetalle .DataSource = DataSet .DataMember = "Maestro.mi_Relacion" .SelectionMode = DataGridViewSelectionMode.FullRowSelect End With ' cerrar la conexíón With conexion If .State = ConnectionState.Open Then .Close() End If .Dispose() End With Catch ex As Exception MsgBox(ex.Message.ToString) End Try Me.Text = "Formulario Maestro Detalle con dataGridviews" End Sub End Class