锁住Grid数据窗口的指定列

分类：

锁住A列：Cliecked Event

 

LONG I,LL_XX,LL_NEXTXX,LL_AAXX
STRING STR_COLUMN,STR_COLUMNXX
LL_AAXX = LONG(DW_1.DESCRIBE("a_t.X"))
FOR I = 1 TO LONG(DESCRIBE("DataWindow.Column.Count"))
 STR_COLUMN = DW_1.DESCRIBE("#"+STRING(I)+".name") 
 LL_XX = LONG(DESCRIBE(STR_COLUMN + "_t.x")) 
 IF LL_XX > LL_AAXX THEN  
  IF LL_NEXTXX = 0  THEN
   LL_NEXTXX = LL_XX
   STR_COLUMNXX = STR_COLUMN
  END IF
  IF LL_XX < LL_NEXTXX THEN
   LL_NEXTXX = LL_XX
   STR_COLUMNXX = STR_COLUMN
  END IF
 END IF
NEXT
SLE_1.TEXT = STR_COLUMNXX
IF POINTERX() >= LONG(THIS.DESCRIBE("a_t.X"))+&
 LONG(THIS.DESCRIBE("a_t.width")) AND&
 POINTERX() <= LL_NEXTXX OR&
 (DWO.NAME = 'a_t' OR DWO.NAME = STR_COLUMNXX+'_t') THEN
 RETURN 1
END IF