小编use*_*877的帖子

我在名为“fin_Paiement”的表单上有一个字段。我想要做的是：字段值只接受数字和点，并用点替换任何其他字符。我用替换函数为字母值做了它，但它不起作用。我试过这个：

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
doc.fin_Paiement = Replace(doc.fin_Paiement_Montant(0), "*[a-z,A-Z]*", ".")

我将感谢您的帮助！谢谢