Ayuda con datagridview (SOLUCIONADO)

[akonerz]

Buenas a todos veran estoy haciendo una app donde en la bd los empleados tienes su nombre apellido paterno y materno en tres campos separados y en un datagridview quiero ocultar esos tres y concatenarlos en un solo poniendo solo el nombre completo y se me ocurrio esto que tecnicamente debe de servir pero no lo ase jeje

Código [Seleccionar] Expandir

Private Sub Poner_Nombre()
       Dim Nombre As String
       Indix = 0
       For Each row As DataRow In oDataSet.Tables("Emplea").Rows
           Nombre = Me.DataGridView1.Item("ME_NOMEMP", Indix).Value.ToString _
& " " & Me.DataGridView1.Item("ME_PATEMP", Indix).Value.ToString _
       & " " & Me.DataGridView1.Item("ME_MATEMP", Indix).Value.ToString
           Me.DataGridView1.Item("Nombre", Indix).Value = Nombre
           Indix = Indix + 1
       Next
   End Sub

Haber si me pudieran ayudar en este error o de alguna otra forma de hacerlo aclaro la bd no puedo modificar ess campos ya que se usan para iversos calculos y para este tramo en especial necesito que esten juntos bueno espero me ayuden gracias

[Hadess_inf]

Porque simplemente no lo concatenas en la consulta?

- select apepat+' '+apemat+', '+nom as [empleado] from tabla

[Atrum]

Pues ahi te va un codigo a ver si te sirve amigo

Código (vbnet) [Seleccionar] Expandir


Private Sub Poner_nombre()

        Dim nombre As String
        'Ocultamos lo que contiene el datagrid
        For Each Col As DataGridViewColumn In DataGridView1.Columns
            Col.Visible = False
        Next

        'Agregamos la nueva columna
        DataGridView1.Columns.Add("Nombre Completo", "Nombre")

        'For each anidado para cada celda de la fila
        For Each Row As DataGridViewRow In DataGridView1.Rows
            nombre = ""
            For Each Cell As DataGridViewCell In Row.Cells
                'Evitamos el nullreferenceEx ya que la columna recien agregada no tiene nada
                If Cell.ColumnIndex <> DataGridView1.ColumnCount - 1 Then
                    'Concatenamos los valores y le quitamos los espacios
                    nombre += " " & Cell.Value.ToString().Trim()
                End If
            Next
            'Agregamos el valor concatenado
            Row.Cells("Nombre Completo").Value = nombre
        Next

    End Sub


Saludos y
Viva Mexico!!!

[akonerz]

Gracias a los dos por su ayuda!!!! SOLUCIONADO