谁帮我看看这个代理,谢谢,非常急!!
有谁给我看看下面这段代理，怎么总是报错？？？？非常急，谢谢!!
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim sql As New NotesDateTime("01/01/1900")
Dim dd As NotesDocumentCollection
Dim time_day As NotesItem
Dim search1 As String
Set doc=session.DocumentContext
Set db=session.CurrentDatabase
Set time_day=doc.GetItemValue("t2")
search1 = "Form = ""rcgl_zjrc"" _
& rcksrq = @date(Cstr(time_day.value))"
Set dd = db.Search(search1,sql,0)
Call dd.PutAllInFolder("a")
End Sub
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim sql As New NotesDateTime("01/01/1900")
Dim dd As NotesDocumentCollection
Dim time_day As NotesItem
Dim search1 As String
Set doc=session.DocumentContext
Set db=session.CurrentDatabase
Set time_day=doc.GetItemValue("t2")
search1 = "Form = 'rcgl_zjrc'&rcksrq = '@date(Cstr(time_day.value))"
Set dd = db.Search(search1,sql,0)
Call dd.PutAllInFolder("a")
End Sub
应该这样，
Set time_day=doc.GetItemValue("t2")
改为
Set time_day=doc.GetFirstItem("t2")
得到它的值，是time_day.values(0)
并且，如果你的time_day对应的域的类型为NotesDateTime类型的话，
要用到其localtime的属性。
好像
search1 = "Form = ""rcgl_zjrc"" _
& rcksrq = @date(Cstr(time_day.value))"
中的Cstr使用有错
search1 = {Form = "rcgl_zjrc" & rcksrq = @date(} _
+ Cstr(time_day.value) + {)}
search1 = {Form = "rcgl_zjrc" & rcksrq = @date(} _
+ Cstr(doc.t2(0)) + {)}
