如变更单中有一个处理人字段clr，为“张三”
想要获取张三的电子邮件地址，
使用clr.email时会告知没有对象，
如何写代码？
急求，谢谢。

问题已经解决 [打开主题]

本主题的最佳答案为 [ 2 楼].

Dim session
Dim UserEntity, userEmail
Set session = GetSession
If GetFieldValue("clr").GetValue <> "" Then
Set UserEntity = session.GetEntity("users", GetFieldValue("clr").GetValue)
userEmail = UserEntity.GetFieldValue("Email").GetValue()
End If

[ 本帖最后由 yunshan 于 2008-2-1 10:59 编辑 ]

最佳答案

该回答被楼主/管理员列为正解!

Assigner="张三"
                    Set UserEntity = sessionobjcs.GetEntity("users", Assigner)
                    userEmail = UserEntity.Email

运行最后一个语句时错误，对象不支持此属性或方法 UserEntity.Email

是我看错了，把最后一句换成下面一句就可以了
userEmail = UserEntity.GetFieldValue("Email").GetValue()

可以获取邮件地址了，
非常感谢yunshan！