Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Dale Dedoroy
  Where is Dale Dedoroy?
 Bacolod City, Negros Occidental
 Philippines
 Dale Dedoroy
 To: Eric den Doop
  Where is Eric den Doop?
 Houten
 Netherlands
 Eric den Doop
 Tags
Subject: RE: Eric
Thread ID: 166 Message ID: 180 # Views: 2 # Ratings: 0
Version: Unknown Category: General VFP Topics
Date: Wednesday, May 16, 2001 12:43:02 AM         
   


Rick,
Suppose you have a ThisForm.Grid1.Column1.Combo1 object. Add the following lines to the combo's concerned events/methods:

1. In the DropDown Event:
This.Tag = '1'

2. In the KeyPress Method:
LPARAMETERS nKeyCode, nShiftAltCtrl
Do Case
Case nKeyCode = 5 Or nKeyCode = 24 &&up arrow/dn arrow
If This.Tag = '0'
NoDefault
Select MyTable
If nKeyCode = 5
Skip - 1
Else
Skip
EndIf
This.Parent.Parent.Refresh
Return .F.
Else
DoDefault()
EndIf
EndCase

3. In the UpClick, Valid and When:
This.Tag = '0'

Hth,
Dale

ENTIRE THREAD

Eric Posted by Rick Fulginiti @ 5/14/2001 2:57:31 PM
RE: Eric Posted by Eric den Doop @ 5/14/2001 3:26:05 PM
RE: Eric Posted by Rick Fulginiti @ 5/15/2001 10:21:23 AM
RE: Eric Posted by Eric den Doop @ 5/15/2001 12:42:42 PM
RE: Eric Posted by Dale Dedoroy @ 5/16/2001 12:43:02 AM
RE: Eric Posted by Eric den Doop @ 5/16/2001 3:42:23 AM