THISFORM.GRID1.Partition=THISFORM.GRID1.COLUMN1.Width+THISFORM.GRID1.COLUMN2.Width+30 &&30相当于垂直滚动条宽度
*以固定左边三列为例: *在GRID的AfterRowChange事件中: LPARAMETERS nColIndex &&本行原来就有 FOR I=1 TO 3 THIS.COLUMNS(I).COLUMNORDER =THIS.LEFTCOLUMN+I-1 ENDFOR *在GRID的ScrolledD事件中: LPARAMETERS nDirection IF nDirection>3 THIS.AfterRowColChange() ENDIF