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