Mensaje dentro de Familia Visual Studio

Responder 
#1 - 05/11/2009 15:46:34 Reporta abuso | Link Permanente
Gema Colombia
Usuario no registrado
Comparar valores tipo decimales

Responder Citar

Buen dia

Necesito comparar un valor decimal . Lo hice asi y no me funciona para el caso cuando el valor
con decimales (0.50)

Dim Diferencia As Integer = 0
Dim Com As Decimal = 0.0


If Me.DataGridView2.Columns(e.ColumnIndex).Name = "Dif" Then
Diferencia = CInt(CType(sender, DataGridView).Rows(e.RowIndex).Cells("Dif").Value)


'Si Diferencia es diferente que 0.0 cambie el color del campo "Dif"
'Ejm Diferencia = 0.50  y con este valor no me funciona :(

If Diferencia <> Com Then
e.CellStyle.ForeColor = Color.Red
Else
e.CellStyle.ForeColor = Color.Black
End


Gracias

GEMA
COLOMBIA

Volver arriba

Respuestas
Mostrar de en 15
#2 - 05/11/2009 19:58:16 Reporta abuso | Link Permanente
Gema Colombia
Usuario no registrado
RE: Comparar valores tipo decimales

Responder Citar

Ya logre encontrar la respuesta:

1ro. Declaro la  variable Diferencia como Single

      Dim Diferencia As Single

2do. le asigno a la Variable el valor que trae la columna "Dif"

      Diferencia = CType(sender, DataGridView).Rows(e.RowIndex).Cells("Dif").Value

3ro. Ahora si hago la comparacion

      If Diferencia <> 0 Then
         e.CellStyle.ForeColor = Color.Red

      End


Gema
COLOMBIA
Volver arriba
Mostrar de en 15