BS下的代理问题

vicky_hi

        BS下这段代理运行后会服务正在寻找请求管理的数据库，但CS下完全没问题，请问怎办
Set s=New notessession
Dim doc As notesdocument
Dim db As notesdatabase
Set doc= s.documentcontext
Set db = s.currentdatabase
        betimenum=Cstr(doc.begintime(0))
        entimenum=Cstr(doc.endtime(0))
        Dim begintime As New notesdatetime(betimenum)
        Dim endtime As New notesdatetime(entimenum)
        daynum=endtime.TimeDifference(begintime)
        daynum=daynum\3600
        daynum=(daynum\24)+1
        Dim docnew As notesdocument
        For i=1 To daynum
                If i>1 Then
                        Call begintime.adjustday(-1)
                End If
                savetime=begintime.DateOnly
                Set docnew=db.CreateDocument
                Call docnew.replaceitemvalue("Form","Book1")
                Call docnew.replaceitemvalue("tuitime",savetime)
                Call docnew.replaceitemvalue("a1",doc.a1(0))
                Call docnew.replaceitemvalue("a1_1",doc.a1_1(0))
                Call docnew.replaceitemvalue("cur_tui",doc.cur_tui(0))
                Call docnew.replaceitemvalue("bz_Memo",doc.bz_Memo(0))
                Call docnew.save(True,False)
        Next

[本贴已被 vicky_hi 于 2005-5-28 9:28:13 修改过]

neil_1

以下是引用[br]Set s=New notessession[br] Dim doc As notesdocument．  Dim db As notesdatabase[br] Set doc= s.document．ontext[br]

这些写的有错吧，其他的还没有看呢，c/s怎么可能没有问题撒？

[本贴已被 Neil 于 2005-5-27 10:51:19 修改过]

vicky_hi

复制下来显示不对,应该是
Dim doc As notesdocument  
Dim db As notesdatabase  
Set doc= s.Documentcontext  

[本贴已被 vicky_hi 于 2005-5-28 9:37:56 修改过]

neil_1

你可以加入on error goto ErrorHandle

ErrorHandle:
    msgbox "Error: "  + Error() + " ,at line:" + Cstr(Erl())

这样找出那一句有错误，如果没有错误的话可以看看代理的属性有没有设置对了