请高手帮忙指出错误

captainyxl

如下的语句：
Sub Exiting(Source As Field)
        Dim workspace As New NotesUIWorkspace
        Dim uidoc As NotesUIDocument
        Dim str1 As String
        Dim str2 As String
        Set uidoc=workspace.CurrentDocument
        str1=uidoc.FieldGetText("xd_EmailAddress")
        str2=s.evaluate("@name(;str1)",uidoc)
        Call uidoc.FieldSetText("xd_name",str2)
End Sub
预览时出现错误提示“variant dose not contain an object"
我知道错误是出现在这一语句：str2=s.evaluate("@prorercase(str1)",uidoc)
但不知道该怎样改。

请那位详细讲解一下怎样在script中使用公式，不胜感激！

One.Only

你的s是什么？是session吗？
应该加一条语句:dim s as new notessession

kankan

呵呵，这问题都让你找出来了，不愧是One。

/加油

captainyxl

改成
str2=evaluate("@name(;str1)"),错误提示“type mismatch”，请问错在那里？

captainyxl

谢谢One.Only，
鄙视kankan。

adamlong

str2=s.evaluate("@name(;str1)",uidoc)
这一句不要把s.evaluate("@name(;str1)",uidoc)直接赋值给string类型的变量，
申请一个Variant类型的变量，通过这个变量转赋str2一般能解决

例如改成如下：
Sub Exiting(Source As Field)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIdocument
Dim str1 As String
dim value as variant
Dim str2 As String
Set uidoc=workspace.Currentdocument
str1 = uidoc.FieldGetText("xd_EmailAddress")
value = s.evaluate("@name(;str1)",uidoc)
str2 = value(0)
Call uidoc.FieldSetText("xd_name",str2)
End Sub


一点愚见，如有错漏请指正，adam

neil_1

直接用name$ = notesSession.EffectiveUserName

adamlong

对，直接取也是一种好方法，不过我建议用

dim s as new notessession
Dim userName As New NotesName(s.UserName)

有了userName你可以转换成各种string的格式输出，
具体notesname的用法在notes的帮助文件里头有详细说明


一点愚见，如有错漏请指教，adam

[本贴已被 adamlong 于 2005-1-26 17:08:55 修改过]