restar un decimal

[guillebomtrasmiti]

hola amigos, tengo una grilla y un campo decimal...
el problema es que en un textbox guardo una cifra...y cuando esta tiene
decimales ni me la suma ni me la resta a la grilla...en cambio si la cifra
es redonda lo hace a la perfección....os mando el código

Dim tod As Decimal = 0
'For i = 0 To DgGenerados.Rows.Count - 1
tod = CDec(CDbl(TextCifraFinal.Text) - CDbl(TextImporte.Text))
TextDif.Text = CStr(tod)
Dim todo As Decimal = 0
'For i = 0 To DgGenerados.Rows.Count - 1
todo = CDec(((todo + Val(DgGenerados.CurrentRow.Cells(6).Value) - CDbl(TextDif.Text))))

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

com.CommandType = CommandType.Text
com.CommandText = "UPDATE HistoricoTickets SET Euros = (" & todo & ") where Euros = @FI and Id = @FA"

com.Parameters.AddWithValue("@FI", DgGenerados.CurrentRow.Cells(6).Value)
com.Parameters.AddWithValue("@FA", DgGenerados.CurrentRow.Cells(0).Value)

adapt.UpdateCommand = com
conexion.Open()
com.ExecuteNonQuery()
conexion.Close()
frmProgressbar.Close()
Catch

[Aquaventus]

Hola guille y para que haces doble conversion aqui -> CDec(CDbl(TextCifraFinal.Text), simplificando lo puedes hacer con 1 y si vas a hacer restas o sumas, procura hacerlo siempre del mismo tipo CDec(txtCifraFinal.Text) - CDec(TextDif.Text). Saludos!.