-- ocultar columnas que no tengan existencia

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -159,9 +159,9 @@ Partial Class Inventarios_KardexAlmacen
                     For Each Dr As DataRow In dt.Rows
                         TotColumna += Dr.Item(index).ToString.ToDouble
                     Next
-                    'If Not TotColumna > 0 Then
-                    '    ListaBorrar.Add(dt.Columns(index))
-                    'End If
+                    If Not TotColumna > 0 Then
+                        ListaBorrar.Add(dt.Columns(index))
+                    End If
                 Next
                 For Each item As DataColumn In ListaBorrar
                     dt.Columns().Remove(item)