以下是引用whinda在2013-8-11 00:01:13的发言:
***********************下面更改下拉选框,浏览往期历史数据。*****************
*前提:oie是浏览器对象,并已打开相应网页"http://www.lottery.
*传入参数为要查的期数,文本格式:“13091”
*例句:BrowseAnother("13089")
Procedure BrowseAnother
Lparameters cSerial &&传入期数
otab=oie.Document.getelementsbytagname("select")&&取得Select选择框对象引用
otab.Item(0).Value=cSerial&&改期数为传入值
oie.Document.Forms(0).submit&&递交网页申请,页面刷新后,oTab的对象引用被重置,不可用了
Endproc &&需要重新申请引用。
&&网页的数据被刷新,可以重复上文述及的取数操作,获得往期数据。
如何将指定期号(如 13089)的页面内容存入字符串变量中,便于查找。***********************下面更改下拉选框,浏览往期历史数据。*****************
*前提:oie是浏览器对象,并已打开相应网页"http://www.lottery.
*传入参数为要查的期数,文本格式:“13091”
*例句:BrowseAnother("13089")
Procedure BrowseAnother
Lparameters cSerial &&传入期数
otab=oie.Document.getelementsbytagname("select")&&取得Select选择框对象引用
otab.Item(0).Value=cSerial&&改期数为传入值
oie.Document.Forms(0).submit&&递交网页申请,页面刷新后,oTab的对象引用被重置,不可用了
Endproc &&需要重新申请引用。
&&网页的数据被刷新,可以重复上文述及的取数操作,获得往期数据。
[ 本帖最后由 sdta 于 2013-8-11 02:14 编辑 ]
坚守VFP最后的阵地