我只在clicked中写这个就实现了你说的Long iIF Isnull(row) OR row <= 0 THEN RETURNIF Keydown(keycontrol!)  THEN
IF IsSelected(row) THEN
SelectRow(row,FALSE)
ELSE
SelectRow(row,TRUE)
END IF
il_ImageRow = 0
ELSEIF keydown(keyshift!) THEN
IF il_imageRow > 0 THEN
IF row >= il_ImageRow THEN
FOR i = il_ImageRow TO row
IF NOT IsSelected(i) THEN SelectRow(i,TRUE)
NEXT
ELSE
FOR i = row TO il_ImageRow
IF NOT IsSelected(i) THEN SelectRow(i,TRUE)
NEXT
END IF
ELSE
FOR i = 1 TO row
IF NOT IsSelected(i) THEN SelectRow(i,TRUE)
NEXT
END IF
ELSE
THIS.SelectRow(0,FALSE)
THIS.SelectRow(row,TRUE)
THIS.ScrollToRow(row)
THIS.SetRow(row)
il_imageRow = row
END IF