[SOLUCIONADO] Cargar un DataGrid Haciendo Click en otro DataGrid

[incubusxp]

Hola Muchach@s

Yo cargo un Datagrid llamado "Ejemplares" con datos de una base de datos, yo quiero que al hacer click en una fila de "Ejemplares" me cargue otro DataGrid llamado "ejemp" tomando el primer campo de la primera columna de la fila seleccionada para la busqueda en sentencia sql la cual llenará el DataGrid "ejemp".... no se si me entenderían el problema... ya tengo algo hecho y funciona... pero EL PROBLEMA es que solo me carga los datos al hacer click en la primara fila... si hago click en las otras filas no me carga nada en el DataGrid "ejemp".

Aquí les dejo el código tal y como lo tengo en VB6

Código:

Private Sub cargarGrid()
      
   Dim rcdSet As Recordset

     If Combo(0).Text = "" And Combo(1).Text = "" And Combo(2).Text = "" Then          '0 0 0
      Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial group by ID")
   ElseIf Combo(0).Text <> "" And Combo(1).Text = "" And Combo(2).Text = "" Then     '1 0 0
      Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and titulo = '" & Combo(0).Text & "' group by ID")
   ElseIf Combo(0).Text = "" And Combo(1).Text <> "" And Combo(2).Text = "" Then     '0 1 0
      Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and tema.nombre = '" & Combo(1).Text & "' group by ID")
   ElseIf Combo(0).Text = "" And Combo(1).Text = "" And Combo(2).Text <> "" Then     '0 0 1
      Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and editorial.nombre = '" & Combo(2).Text & "' group by ID")
   ElseIf Combo(0).Text = "" And Combo(1).Text <> "" And Combo(2).Text <> "" Then    '0 1 1
      Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and tema.nombre = '" & Combo(1).Text & "' and editorial.nombre = '" & Combo(2).Text & "' group by ID")
   ElseIf Combo(0).Text <> "" And Combo(1).Text = "" And Combo(2).Text <> "" Then    '1 0 1
      Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and titulo = '" & Combo(0).Text & "' and editorial.nombre = '" & Combo(2).Text & "' group by ID")
   ElseIf Combo(0).Text <> "" And Combo(1).Text <> "" And Combo(2).Text = "" Then    '1 1 0
      Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and tema.nombre = '" & Combo(1).Text & "' and titulo = '" & Combo(0).Text & "' group by ID")
      ElseIf Combo(0).Text <> "" And Combo(1).Text <> "" And Combo(2).Text <> "" Then   '1 1 1
      Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and titulo = '" & Combo(0).Text & "' and tema.nombre = '" & Combo(1).Text & "' and editorial.nombre = '" & Combo(2).Text & "' group by ID")
   End If
      
   Set Ejemplares.DataSource = rcdSet
   confiGrid
   'cargarEjemplares
End Sub



Private Sub cargarEjemplares()
    
  Dim rcdSet As Recordset

  Set rcdSet = DataEnvironment1.Connection1.Execute("select no_orden as 'N°', titulo as 'Título', edicion as 'Edición', ubicacion as 'Ubicación' from libro, ejemplar where libro.id_libro = '" & Ejemplares.Columns("ID").Text & "' and libro.id_libro = ejemplar.id_libro and ejemplar.dispo = 1")
 
   Set ejemp.DataSource = rcdSet
   If rcdSet.RecordCount <> 0 Then
      confiGrid2
   End If
End Sub

Private Sub Ejemplares_Click()
   cargarEjemplares
End Sub

Por favor necesito sus ayuda lo más pronto posible.

Muchas Gracias.