当前位置: 代码迷 >> Lotus >> Select case 和 循环有关问题
  详细解决方案

Select case 和 循环有关问题

热度:123   发布时间:2016-05-05 07:00:08.0
Select case 和 循环问题!
具体情况如下:



在视图中选中一些文档,根据这些文档的CODE域值来对将选中的文档做一些操作。



 Dim dc As NotesDocumentCollection 
 Dim doc As NotesDocument

 Dim DCode as string


 Set dc = db.UnprocessedDocuments 
 Set doc = dc.GetFirstDocument 
 
 While Not (doc Is Nothing)
  
  DCode = doc.DbCode(0)
  
  Select Case DCode 
   
  Case "1"
   
  。。。。。。。。。。。。  

  Case "2"
  。。。。。。。。。。
  Case Else
  。。。。。。。。。。。。
  End Select
  
  If Not DCode <> "" Then  
  "相关操作" 



  End If
  
  Set doc = dc.GetNextDocument(doc)
  
 Wend





DCode的值只能在循环中才能取到,我想问以下有没什么办法让Select case不在循环中执行?



单做一个方法也时要放到循环执行啊。



感谢高手来指点下。


------解决方案--------------------
这怎么可能呢,Select Case 可不是神仙,在DCode 还没有拿到的时候它不能作判断啊,你这可以把那些与循环内变量无关的代码移出循环的。
另外,你的那个代码段:

If Not DCode <> "" Then
"相关操作"
End If

的 "相关操作" 应该放到那些Case语句里吧。

  相关解决方案