Programación General > Visual Basic 6.0 e inferiores

 Recuperar El Nombre Del Campo

<< < (2/2)

DiabloRojo:
Supongo que lo que deseas es devolver el nombre de la columna. Hace un buen rato que no trabajo con el datagrid pero creo que puedes obtener ese valor capturando el valor de la columna y asignando 0 al valor de la fila. Algo así:


--- Código: Text --- Private Sub Datagrid1_Click()   Dim ColActual as Integer   Dim NombreCampo as String   '   'Capturas   ColActual=Datagrid1.Col   '   'Estableces la celda activa   Datagrid1.Col=ColActual   DataGrid1.Row=0   '   NombreCampo=DataGrid1.TextEnd  
Mummmm... escribiendo el código me doy cuenta que no necesitas capturar la columna actual (pues esta no cambiará) lo único que necesitas es establecer la propiedad row a 0 (cero) para ubicarte en la primera fila (que asumo es fija y contiene los nombres de los campos).

Espero que sea lo que buscas.

Saludos.


DiabloRojo

DiabloRojo:
Hola pmike. Pues me quedé con la duda después de enviar el post anterior y me puse a revisar en el VB. Lamentablemente no es la respuesta correcta o al menos en mi compu no funciona (últimamente he tenido problemas con ella). Dando y dando llegué a esto:


--- Código: Text --- Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)   On Error Resume Next   'Muestra el contenido de la cabecera de la columna   Text1.Text = Adodc1.Recordset.Fields(DataGrid1.ColContaining(X)).Name   'Establece la celda activa del grid   DataGrid1.Col = DataGrid1.ColContaining(X)   DataGrid1.Row = DataGrid1.RowContaining(Y)   'Muestra el contenido de la celda activa   Text2.Text = DataGrid1.TextEnd Sub  
Creé un pequeño proyecto que consta de 2 textbox, 1 datagrid y 1 adodc. El On Error Resume Next es por si el usuario hace click en los encabezados de columna. Ahora sí, espero que sea lo que andas buscando.

Saludos


DiabloRojo.

Navegación

[0] Índice de Mensajes

[*] Página Anterior