|
|
楼主 |
发表于 2015-5-14 09:46:19
|
显示全部楼层
本帖最后由 mdyblog 于 2015-5-14 10:17 编辑
改好了。
设置和查询子界面示例.wcs.zip
(673 Bytes, 下载次数: 3)
- ENVI^ EnviMode=1
- ENVI &&WM_LBUTTONDOWN=0x0201
- CALL @Page0
- _SUB Page0,W543H256,123,,%MyName%,
- SET &Page1.L7= //上传的数据
- SET &Page2.L8=
- TABS &&T1,L19T17W500H157,Page1::456;Page2::789,
- ENVI @&&T1.MSG=%&WM_LBUTTONDOWN%: On_T1
- ITEM ,L361T183W60H25,查询,START,
- ITEM ,L436T183W60H25,取消,KILL @,
- _END
- _SUB Page1,W543H174,
- LIST &&L7,L410T55W46H23,1|2|3|4|5,SET Page1.L7=%&L7%,1,
- SET Page1.L7=%&L7%
- ENVI @this.MSG=#1: SET Page1.L7=%&L7% //上传数据
- _END
- _SUB Page2,W543H182,
- LIST &&L8,L410T55W46H23,a|b|c|d|e,SET Page2.L8=%&L8%,a,
- SET Page2.L8=%&L8%
- ENVI @this.MSG=#1: SET Page2.L8=%&L8% //上传数据
- _END
- _SUB START
- ENVI @Page1.SENDMSG=#1 //上传数据
- ENVI @Page2.SENDMSG=#1 //上传数据
- MESS 【%&Page1.L7%】-【%&Page2.L8%】
- _END
- _SUB On_T1
- MESS -%&T1.Select%-
- FIND $%&T1.Select%=1,
- {
- ENVI @Page1:&&L7.VAL=5|6|7|8|9
- ENVI @Page1:&&L7=:5
- }!
- {
- ENVI @Page2:&&L8.VAL=f|g|h|i|j
- ENVI @Page2:&&L8=:f
- }
- _END
复制代码
测试正确。
|
|