Italian problema con campo real

Discussion in 'Italian Forum' started by insoft, Feb 13, 2018.

  1. insoft

    insoft Member Licensed 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: Feb 13, 2018
  2. klaus

    klaus Expert Licensed User

    Aggiungere dbCursor_tab.Position = 0.
    Code:
    dbCursor_tab.Position = 0
    If dbCursor_tab.RowCount = 1 Then
        txtPrezzo.text=dbCursor_tab.GetDouble (
    "Prezzo")
    Else
        txtPrezzo.Text = 
    0
    End If
     
  3. insoft

    insoft Member Licensed User

    Grazie Klaus
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice