LS代码实现点复选框即时弹出子表单(R6以上版本)

Sub Onchange(Source As Field)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim dates As Variant
'Dim finaldate As NotesItem
Set uidoc = workspace.CurrentDocument
Set doc=uidoc.Document
Dim item As notesitem

If Ubound(doc.test)>Ubound(doc.test1) Or (doc.test1(0)="")Then
For i=0 To Ubound(doc.test)
count=0
For j=0 To Ubound(doc.test1)
If (doc.test(i)<>doc.test1(j))Then
Dates=doc.test(i)
count=count+1
End If
Next
If (count-1)=Ubound(doc.test1)Then
doc.finaldate=dates
End If
Next
Call workspace.DialogBox( "test", True, True, True, True,False, False, "Help" )
End If
Set item = doc.GetFirstItem( "test" )
Call doc.CopyItem(item,"test1")

End Sub