-- ocultar columnas que no tengan existencia

2022-12-12 22:20:18 -07:00
parent eba2d34974
commit 7ff970f8ab
1 changed files with 4 additions and 4 deletions
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -158,10 +158,10 @@ Partial Class Inventarios_KardexAlmacen
                    Dim TotColumna As Double = 0
                    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
+                    Next
+                    If Not TotColumna > 0 Then
+                        ListaBorrar.Add(dt.Columns(index))
+                    End If
                Next
                For Each item As DataColumn In ListaBorrar
                    dt.Columns().Remove(item)