[Gambas-user] FORM.Name overridden.... FORM.Delete overridden errors

[Jussi Lahtinen]

Please send runnable project. That way your code is not very readable.
I don't understand how you can get error from "form.delete" when it's not
in your code..?

Jussi


On Fri, Dec 13, 2013 at 9:46 PM, Pino Zollo <pinozollo at ...626...> wrote:

> Gambas 3.5.1
>
>
>
> A TextBox with name "Name"  gives FORM.Name Overridden  error
>
> -------------------------------------------------------------------
>
>
> The string "DELETE" gives error FORM.Delete overridden at line:
>
>      If FBand.ComboBand.Text <> "WFAX" Then
>
> -------------------------------------------------------------
>
> Public Sub Call_LostFocus()
>     Dim GMT As Date
>     Dim F As Float
>     Dim FRMHZ As String
>     Dim sql As String
>
>     FRMHZ = FRtoMHz() ' This depends on comma
>
>     GMT = Vb.DateAdd("h", - toffset, Now)
>    If Run Then
>        If Not CheckCQ() Then
>         rData = Mglobal.$hConn.Exec("DELETE FROM spots WHERE DXCall =
> 'CQ <---' AND dxband = '" &
>                             ComboBand.Text & "' ;") ' it was on
> different frequency
>    ' DEBUG "Deleted by Call_LostFocus "
> '   IF comma THEN
>       If FBand.ComboBand.Text <> "WFAX" Then '
> <------------***********************************************************
>         sql = "INSERT INTO spots " &
>            "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry, dxstat,
> dxmode, radiomode ) " &
>            "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT) &
> " " &
>             Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" & "CQ
> <---" & "','" &
>             FRMHz & "','" & FRMHz &
>              "','" & ComboBand.Text & "','" & "" & "','" & "CQCQ" &
> "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & "'); "
>       Else
>          sql = "INSERT INTO spots " &
>             "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry,
> dxstat, dxmode, radiomode  ) " &
>             "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT)
> & " " &
>              Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" &
> UCase$(Call.Text) & "','" &
>              FRMHz & "','" & FRMHz &
>               "','" & FBand.ComboBand.Text & "','" & "WFAX" & "','" &
> "DIAL" & "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & "'); "
>       Endif
>          rData = Mglobal.$hConn.Exec(sql)
>
>         ' rData = Mglobal.$hConn.Exec("INSERT INTO spots " &
>         '    "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry,
> dxstat, dxmode, radiomode ) " &
>         '    "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT)
> & " " &
>         '     Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" & "CQ
> <---" & "','" &
>         '     FRMHz & "','" & FRMHz &
>         '      "','" & ComboBand.Text & "','" & "" & "','" & "CQCQ" &
> "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & "'); ")
>    ' ELSE
>    '      rData = Mglobal.$hConn.Exec("INSERT INTO spots " &
>    '         "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry,
> dxstat, dxmode, radiomode  ) " &
>    '         "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT)
> & " " &
>    '          Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" & "CQ
> <---" & "','" &
>    '          Replace$(Replace$(FreqRadio.text, ".", ""), ",", ".") &
> "','" & Replace$(Replace$(FreqRadio.text, ".", ""), ",", ".")&
>    '           "','" & ComboBand.Text & "','" & "" & "','" & "CQCQ" &
> "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & "'); ")
>    ' ENDIF
>          rData = Mglobal.$hConn.Exec("delete FROM spots where dxcall <>
> 'CQ <---' and freqrx = (select freqrx from spots where dxcall = 'CQ
> <---' AND dxband = '" &
>                             ComboBand.Text & "' ); ") ' <--- errore
> nella subquery.. c'è un altro CQ in altra banda e dà 2 risultati
>         If FBandActive Then FBand.FillForm()
>        End If
>    Else
>     If Not CheckCall(Call.text) Then
>      If Call.Text <> "" Then
> '       IF comma THEN
>        If FBand.ComboBand.Text <> "WFAX" Then
>          sql = "INSERT INTO spots " &
>             "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry,
> dxstat, dxmode, radiomode  ) " &
>             "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT)
> & " " &
>              Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" &
> UCase$(Call.Text) & "','" &
>              FRMHz & "','" & FRMHz &
>               "','" & ComboBand.Text & "','" & LabCountry.Text & "','" &
> "DIAL" & "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & "'); "
>        Else
>          sql = "INSERT INTO spots " &
>             "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry,
> dxstat, dxmode, radiomode  ) " &
>             "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT)
> & " " &
>              Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" &
> UCase$(Call.Text) & "','" &
>              FRMHz & "','" & FRMHz &
>               "','" & FBand.ComboBand.Text & "','" & "WFAX" & "','" &
> "DIAL" & "','" & ComboMode.Text & "','" & RigMode & " " & RigBand & "'); "
>        Endif
>          rData = Mglobal.$hConn.Exec(sql)
>          ' rData = Mglobal.$hConn.Exec("INSERT INTO spots " &
>          '    "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry,
> dxstat, dxmode, radiomode  ) " &
>          '    "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" &
> Year(GMT) & " " &
>          '     Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" &
> UCase$(Call.Text) & "','" &
>          '     FRMHz & "','" & FRMHz &
>          '      "','" & ComboBand.Text & "','" & LabCountry.Text & "','"
> & "DIAL" & "','" & ComboMode.Text & "','" & RigMode & " " & RigBand &
> "'); ")
>        ' ELSE
>        '    rData = Mglobal.$hConn.Exec("INSERT INTO spots " &
>        '     "(SpotTS, DXcall, FreqRX, FreqQSX, dxband, dxcountry,
> dxstat, dxmode, radiomode  ) " &
>        '     "VALUES( '" & Day(GMT) & "/" & Month(GMT) & "/" & Year(GMT)
> & " " &
>        '      Time(Hour(GMT), Minute(GMT), Second(GMT)) & "','" &
> UCase$(Call.Text) & "','" &
>        '      Replace$(Replace$(FreqRadio.text, ".", ""), ",", ".") &
> "','" & Replace$(Replace$(FreqRadio.text, ".", ""), ",", ".")&
>        '       "','" & ComboBand.Text & "','" & LabCountry.Text & "','"
> & "DIAL" & "','" & ComboMode.Text & "','" & RigMode & " " & RigBand &
> "'); ")
>        ' ENDIF
>         If FBandActive Then FBand.FillForm()
>      End If
>     End If
>    End If
>    If comma Then
>       Try Freqb4 = Val(Replace$(Replace$(FreqRadio.text, ",", ""), ".",
> ",")) ' <----- Tranverters ???
>    Else
>       Try Freqb4 = Val(Replace$(FreqRadio.text, ",", "")) / 1000
>    Endif
> '   DEBUG "Freqb4 ", Freqb4
> Catch
>    Message.Error("Call Lost Focus: " & Error.Text & "  " & Error.Where)
> End
>
> -----------------------------------------------------------------------------------
>
>
> These misbehaviours were not present in Gambas2 !
>
>
> -------------------------
>
> Salud
>
> Pino
>
>
>
> ------------------------------------------------------------------------------
> Rapidly troubleshoot problems before they affect your business. Most IT
> organizations don't have a clear picture of how application performance
> affects their revenue. With AppDynamics, you get 100% visibility into your
> Java,.NET, & PHP application. Start your 15-day FREE TRIAL of AppDynamics
> Pro!
> http://pubads.g.doubleclick.net/gampad/clk?id=84349831&iu=/4140/ostg.clktrk
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>