检验数字域代码,Domino代码库,德仔网

代码语言

代码分类

【Domino】检验数字域

作者:炎烯 / 发布于2016/4/13/ 1242

Sub Exiting(Source As Field)
Dim w As New notesuiworkspace
Dim doc As notesuidocument
Dim body As Variant

Set doc=w.currentdocument

num=doc.FieldGettext("num"

If Int(num)<0 Then
Messagebox "输入值非法!请输入数字值。"
Call doc.GotoField( "num" )
Exit Sub
End If

End Sub

　　

试试其它关键字

同语言下

可能有用的

炎烯贡献的其它代码(15)

Copyright © 2004 - 2024 dezai.cn. All Rights Reserved 站长博客粤ICP备13059550号-3