大白

Dim session As New NotesSession    Dim db As NotesDatabase    Dim collection As NotesDocumentCollection    Dim doc As NotesDocument      Set db = session.CurrentDatabase    Set collection = db.Unproce

Sub Exiting(Source As Field) On Error Goto errorhandle Dim w As NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument  Set w = New NotesUIWorkspace     Set uidoc=w.CurrentDocument Set

row(i) = t1 + "/"  + t2 + "/"  + t3  + "/"  + t4row(i) = t1 & "/" & t2 & "/" & t3 & "/" & t4     数值类型的变量 和 string型的变量用 "+" 连接时会报错用 "&" 连接时不会报错