Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Error 114 - Index Does not match
Message
 
 
À
28/01/2016 04:59:45
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows 7
Network:
Windows NT
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01630344
Message ID:
01630348
Vues:
50
>>The problem is 3-4 times out of 10, when they increase or decrease the due date spinners, they get the error:
>>"Error # 114: Index does not match"
>
>Do you have code in the 'due date spinners' event methods such as .InteractiveChange() and/or .Valid()?

Thank you for your response;
Yes I do.
* Init() has:
this.dField = 'vProd.Due_Date1'
this.InitDate = DATE()
DateSpinner::Init()
this.Parent.lblDow1.Refresh()

* Gotfocus() has:
this.BackColor = p_bcs
DODEFAULT()
thisForm.lblHome.Visible = .T.
thisForm.lblHome.Refresh()

* InterActiveChange() has:
DateSpinner::InterActiveChange()
this.Parent.lblDow1.Refresh()

* LostFocus() has:
this.BackColor = p_bc
DateSpinner::LostFocus()
IF this.Parent.SpDue2.dDate < this.dDate
   this.Parent.SpDue2.dDate = this.dDate
   this.Parent.SpDue2.Refresh()
ENDIF   
DODEFAULT()
thisForm.lblHome.Visible = .F.
thisForm.lblHome.Refresh()

Valid() has:
IF DateSpinner::Valid()
   this.Parent.lblDow1.Refresh()
   IF vProd.Due_Date1 # this.dDate
      SELECT vProd
      REPLACE vProd.Due_Date1 WITH this.dDate
   ENDIF   
   RETURN .T.
ENDIF   

* Refresh() has:
this.Enabled = thisForm.lAllowEdits .OR. thisform.HotLink
DateSpinner::Refresh()
this.Parent.lblDow1.Refresh()
Thanks.
Cyrus Nima
-------------------
cyrusnima@gmail.com
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform