Select case 和 循环有关问题

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语句里吧。