首页 > 其他 > 详细

PickList的使用,按钮弹出框选择一个文档带出多个值

时间:2014-11-17 17:21:03      阅读:173      评论:0      收藏:0      [点我收藏+]
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

 

PickList的使用,按钮弹出框选择一个文档带出多个值

原文:http://www.cnblogs.com/wearethinking/p/4103742.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!