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