锁住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
阅读(823) | 评论(0) | 转发(0) |