在视图上作了一个删除按钮，删除记录时怎么实现自动刷新，谢谢？

[taozhiyao1216]

我做了一个视图（名为“所有通讯录”； 别名为“nihao”），在视图上作了一个操作（名为“删除”； 类型为“按钮”）；
删除 （操作） ：click
其公式为下：
@Command([EditGotoField]; @ThisName);
@Command([EditClear])

浏览时，点击 该按钮“删除”， 会在 选中的记录 左边 出现 一个 “叉” 在 左下角出现提示"一个文档已标记为删除 ,请按f9刷新".


我想要实现的功能: 不想按f9 , 程序提示 '是否从数据库中删除一个文档' 之类的字样,然后用户选择是否删除文档.


我不知道从何下手,望指教!!

谢谢各位大虾.

[taozhiyao1216]

顶!
时刻准备 接受众位大虾的指点,谢谢!

[zgr168]

@Command( [RefreshWindow] )或@PostCommand( [RefreshWindow] )

[taozhiyao1216]

谢谢你！
这是我第一次选择这样的方式，解决问题或是请求帮助，
以前都是自己想，呜呜呜，浪费了很多宝贵的时间和精力，

谢谢你！

你是第一个帮助我的人，你真好，嘿嘿

[shuihewo]

你好,
实在不好意思,其实我对这些不懂,但我对怎样建立视图感兴趣,但对那个不懂,你能否告诉我怎么样建立自己的视图?会不会影响Server呀?
谢谢各位了,告诉我一下下

新年快乐

小虾米
06/02/10

[taozhiyao1216]

哈,我才学两天啊,谈不上懂,
建一个数据库;
点视图
点新建视图
就可以了.
然后,无非就是,点右键阿, 看看 ,就差不多了
可以编辑那个标题,(不知道是不是标题)
可以在下面,写你要连接的域.

[taozhiyao1216]

我试过了,在我的'删除'按钮
删除(操作): click
运行 客户机 公式
@Command([EditGotoField]; @ThisName);
@Command([EditClear]);
@PostedCommand([reloadwindow]);


出现的问题 是这样， 出现 那个 小叉 但在左下角 没有了 ‘按f9’之类的提醒了。
如果我按‘f9’ 才可以实现那个功能。。
也就是说，我按你的方法 写，只起了一个作用 在左下角 没有了 ‘按f9’之类的提醒了。
其他没有正的影响，或负面的。。

望指点，谢谢！ 风流先生。。

原帖由 taozhiyao1216 于 2006-2-9 04:51 PM 发表
顶!
时刻准备 接受众位大虾的指点,谢谢!

[zgr168]

@Command([reloadwindow]) 是重新载入（相当与重计算）
@Command( [RefreshWindow] ) 才是刷新

[taozhiyao1216]

在我的'删除'按钮
删除(操作): click
运行 客户机 公式
@Command([EditGotoField]; @ThisName);
@Command([EditClear]);
@Command([ReloadWindow]);
@Command([RefreshWindow])


出现的问题 是这样， 出现 那个 小叉 但在左下角 没有了 ‘按f9’之类的提醒了。
如果我按‘f9’ 才可以实现那个功能。。
也就是说，我按你的方法 写，只起了一个作用 在左下角 没有了 ‘按f9’之类的提醒了。
其他没有正的影响，或负面的。。

我按下f9 会出现 一个提示‘是否从数据库中删除***’的对话框，
我希望 当我按下‘删除’按钮 时，就可以实现上面的功能，就 把“按下f9 会出现 一个提示‘是否从数据库中删除***’的对话框” 这段中文描述转成代码，写在 我的“删除”按钮的名下


谢谢，各位大虾， 更谢谢风流先生 一再的帮忙！ 谢谢！

[lurker]

用這個可以的,自己看看幫助文件
@Command([MoveToTrash]);
@Command([EmptyTrash])

[zgr168]

Function DeleteDocs() As Integer
Dim docs As NotesDocumentCollection
Dim ws As New NotesUIWorkspace
Dim Session As New notessession
Dim Db As NotesDatabase

DeleteDocs=False
Set Db=Session.CurrentDatabase
Set docs=CurDb.UnprocessedDocuments
If docs.Count=0 Then
Messagebox("请选择删除文档!",36,"提示")
Exit Function
ELSE
Flag = Messagebox("确认删除下列" & docs.Count &"份文档？",36,"确认操作")
If Flag = 1 or Flag =6 Then
Call docs.RemoveAll(False)
End If
End If

Call ws.ViewRefresh()
DeleteDocs=True
End Function

[taozhiyao1216]

非常感谢大家的帮助，谢谢！！

[恋猪明]

我的一个设计代码


Sub Click(Source As Button)
'确定是否删除对话框过程

Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument


Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
Set view = db.GetView("view_all")

words = "是否删除本条记录（数据不可恢复）？"
temp = Msgbox(words,1+64,"提示")
If temp = 1 Then
'在这里插入删除代码
doc.Remove(True)
'刷新视图()
Call ws.ViewRefresh
End If
End Sub

[pqhkrg4jfw]

每必要作这个按钮吧 ??

选中要删除的记录

按del
按 F9
不就完了吗?点按钮多麻烦呀

[liuqhui]

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesUIView
Dim collection As NotesDocumentCollection
Set view = ws.CurrentView
Set db=session.CurrentDatabase
Call ws.ViewRefresh
Set collection=db.UnprocessedDocuments
If collection.Count=0 Then
Messagebox"对不起，请选定一个文档。",0+64+0+4096,"提示"
Exit Sub
Else
Dim doc As NotesDocument
Set doc=collection.GetFirstDocument
If(session.UserName=doc.Authors(0)) Or isdbmanager=True Then
If Messagebox("是否确认要删除该文档？",4+32+0+4096,"提示")=6 Then
Dim workspace As New NotesUIWorkspace
Call doc.Remove(True)
Call workspace.ViewRefresh
End If
Else
Messagebox"对不起！你没有权限删除该文档。",0+16+0+4096,"提示"
End If
End If
End Sub