estatusOS ahora es dinamico en en renglones y columnas

OS/CatEstatusOrdenServicio.aspx.vb

@@ -130,7 +130,7 @@ Partial Class OS_CatEstatusOrdenServicio
         AsociarEstatusUsuarios()
         CargarUsuarioConEstatus()
         UpDatos.Update()
-        'UpPrueba.Update()
+        UpPrueba.Update()
         'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
     End Sub
     Public Sub Edit_Click(sender As Object, e As EventArgs)
@@ -209,6 +209,11 @@ Partial Class OS_CatEstatusOrdenServicio
     End Sub
 
     Private Sub CargarUsuarioConEstatus()
+        Dim nombresUsuarios As New BoundField
+        nombresUsuarios.DataField = "Nombre"
+        nombresUsuarios.HeaderText = "Usuario"
+        nombresUsuarios.ItemStyle.CssClass = "columnaUsuarios"
+        Prueba.Columns.Add(nombresUsuarios)
         For Each Estatus As DataRow In DtEstatusOS.Rows
             Dim test As New CheckBoxField
             test.HeaderText = Estatus.Item("EstatusOrdenServicio").ToString
@@ -270,7 +275,7 @@ Partial Class OS_CatEstatusOrdenServicio
     Private Sub EstatusUsuariosGridActualizar()
         DtEstatusUsuariosAsociados = Nothing
         Prueba.DataBind()
-        For Contador As Integer = (Prueba.Columns.Count - 1) To 1 Step -1
+        For Contador As Integer = (Prueba.Columns.Count - 1) To 0 Step -1
             Prueba.Columns.RemoveAt(Contador)
         Next
     End Sub