老师,
执行 一个内部函数 获取用户信息
Functions.Execute("获取用户信息")
获取用户信息 函数代码:
Dim openid2 As String
Dim _zhangtao As String
Dim _username As String
Dim _usergroup As String
openid2 = e.Cookies("openid")
Dim dr As DataRow = DataTables("用户数据表").sqlfind("openid = '" & openid2 & "'")
If dr IsNot Nothing Then
_zhangtao = dr("账套")
_usergroup = dr("group")
_username = dr("name")
End If
怎么将获取到的_zhangtao 等信息传递出来呢?
Functions.Execute("获取用户信息")
希望接下去就 可以使用获取到的 _zhangtao 信息