-

General/RepIndicadorResumen.aspx.vb

@@ -292,6 +292,7 @@ Partial Class General_RepIndicadorResumen
         DtVxP.Columns.Add("Color")
         DtVxP.Columns.Add("Unidad")
         RowColorIndex = 0
+        If GvVxP.datasource IsNot Nothing Then
             For Each Dr As DataRow In GvVxP.DataSource.Rows
                 If Not Dr("Orden").ToString = "" Then
                     Dim Row As DataRow = Nothing
@@ -307,6 +308,8 @@ Partial Class General_RepIndicadorResumen
                     End If
                 End If
             Next
+        End If
+
         'Dim vxp = From s In DtVxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
         'Dim group_vxp = vxp.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
         '    .Texto = Function(x) x.Texto.ToString,