主题：[求助]内部函数传值

PersonName=……  '赋值

Return Openid & "|" & PersonName

接收

Dim openid，PersonName As String

dim ss() as string = Functions.Execute("WebCheckUserByOpenid2UserName",e,wb,PersonName).split("|")

openid = ss(0)

PersonName  = ss(1)

方法2，返回数组

PersonName=……  '赋值

Return {Openid,PersonName}

接收

Dim openid，PersonName As String

dim ss() as string = Functions.Execute("WebCheckUserByOpenid2UserName",e,wb,PersonName)

openid = ss(0)

PersonName  = ss(1)