自动义一个环境变更量payType,每次运行程序都读自动义时的初始值，晕：
请看下面程序，
Call editADReservation

Function  editADReservation  

'编辑广告预定为另一类型

Browser("销售管理信息系统").Page("销售管理信息系统").Link("客户管理").Click
Browser("销售管理信息系统").Page("销售管理信息系统_2").Link("（新）广告资源").Click
Browser("销售管理信息系统").Page("销售管理信息系统_3").WebButton("查  询").Click


Set oDesc = Description.Create

oDesc("micclass").Value = "Link"
oDesc("name").Value = "详细"
oDesc("index").Value = 0



myvalue=Environment.Value("payType")
msgbox myvalue



Browser("销售管理信息系统").Page("销售管理信息系统_4").Link(oDesc).Click
Browser("销售管理信息系统").Page("销售管理信息系统_5").WebButton("编 辑(E)").Click

payType = Browser("销售管理信息系统").Page("销售管理信息系统_6").WebList("pay_type").getroproperty("value")

If payType = "购买" Then

        Browser("销售管理信息系统").Page("销售管理信息系统_6").WebList("pay_type").Select "赠送"
    expectedValue="赠送"

   
       
else
   
        Browser("销售管理信息系统").Page("销售管理信息系统_6").WebList("pay_type").Select "购买"
    expectedValue="购买"
       
End If

Environment.Value("payType") = expectedValue

myvalue=Environment.Value("payType")
msgbox myvalue

Browser("销售管理信息系统").Page("销售管理信息系统_6").WebButton("确  定").Click
Browser("销售管理信息系统").Window("消息 -- 网页对话框").Close

Browser("销售管理信息系统").Page("销售管理信息系统_4").Link(oDesc).Click


End Function

貌似不关环境变量的事。。。没发现环境变量哪里不对，楼主还是检查下其它地方的问题吧～

自定义的环境变量是可以当作普通的变量一样来使用的（包括赋值），其作用域为整个Test

不是很清楚你这里用环境变量的目的是什么，用法是没有错，但是第一句的myvalue=Environment.Value("payType") 中的payType的值为空吗？

初始化是有值的，现在问题是可以读，但不能写。