Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
At click event work
Message
De
19/01/2005 07:55:04
 
 
À
19/01/2005 07:48:43
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:
00978492
Vues:
26
Then we may have misunderstood each other. So the record you want to go to in the grid, does in deed exist, and you can go to it with the keyboard or click with the mouse on it?

>hi,
>i'm sorry,i need to go next(skip) normal record, not append blank
>i know the thred take much,if you have any idia ,it welcom, or forget it
>any way thank you so so so much.
>best regards.
>m.qasem
>
>>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
Répondre
Fil
Voir

Click here to load this message in the networking platform