Italian problema con campo real

insoft

Member
Licensed User
Longtime User
Buongiorno a tutti, ho il classico problema da principiante quale sono.

Ho un campo di visualizzazione definito così dal designer

Dim txtPrezzo As MaskedEditText

Leggo col codice che segue una tabella listini che contiene il nome del listino, il codice articolo e il prezzo in un campo definito REAL.

dbCursor_tab=SQL_TAB.ExecQuery ("SELECT Prezzo FROM Listini_01 WHERE Listino = 'BANCO' AND CodiceArticolo = '" & Articolo & "'")

If dbCursor_tab.RowCount = 1 Then
txtPrezzo.text=dbCursor_tab.GetDouble ("Prezzo")
Else
txtPrezzo.Text = 0
End If

Ebbene questa istruzione
txtPrezzo.text=dbCursor_tab.GetDouble ("Prezzo")
continua a darmi errore (il prezzo esiste non è null ma è 18.35)

So che sto usando GetDouble ma non mi risulta ci sia un GetReal e il campo prezzo ha sempre dei decimali.

Grazie a tutti e un grazie particolare a chi mi aiuterà a risolvere il problema.
Massimo
 
Last edited:
Top