Concatenar cerosa la izquierda en datagridview

[velma]

Hola, tengo 3 columnas deseo concatenar ceros en los valores que contengan las columnas que solo tengan un caracter, para despues concatenar el contenido de todas las columnas en otra, tengo lo siguiente pero no lo concatena al mostrarlo en la columna 5

Código:

Código vb:
Private Sub BtnOrdena_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOrdena.Click
        Dim col2 As String
        Dim col3 As String
        Dim col4 As String
        For i As Integer = 0 To GridInd.Rows.Count - 1
 
            If GridInd.Rows(i).IsNewRow = True Then Exit For
            '   GridInd.Item(5, i).Value=
            If Len((GridInd.Item(2, i).Value)) = 1 Then
                col2 = ("0" & (GridInd.Item(2, i).Value))
            Else
                col2 = (GridInd.Item(2, i).Value)
            End If
 
 
            If Len((GridInd.Item(3, i).Value)) = 1 Then
                col3 = ("0" & (GridInd.Item(3, i).Value))
            Else
                col3 = (GridInd.Item(3, i).Value)
            End If
 
            If Len((GridInd.Item(4, i).Value)) = 1 Then
                col4 = ("0" & (GridInd.Item(4, i).Value))
            Else
                col4 = (GridInd.Item(4, i).Value)
            End If
 
            GridInd.Item(5, i).Value = col2 & col3 & col4
        Next
        GridInd.Sort(GridInd.Columns(5), ListSortDirection.Ascending)
   
    End Sub
 

alguna idea de que estoy haciendo mal?

[Dradi7]

Bueno para esto agrega otra variable mira como debe quedar tu codigo

Código vb:

Private Sub BtnOrdena_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOrdena.Click
        Dim col2 As String
        Dim col3 As String
        Dim col4 As String
        Dim con as String = ""
        For i As Integer = 0 To GridInd.Rows.Count - 1
 
            If GridInd.Rows(i).IsNewRow = True Then Exit For
            
            If Len((GridInd.Item(2, i).Value)) = 1 Then
                col2 = ("0" & (GridInd.Item(2, i).Value))
            Else
                col2 = (GridInd.Item(2, i).Value)
            End If
 
 
            If Len((GridInd.Item(3, i).Value)) = 1 Then
                col3 = ("0" & (GridInd.Item(3, i).Value))
            Else
                col3 = (GridInd.Item(3, i).Value)
            End If
 
            If Len((GridInd.Item(4, i).Value)) = 1 Then
                col4 = ("0" & (GridInd.Item(4, i).Value))
            Else
                col4 = (GridInd.Item(4, i).Value)
            End If
            
           ' PRUEBA CON ESTO HABER
           con = col2 & col3 & col4 
 
            GridInd.Item(5, i).Value = con
        Next
        GridInd.Sort(GridInd.Columns(5), ListSortDirection.Ascending)
   
    End Sub
 

[velma]

Hola, gracias por responder, ya lo probe de esa manera pero no funciona me sigue dejando sin el cero.mIncluso probe concatenando una letra alprincipio y esa si la mete pero el cero no. Lo intente poniendo value.tostring() en lugar de solo value y funciono.

[Dradi7]

a todos los estos aplica

(GridInd.Item(2, i).Value)
(GridInd.Item(3, i).Value)
(GridInd.Item(4, i).Value)

un Convert.ToString((GridInd.Item(2, i).Value))

Para que quede algo a esto

col3 = ("0" & Convert.ToString((GridInd.Item(3, i).Value)))

[Alexis_Mejias]

Si te sirve de Algo...

Los String tienen una propiedad llamada PadLeft y PadRight

Ambos Piden el total de caracteres y el relleno.

Esto es muy útil.

http://msdn.microsoft.com/es-es/library/system.string.padleft(v=vs.80).aspx

Saludos,

[sebasnaranjo]

Con la propiedad PadLeft(cantidad de numeros, valor con el que rellena), si tienes un 6 queda 000006 y si tienes 678 queda 000678