以下是引用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                    &&需要重新申请引用。
                                &&网页的数据被刷新，可以重复上文述及的取数操作，获得往期数据。     

以下是引用whinda在2013-8-10 23:03:07的发言：

要么直接定位到aRsult[8],我考虑不够周全,因为存在重复取数的问题,如不直接定位,请在IF...ENDIF对内取完第8个nBall的下面加一句EXIT,跳出FOR....ENDFOR,避免重复取数.请见谅,只是一个想法的初次实现,未严格验证.
 
下面上传已验证的程序：

以下是引用whinda在2013-8-11 08:26:44的发言：

就上面传的源代码附件就可以，先查找数据表，取表的文本，并存入了N1......N7的那7个数据。

以下是引用whinda在2013-8-12 00:00:36的发言：

系统:VFP9.0 SP2
这是调试器中的运行情况，下面为抓取的数据。
 
程序源码。第二个子程序使用前是有前提的。

以下是引用whinda在2013-8-12 02:13:30的发言：

这个子程序用于更改期数并刷新网页，你可以将更新后的网页引用返回给上面的处理过程呀！
在程序末加一句返回代码就可以了
return oie.document
 
如：
local oNew
oNew=BrowseAnother("13092")
 
这时你的oNew就取得了子进程中打开的IE的处理句柄（实际上是oie.document），就可以像前述代码一样处理它了。