ENVI$ &&NL=0a
ENVI$ &&TAB=09
SET  &&::WM_LBUTTONDOWN=0x0201

CALL MH2012

_SUB Page1,W288H400,P1,,,#
    ENVI &&aTITLE=+40:第1列%&TAB%+40:第2列
    ENVI &&aDATA=1%&NL%2%&NL%3%&NL%4%&NL%

  GROU GHOGROU3,L10T68W454H140
    LABE aLABE,L18T82W320H18,2.请选择：
    TABL aTABL,L18T100W440H100,%&aTITLE%,%&aDATA%,0x10040
_END


_SUB Page2,W288H400,P2,,,#
    ENVI &&hTITLE=+80:第一列%&TAB%+80:第二列
    ENVI &&hDATA=A%&NL%B%&NL%C%&NL%D%&NL%

  GROU GHOGROU6,L10T68W454H140
    LABE hLABE,L18T82W320H18,2.请选择:
    TABL aTABL,L18T100W440H100,%&hTITLE%,%&hDATA%,0x10040
_END


_SUB MH2012,W504H464,标签中表格查询测试,
    TABS TABS1,L12T6W476H236,Page1:Name1:Title1;Page2:Name2:Title2,
 
    ITEM DOIT1,L100T398W70H28,修 改,CALL CHCOLOR,
    ITEM DOIT2,L334T398W70H28,关 闭,KILL \

    ENVI @Name1:aTABL.MSG=_%&WM_LBUTTONDOWN%:  CALL aCHECK
    ENVI @Name2:aTABL.MSG=_%&WM_LBUTTONDOWN%:  CALL hCHECK
    //以上两句需使用页名称
_END


_SUB CHCOLOR
    TEAM ENVI @Name1:aTABL.Color=*1;0xFF|ENVI @Name2:aTABL.Color=*1;0xFF
    //需使用页名称
_END


//aCHECK 是 Name1:aTABL 的响应。此时的窗口为 Name1, 所以 aTABL.Sel 直接 ENVI  @aTABL.Sel=?&&Sel
_SUB aCHECK
    ENVI  @aTABL.Sel=?&&Sel
    ENVI  @aTABL.Val=?%&Sel%.1;&&aPICK
    MESS %&aPICK% 【%&Sel%】
_END


_SUB hCHECK
    ENVI  @aTABL.Sel=?&&Sel
    ENVI  @aTABL.Val=?%&Sel%.1;&hPICK
    MESS %hPICK% 【%&Sel%】
_END


