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
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
Porque simplemente no lo concatenas en la consulta?
- select apepat+' '+apemat+', '+nom as [empleado] from tabla
Pues ahi te va un codigo a ver si te sirve amigo
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!!!
Gracias a los dos por su ayuda!!!! SOLUCIONADO