AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- ocultar columnas que no tengan existencia

Browse Source
This commit is contained in:
rrene
2022-12-12 22:20:18 -07:00
parent eba2d34974
commit 7ff970f8ab
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

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