Hola gente, espero hayan tenido buenas fiestas.

Siguiendo la sugerencia de Tincho estoy haciendo una actualización en mi aplicación, pasando las consultas al evento data, este es el código

Código:

Public Sub VListaBIB_Data(Row As Integer, Column As Integer)

  If ContenidoBibTotal = Null Then Return
  If Row < 0 Or Row >= ContenidoBibTotal.Count Then Return
  ContenidoBibTotal.MoveTo(Row)

  Select Case Column
    Case 0
      VListaBIB.Data.Text = ContenidoBibTotal["id"]
    Case 1
      VListaBIB.Data.Text = ContenidoBibTotal["author"]
    Case 2
      VListaBIB.Data.Text = ContenidoBibTotal["editor"]
    Case 3
      VListaBIB.Data.Text = ContenidoBibTotal["title"]
    Case 4
      VListaBIB.Data.Text = ContenidoBibTotal["journalTitle"]
    Case 5
      VListaBIB.Data.Text = ContenidoBibTotal["yearY"]
    Case 6
      VListaBIB.Data.Text = ContenidoBibTotal["dateD"]
    Case 7
      VListaBIB.Data.Text = ContenidoBibTotal["publisher"]
  End Select

End

el evento funciona sin problemas, ahora bien cuando hago click en cualquiera de las filas pretendo que se muestren en los textbox correspondientes los datos de la fila seleccionada, este es el código que escribi

Código:

Public Sub VListaBIB_RowClick(Row As Integer)

  ' configurar como se muestran los botones
  btnGuardarCambios.Visible = True
  BtnEliminarBib.Visible = True
  btnAgregarCitationKey.Visible = True
  btnGuardar.Visible = False
  btnAgregarKeyBIB.Visible = True
  BtnRefrescarBib.Visible = True

  ' Asegura de que hay una fila seleccionada
  If Row < 0 Or Row >= VListaBIB.Count Then Return

  ' Rellenar los campos de texto con los valores de la fila seleccionada
  txtIDbibtex.Text = VListaBIB[Row, 0].Text
  ComboBox1.Text = VListaBIB[Row, 1].Text
  txtCLAVEbib.Text = VListaBIB[Row, 2].Text
  txtKEYWORDS.Text = VListaBIB[Row, 3].Text
  txtAUTHOR.Text = VListaBIB[Row, 4].Text

... siguen campos

End

Ahora no obtengo error alguno, quiero decir, puedo seleccionar cualquier fila del grid, la aplicación no se cuelga pero no se reflejan en los textbox los datos de la fila seleccionada.

Y este es el código que diseña el grid en el evento open del formulario

Código:

  ' Ejecutar las consultas SQL
  ContenidoBibTotal = meConn.Exec("SELECT * FROM bibtex ORDER BY id DESC")
  VListaBIB.Rows.Count = ContenidoBibTotal.Count
 
  ' Configurar diseño del GridView
  With VListaBIB
    .Header = True
    .Grid = True
    .Columns.Count = 8 ' Ajusta según las columnas necesarias
    .Columns[0].Title = "Id"
    .Columns[0].Width = 0

    .Columns[1].Title = "Autor"
    .Columns[1].Width = 250

    .Columns[2].Title = "Editor"
    .Columns[2].Width = 250

    .Columns[3].Title = "Título"
    .Columns[3].Width = 600

    .Columns[4].Title = "Revista"
    .Columns[4].Width = 250

    .Columns[5].Title = "Año"
    .Columns[5].Width = 70

    .Columns[6].Title = "Fecha"
    .Columns[6].Width = 120

    .Columns[7].Title = "Editorial"
    .Columns[7].Width = 250
  End With

Estoy medio perdido, porque lei en algun lugar a Shordi decir que el evento data no trabaja con filas, alguno tiene idea de por donde vienen los tiros.

Saludos

Creo que el problema es el evento VListaBIB_RowClick. Supongo que estas usando un GridView por el evento _Data. Yo lo que hago sería algo así:

Código:

VListaBIB_Click()

Con esto se dispara el evento al hacer click en el GridView. A continuación muevo el puntero del resultado de la base datos a la fila que ha sido seleccionada con:

Código:

ContenidoBibTotal.Moveto(VListaBIB.Row)

y a partir de ahi rellenar todos los textbox.

Creo que es algo así.

---

Otra cosa. Yo el evento Data lo relleno de esta forma, me parece más limpia:

Código:

Public Sub VListaBIB_Data(Row As Integer, Column As Integer)
  
    Dim a as String[]=["id","author","editor","title","journalTitle","yearY","dateD","publisher"]
    ContenidoBibTotal.MoveTo(Row)
    VListaBIB.Data.Text = ContenidoBibTotal[a[Column]]
End
   

Cuando hago una consulta a la base de datos a continuación redimensiono el GridView con la cantidad de datos que he obtenido:

Código:

VListaBIB.Rows.Count = ContenidoBibTotal.Count

Y después refresco el GridView, y así me evito las dos líneas del principio que tienes en tu evento Data.

Un saludo.

Saludos,

