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