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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-28 06:58:52 -07:00
parent 20cc4a84ea
commit 71d8e44773
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Finanzas/RepRazonesFinancieras.aspx.vb
View File

@@ -217,7 +217,7 @@ Partial Class Finanzas_RepRazonesFinancieras
If i = index Then If i = index Then
serie.name = row(i).ToString() serie.name = row(i).ToString()
Else Else
Dim actual = row(i).ToString().ToDouble Dim actual As Double = row(i).ToString.ToDouble
serie.data.Add(actual) serie.data.Add(actual)
anterior = actual anterior = actual
'If Not G1 OrElse (actual >= anterior) Then 'If Not G1 OrElse (actual >= anterior) Then
@@ -415,7 +415,7 @@ Partial Class Finanzas_RepRazonesFinancieras
End Sub End Sub
Protected Sub GVDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GVDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
For i = 1 To e.Row.Cells.Count - 1 For i As Integer = 1 To e.Row.Cells.Count - 1
'Mind that i used i=1 not 0 because the width of cells(0) has already been set 'Mind that i used i=1 not 0 because the width of cells(0) has already been set
Dim cell2 As TableCell = e.Row.Cells(i) Dim cell2 As TableCell = e.Row.Cells(i)
cell2.CssClass = "ceros" cell2.CssClass = "ceros"