Chinaunix

标题: 如何在禁止表单时实现BUTTON的功能? [打印本页]

作者: huangjian2004 时间: 2006-08-17 16:26
标题: 如何在禁止表单时实现BUTTON的功能?
请教为何BUTTON不能实现操作功能, 老是出错,但不知道是错在哪里?

CODE:

Sub Click(Source As Button)
If Not(doc.ReviewMember(0) = session.UserName) Then
res = Msgbox("You are not the checker. Are you sure to end the check up？" , 1+48, "Check")
If res = 2 Then Exit Sub
End If

EditFlag = "1"
uidoc.EditMode = True

doc.DateToReviewed = Today
doc.ReviewedBy = session.UserName

Call doc.Save( False, True )
Call uidoc.Reload
Call uidoc.Refresh
Call uidoc.Save
Call uidoc.Close

End Sub

CODE:
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
Set doc = uiDoc.Document
If ( doc.DocStatus(0) = "Enforce" ) Or ( doc.DocStatus(0) = "Old" )Then
If Not ( uiDoc.EditMode ) Then

If Not doc.HasItem("Action") Then
Messagebox "This document already has been issue. You can not edit"
continue = False
Else

End If
End If
End If
End Sub

作者: huangjian2004 时间: 2006-08-17 16:45
标题: 高手!
这网站上高手多吗?

作者: clockmaker 时间: 2006-08-19 20:16
在程序中加入错误处理：
on error goto catch

catch:
msgbox "error:" + error() + " at " + cstr(erl)

作者: huangjian2004 时间: 2006-08-21 11:10
标题: 谢谢!
这条命令是可以执行的,但新的问题又出现了. 改了以后,不能执行以下三条命令了?

Call uidoc.Reload
Call uidoc.Refresh
Call uidoc.Save

运行了以下两条命令,还没有在屏幕上刷新显示就CLOSE
doc.DateToReviewed = Today
doc.ReviewedBy = session.UserName

不知道还要怎么改?

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)