[求助]在B/S下怎么在视图中删除文档呢？

hanweiff

[求助]在B/S下怎么在视图中删除文档呢？

suiyixin

写javascript调用代理删除

hanweiff

能说得更清楚点吗！

xmu_girl

1、在视图中添加一个选择删除的列，代码为：
unid := @Text(@DocumentUniqueID);
tmp := "<input type=\"checkbox\" name=\"Delete\" value=\"" + unid + "\">";
"<td align=center>" + tmp + "</td>"+@NewLine
2、在表单中嵌入视图，做一个删除按钮，点击按钮触发删除代理。
3、删除代理代码：
Sub Initialize
        Dim session As New notessession
        Dim db As notesdatabase
        Dim arcdb As notesdatabase
        Dim view As notesview
        Dim item As notesitem
        Dim OnPage,TotalPage As Integer
        Dim href,QUERY_STRING As String
&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;       
        Set db=session.currentdatabase
        Set doc=session.documentcontext
        Set item=doc.getfirstitem("Delete")
        Forall unid In item.values
                If unid<>"" Then
                        Set doctoarch=db.getdocumentbyunid(unid)
                        If (doctoarch Is Nothing)<>True Then
                                Call doctoarch.remove(True)
                        End If
                End If
        End Forall
&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;
              这里可以根据需要添加删除后要跳转的页面。
End Sub