У меня так:
text1.valid
***мультиселект определение страртовой записи***
thisform.nStartMultiSelect=RECNO(this.Parent.Parent.RecordSource)
******************************************

text1.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO CASE
*** левая кнопка мыши+CTRL или пробел***
case nKeyCode=0 AND nShiftAltCtrl=2 OR nKeyCode=32
SELECT (this.Parent.Parent.RecordSource)
REPLACE multi_sel WITH IIF(multi_sel=.T.,.F.,.T.)
this.Parent.Parent.Refresh()
RETURN
****************************************
*** левая кнопка мыши+Shift***
case nKeyCode=0 AND nShiftAltCtrl=1
LOCAL nStartDiap, nEndDiap, nRecEndSelect
nEndDiap=this.Parent.Parent.ActiveRow
SELECT (this.Parent.Parent.RecordSource)
nRecEndSelect=RECNO()
IF (thisform.nStartMultiSelect)>0
GO RECORD (thisform.nStartMultiSelect)
ELSE
IF !BOF((this.Parent.Parent.RecordSource))
GO TOP
ENDIF
ENDIF
nStartDiap=this.Parent.Parent.ActiveRow
FOR i=1 TO ABS(nStartDiap-nEndDiap)+1
REPLACE multi_sel WITH IIF(multi_sel=.T.,.F.,.T.)
IF nStartDiap-nEndDiap>0
IF !EOF((this.Parent.Parent.RecordSource))
SKIP
ENDIF
ELSE
IF !BOF((this.Parent.Parent.RecordSource))
SKIP -1
ENDIF
ENDIF
ENDFOR
GO RECORD nRecEndSelect
this.Parent.Parent.Refresh
****************************************
ENDCASE

text1.MouseDown

LPARAMETERS nButton, nShift, nXCoord, nYCoord
***мультиселект левая кнопка мыши+Shift***
IF nButton=1
this.KeyPress(0,nShift)
ENDIF
******************************************
multi_sel логическое поле в курсоре
text1-CurrentControl во всех Column Grid-а

Немного переделал, что бы было понятнее, у меня эта фигня в классе, все ссылки на Grid, ну а Вам необходимо будет добавить несколько свойств для формы.
Проверьте как работает, может что-то и пропустил