Seguramente el problema, al cargar los TextBox, esté en el código que se ejecuta entre la carga del GridView, al abrir el formulario, y el evento RowClick. Revisando el código no veo porqué no debería mostrar los datos siempre que el Result ContenidoBibTotal tenga datos, en algún momento debe pasar a ser nulo.

Por otro lado, y en mi humilde opinión, yo en el evento RowClick haría la carga de los TextBox directamente desde el Result ContenidoBibTotal, no desde la propiedad Text de la celda, por cómo funciona el control GridView.

GridView tiene una clase interna para manejar los datos de las celdas (_GridView_Data) y una clase para las celdas (_GridView_Cell). Y los valores de cada celda los almacena en un objeto Collection ($cCells), donde la clave es Fila-Columna y el valor un _GridView_Data. Cuando se usa el evento Data cargamos la propiedad Data del GridView, que es un _GridView_Data que el control después desecha, no almacena nada en $cCells.

Por tanto, en el evento Data el control no almacena los datos para futuros usos, y cuando se le pide el valor de la propiedad Text de una celda vuelve a llamar a ese evento para recuperarlos.

Por ejemplo, en el código que propone Guizans, donde crea e inicializa un String[] con los nombres de los campos, está creando e inicializando esa variable para cada celda. Y cuando recupera información de una celda, nueva llamada al evento. Personalmente utilizaría una variable de ámbito superior accesible desde el evento para evitar crear e inicializar una variable tantas veces.

Un saludo, Harpo.

Gracias guizans y Harpo, ya solucioné el tema revisando el comentario de guizans, algo que encontré en la red del compañero Julio y otro tanto reviendo algunos videos de Shordi, llegue a esto que funciona bien (y muy rápido)

el evento open contiene esto

Código:

Mod_Funciones.ConfigurarGridView(VListaBIB)

el evento data, quedo así

Código:

Public Sub VListaBIB_Data(Row As Integer, Column As Integer)
  If (ContenidoBibTotal <> Null) Then
    If Row >= 0 Then
      ContenidoBibTotal.moveTo(Row)
      Try VListaBIB.Data.Text = Str(ContenidoBibTotal[Column])
    Endif
  Endif
  If row Mod 2 = 0 Then
    VListaBIB.Data.Background = Color.RGB(230, 230, 230)
  Endif
End

el evento click, quedo así

Código:

Public Sub VListaBIB_Click()' grid en el formulario principal
  ' configurar como se muestran los botones
  btnGuardarCambios.Visible = True
  BtnEliminarBib.Visible = True
  btnAgregarCitationKey.Visible = True
  btnGuardar.Visible = False
  btnAgregarKeyBIB.Visible = True
  TabPanel2.Index = 0

  Mod_Funciones.VerBibTeXenVListaBIB()
End

y la función que diseña el grid así

Código:

' en el módulo de funciones
Public Sub ConfigurarGridView(grid As GridView)

  With grid
    .Header = True
    .Grid = True
    .Columns.Count = 112

    ' Configuración de columnas
    For i As Integer = 0 To 111
      Select Case i
        Case 0
          .Columns[i].Title = "Id"
          .Columns[i].Width = 0
        Case 4
          .Columns[i].Title = "Autor/a/es"
          .Columns[i].Width = 250
        Case 6
          .Columns[i].Title = "Editor/a/es"
          .Columns[i].Width = 250
        Case 24
          .Columns[i].Title = "Título principal"
          .Columns[i].Width = 600
        Case 29
          .Columns[i].Title = "Revista"
          .Columns[i].Width = 200
        Case 43
          .Columns[i].Title = "Año"
          .Columns[i].Width = 70
        Case 44
          .Columns[i].Title = "Fecha"
          .Columns[i].Width = 120
        Case 53
          .Columns[i].Title = "Editorial"
          .Columns[i].Width = 200
        Case Else
          .Columns[i].Title = ""
          .Columns[i].Width = 0
      End Select
    Next
  End With

End

se muestran los datos en los campos con este código que está en un módulo

Código:

Public Sub VerBibTeXenVListaBIB()

  ' Rellenar los campos de texto con los valores de la fila seleccionada
  FMain.txtIDbibtex.Text = FMain.VListaBIB[FMain.VListaBIB.row, 0].Text
  FMain.ComboBox1.Text = FMain.VListaBIB[FMain.VListaBIB.row, 1].Text
  FMain.txtCLAVEbib.Text = FMain.VListaBIB[FMain.VListaBIB.row, 2].Text
  FMain.txtKEYWORDS.Text = FMain.VListaBIB[FMain.VListaBIB.row, 3].Text
  FMain.txtAUTHOR.Text = FMain.VListaBIB[FMain.VListaBIB.row, 4].Text
  FMain.txtBOOKAUTHOR.Text = FMain.VListaBIB[FMain.VListaBIB.row, 5].Text
  FMain.txtEDITOR.Text = FMain.VListaBIB[FMain.VListaBIB.row, 6].Text
... siguen campós
End

Harpo, voy a intentar entender lo que dices, es demasiado para mí, pero no le escapo al bulto.

Gracias y saludos