Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
At click event work
Message
De
19/01/2005 07:42:17
 
 
À
19/01/2005 07:29:23
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 5
Divers
Thread ID:
00978332
Message ID:
00978486
Vues:
31
I guessed so. Remeber it's a big difference to skip to the next normal record, and to skip to the next record which does not exist! Replace "SKIP -1 IN (grdTable)" with "APPEND BLANK IN (grdTable)"


>hi,
>yes i want to go to next a new, blank record.
>thanks.
>>To avoid confusion, and since I have not read all the messages: is the 'next' record a normal record, or do you want a new, blank record?
>>
>>>hi,
>>>i use set step on and via step over, i see all steps works ,
>>>and it make skip to next ,but when i stop set step on ,via brow it stay at the same record.
>>>thanks
>>>
>>>>Add SET STEP ON and see what happens for each line.
>>>>
>>>>>hi,
>>>>>i remove thisform.grid1.refresh(), but still ,no skip to next record,
>>>>>but the same code it works via click .
>>>>>
>>>>>   m.a=thisform.timeadd(thisform.timeadd(thisform.timeadd(thisform.timeadd(true,hot),balanc),mint),other)
>>>>>   m.w=thisform.timeadd(plan,("00:00:00"))
>>>>>IF m.a=m.w and m.a>"00:00:00" and m.w>"00:00:00"
>>>>>          =MessageBox("true")
>>>>>          grdTable = thisform.Grid1.RecordSource
>>>>>          thisform.Grid1.column7.SetFocus()
>>>>>          SKIP IN (grdTable)
>>>>>    IF EOF()
>>>>>       SKIP -1 IN (grdTable)
>>>>>    ENDIF
>>>>>
>>>>>ELSE
>>>>>      =MessageBox("false")
>>>>>      thisform.Grid1.column7.SetFocus()
>>>>>ENDIF
>>>>>
>>>>>>You have to check the order in which things happens:
>>>>>>IF m.a=m.w
>>>>>>  =MessageBox("true")
>>>>>>  grdTable = thisform.Grid1.RecordSource
>>>>>>  SKIP IN (grdTable)&&¬hng happend
>>>>>>  IF EOF(grdTable)
>>>>>>     SKIP -1 IN (grdTable)
>>>>>>   ENDIF
>>>>>>   thisform.Grid1.column7.SetFocus()
>>>>>>   thisform.Grid1.refresh() && I am not sure if this ine is necessary!
>>>>>>
>>>>>>ELSE
>>>>>>
>>>>>>   =MessageBox("false")
>>>>>>
>>>>>>ENDIF
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform