none
Poner el contenido de una fila de un datagrid en msgbox RRS feed

  • Pregunta

  • Buenas esto intentando poner todo el contenido de una fila de un datagridview en un msgbox

    me refiero a todo el contenido de tyodas las celdas con su salto corespondiente

    he estado probado un codigo que me pasaron en otra pregunta pero no doy con la tecla para contar todas las celdas he ir agrgando

    al msgbox

    Gracias

    Dim Partes1 As String() = DGV_Levaduras.CurrentRow.Cells(DGV_Levaduras.ColumnCount.) 
    
    
            ToolTip2.SetToolTip(PictureBox5, String.Join(Environment.NewLine, Partes1))
        End Sub

    miércoles, 14 de diciembre de 2016 20:24

Respuestas

  • JETET,

    Si quieres mostrar líneas con el par { Título cabecera: Valor de celda } puedes hacer lo siguiente:

    Dim Fila As DataGridViewRow = DGV_Levaduras.CurrentRow
    
    If Fila IsNot Nothing Then
    
    	Dim Texto As String = String.Empty
    
    	For Each Celda As DataGridViewCell In Fila.Cells
    		Texto += String.Format("{0}: {1}{2}",
    					DGV_Levaduras.Columns(Celda.ColumnIndex).HeaderText,
    					Celda.Value.ToString,
    					Environment.NewLine)
    	Next
    
    	ToolTip2.SetToolTip(PictureBox5, Texto)
    End If


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta JETET jueves, 15 de diciembre de 2016 16:41
    jueves, 15 de diciembre de 2016 15:19
  • Hola JETET,

    Podrías hacer :

    Dim row As DataGridViewRow = DGV_Levaduras.CurrentRow
    
    If row IsNot Nothing Then
    
        Dim celdas = row.Cells.Cast(Of DataGridViewCell).
                        Select(Function(x) x.Value.ToString()).ToArray()
    
        ToolTip2.SetToolTip(PictureBox5, String.Join(Environment.NewLine, celdas))
    End If

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    • Marcado como respuesta JETET jueves, 15 de diciembre de 2016 16:46
    miércoles, 14 de diciembre de 2016 20:38
  • Lo primero 1000 gracias por la respuesta 

    funciona perfectamente

    le he agragado un salto linea, pero ahora estoy intentando poner el nombre que aparece en la columna y no lo consigo

    guiandome por lo que tu me as puesto

    1000 gracias

    Dim row As DataGridViewRow = DGV_Levaduras.CurrentRow
    
            If row IsNot Nothing Then
                
                Dim nombre = row.Cells.Cast(Of DataGridViewCell).Select(Function(x) x.ColumnIndex.ToString() & vbCrLf).ToArray()
                MsgBox(nombre)
                Dim celdas = row.Cells.Cast(Of DataGridViewCell).Select(Function(x) x.Value.ToString() & vbCrLf).ToArray()
                ToolTip2.SetToolTip(PictureBox5, String.Join(Environment.NewLine, nombre, celdas))
    
    
            End If

    • Marcado como respuesta JETET jueves, 15 de diciembre de 2016 16:41
    jueves, 15 de diciembre de 2016 8:17

Todas las respuestas

  • Hola JETET,

    Podrías hacer :

    Dim row As DataGridViewRow = DGV_Levaduras.CurrentRow
    
    If row IsNot Nothing Then
    
        Dim celdas = row.Cells.Cast(Of DataGridViewCell).
                        Select(Function(x) x.Value.ToString()).ToArray()
    
        ToolTip2.SetToolTip(PictureBox5, String.Join(Environment.NewLine, celdas))
    End If

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    • Marcado como respuesta JETET jueves, 15 de diciembre de 2016 16:46
    miércoles, 14 de diciembre de 2016 20:38
  • Lo primero 1000 gracias por la respuesta 

    funciona perfectamente

    le he agragado un salto linea, pero ahora estoy intentando poner el nombre que aparece en la columna y no lo consigo

    guiandome por lo que tu me as puesto

    1000 gracias

    Dim row As DataGridViewRow = DGV_Levaduras.CurrentRow
    
            If row IsNot Nothing Then
                
                Dim nombre = row.Cells.Cast(Of DataGridViewCell).Select(Function(x) x.ColumnIndex.ToString() & vbCrLf).ToArray()
                MsgBox(nombre)
                Dim celdas = row.Cells.Cast(Of DataGridViewCell).Select(Function(x) x.Value.ToString() & vbCrLf).ToArray()
                ToolTip2.SetToolTip(PictureBox5, String.Join(Environment.NewLine, nombre, celdas))
    
    
            End If

    • Marcado como respuesta JETET jueves, 15 de diciembre de 2016 16:41
    jueves, 15 de diciembre de 2016 8:17
  • JETET,

    Si quieres mostrar líneas con el par { Título cabecera: Valor de celda } puedes hacer lo siguiente:

    Dim Fila As DataGridViewRow = DGV_Levaduras.CurrentRow
    
    If Fila IsNot Nothing Then
    
    	Dim Texto As String = String.Empty
    
    	For Each Celda As DataGridViewCell In Fila.Cells
    		Texto += String.Format("{0}: {1}{2}",
    					DGV_Levaduras.Columns(Celda.ColumnIndex).HeaderText,
    					Celda.Value.ToString,
    					Environment.NewLine)
    	Next
    
    	ToolTip2.SetToolTip(PictureBox5, Texto)
    End If


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta JETET jueves, 15 de diciembre de 2016 16:41
    jueves, 15 de diciembre de 2016 15:19
  • 1000 gracias willasms
    jueves, 15 de diciembre de 2016 16:41