Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
At click event work
Message
From
19/01/2005 07:55:04
 
 
To
19/01/2005 07:48:43
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 5
Miscellaneous
Thread ID:
00978332
Message ID:
00978492
Views:
27
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
Previous
Reply
Map
View

Click here to load this message in the networking platform