Copytodatabase 这么用对不对啊。

hzhang

我想从一个文档中取出一个server的名称，然后在现在的数据库中找出一年前的文档copy到那个server的一个数据库中。我这里没有server，没有办法试，也是第一次用copytodatabase这个方法，各位能不能帮我看看这段程序对不对啊。多谢了。
Sub Click(Source As Button)
        Dim session As New NotesSession
        Dim db As Notesdatabase
        Set db=session.CurrentDatabase
        Dim view As NotesView
        Dim doc,doc1 As Notesdocument
        Set view = db.GetView("Archive Server")
        Set doc=view.GetFirstDocument
        Dim serverna, Yforqplan As Variant
        Dim m,yr As String
        Dim x,y As String
        yr=Year(Today)
        serverna=""
        While Not (doc Is Nothing)
                serverna = doc.GetItemValue("archiveservername")
                Set doc = view.GetNextDocument(doc)
        Wend
        Dim archivedb As New NotesDatabase(serverna,"Archive Tool v1.1.nsf")
        Set view = db.GetView("Quarterly Plan")
        Set doc=view.GetFirstDocument
        While Not (doc Is Nothing)
                Set doc1=view.GetNextDocument(doc)
                Yforqplan = doc.GetItemValue("yearquarter")
                y=Yforqplan(0)
                x=Left$(y,4)
                'Messagebox x
                If Cint(x) = Cint(yr)-1 Then
Call doc.CopyToDatabase(archivedb)
                        Call doc.Remove(True)
                End If
                Set doc = doc1
        Wend
End Sub

hzhang

请帮我看看吧。

llmxp6

没有server也可以从本地copy到本地嘛，server那里填写（""）空字符串就行了

hzhang

oh.....明白了。谢谢