用LotusScript怎样实现？

cxzjxnc

在用formula公式时，在事件input validation中常用到：
@If(field=Null;@Failure(" ");@Success)这条判断语句，
我用这个：Sub Exiting(Source As Field)
        Dim session As New notessession
        Dim workspace As New notesuiworkspace
        Set db=session.currentdatabase
        Set uidoc=workspace.currentdocument       
        If (uidoc.FieldGetText("PartNo")="")  Then
                Messagebox  "Please enter Part No!"
                Call uidoc.gotofield("PartNo")
        End If
        Call uidoc.refresh
End Sub
但当有个域为空的时候，它不会自动跳出错误信息，用LotusScript怎样实现这个功能呢？

neil_1

dim doc as NotesDocument
dim strPartNo as string

set doc = uidoc.Document

strPartNo = doc.PartNo(0)

strPartNo = trim(strPartNo)

if strPartNo = "" then
   
    Messagebox  "Please enter Part No!"
    Call uidoc.gotofield("PartNo")

end if

adamlong

我也怀疑是输入了空格造成的，trim可以挤掉多余的空格，但是不一定从根本上解决问题。楼主用的是前台文档判断，而且在判断前没有调用save之类的语句，很可能修改了数据，但是因为没有保存而导致取判断的时候仍然被认为没有修改，比如说：原域a中有值，现在删除，但在触发保存事件前，就触发了检查代码。因此我建议不仅要用trim去掉空格，还要在比较域值前先保存，而且要注意前台文档和后台文档的刷新和冲突问题，处理不好save语句容易导致“另一版本冲突”的问题，特别是有rtf域的情况下。


注：这是本人在5.x版本下开发程序的一点小经验，不知6.x下否通行。
一点愚见，如果错误请指教，adam。

cxzjxnc

请问楼主：
1、这个事在哪写啊
2、我要的效果是，当有户在编辑一个表单时，如果有一个域一个表为空，它都会跳出“错误信息”，而不是指定到这个域，当你不输入的时候它跳出错误信息
3、我要的是类似用formula语言，在input validation中常用到：@If(field=Null;@Failure(" ");@Success)这条语句效果，用它自动判断许多域为空时会自动跳出相关的信息。

neil_1

你可以用@Trim去掉空格啊～，我觉得你的这个需求只是数军为空时报错，所有在@If里再加一个条件
@Trim(field) = ""