estatusOS ahora es dinamico en en renglones y columnas

OS/CatEstatusOrdenServicio.aspx

@@ -4,6 +4,10 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
+        .columnaUsuarios{
+            text-align:left;
+            font-weight:bold;
+        }
         .Widthall {
             width: 100% !important;
         }
@@ -131,13 +135,13 @@
                         <asp:GridView ID="Prueba" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%" runat="server" AutoGenerateColumns="false" DataKeyNames="CveUsuario" EmptyDataText="No se encontraron Usuarios Registrados" ToolTip="Listado de Usuarios" Style="text-align: center">
                             <HeaderStyle VerticalAlign="Middle" />
                             <Columns>
-                                <asp:TemplateField>
+                                <%--<asp:TemplateField>
                                     <HeaderTemplate>Estatus</HeaderTemplate>
                                     <ItemStyle Width="150px" BorderStyle="None" />
                                     <ItemTemplate>
                                         <asp:Label Font-Bold="true" Style="text-align: left" Width="250px" ID="LblUsuario" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
                                     </ItemTemplate>
-                                </asp:TemplateField>
+                                </asp:TemplateField>--%>
                             </Columns>
                         </asp:GridView>
                         <div style="width: 100%; text-align: center">

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