求助 B/S关于刷新的问题请指教，附数据库 数据库, 指教, 求助

immo

我做一领导批示栏目，表单：领导批示-录入
两处存在刷新问题，一是录入批示后不能自动刷新，再次添加批示时不显示上次输入的内容，尽管上次输入内容已保存。二是完成录入（多次添加）返回后，打开文档看不到后来输入的内容，手动刷新页面方可。

请教如何解决

另，自学新手，入门不久，代码不规范，见谅

buglary36

请使用PRINT 语句 加URL就可!

immo

批示录入表单：pslr
可编辑文本域：PiShi，在WEB下隐藏，用于存放所有批示文本
可编辑文本域：pslr，用于录入批示文本
按钮：提交。公式@Command([FileSave]);　　@Command([FileCloseWindow])
按钮：添加批示。公式@Command([EditDocument])，进入编辑状态以继续录入批示
代理：tj。 webquerysave运行，代码如下
Sub Initialize
        Dim ss As New NotesSession
        Dim db As NotesDatabase
        Dim doc,doc1 As NotesDocument
        Set db = ss.CurrentDatabase
        Set doc=ss.DocumentContext
        tt=doc.PiShi(0)
        tt=tt+doc.pslr(0)
        doc.PiShi=tt
        doc.pslr=""
       
        doc.saveoptions="1"
        Call doc.save(True,True)
       
        unid$=doc.universalid
       
        Print "[/lszfb/OfficeSorce.nsf/ViewChuli/"+unid$+"?Open]"
End Sub

总体不算复杂，不过我费了好大劲也搞不定，请指教

附图，

wysyn

说句实在话，看了你抓的图，我还是没太看明白你的实现方式。实在是汗啊。呵呵
在这里我只想给你提供一些基本的东西。
你存储意见的域的写法是
tt=doc.PiShi(0)
tt=tt+doc.pslr(0)
doc.PiShi=tt
doc.pslr=""

从你的写法来看，你是用一个普通文本域来存放意见的。在此，我提一点小小的建议，你最好用一个多值文本域来存放。使用notesitem.appendtotextlist()方法来保存数据。

另外，好象你显示领导指示处是用了一个计算数值来显示的，是吧。其实我觉得你完全可以用域pishi来处理这一块，该域设置为“显示时计算”的多值文本，计算的内容是pishi.那样就可以解决存储和显示的问题了。
另外，如果有需要的话，你可以上QQ找我。3055621，我想看一下你的表单中的设置，以求能帮你提供一个比较完善的方案