Sub Click(Source As Button)    Dim ss As New NotesSession    Dim ws As New notesuiworkspace         Dim CurDB As NotesDatabase    Dim db As NotesDatabase        Dim uidoc As notesuidocument    Dim vw As NotesView        Dim doc As NotesDocument    Dim doc1 As NotesDocument    Dim wldoc As NotesDocument    Dim collection As NotesDocumentCollection        Set uidoc=ws.currentdocument    Set doc=uidoc.document        Set CurDB = ss.CurrentDatabase        Set vw = CurDB.GetView("")    Set wldoc = vw.GetDocumentByKey("")        If Not wldoc Is Nothing Then        Set collection = ws.PickListCollection(PICKLIST_CUSTOM,False,wldoc.DestDbServer(0),wldoc.DestDbPath(0),wldoc.DestDbView1(0),"","" )        If collection.Count = 0 Then            Exit Sub        Else            Set doc1=collection.GetFirstDocument                        If Not ( doc1 Is Nothing ) Then                doc.CpName=.....
                doc.chanpinming = ....
End If        End If    End If    End Sub