如果对任何文档进行了更改后仍无法正确阅读

Question

我有一个正在使用的表单中的按钮如果要检查是否在查看的文档列表中，“如果”状态为“锁定”的任何文档，则我将提示消息框“首先完成PC检查！”。所以

首先，单击按钮后，代码运行并且一切正常。然后，我尝试再次单击按钮而不进行任何更改，它将提示消息框。

但是，当我在任何文档中进行更改并将状态更改为其他状态（例如“活动”）时，我返回到表单并单击按钮，它不会提示消息，但是会跳过第一个“如果”并继续执行其他。

下面是我的代码：

If doc.PStatus(0) = "Lock" Then
    Msgbox "Complete PC Inspection first!"
    Exit Sub
Else
    answer% = Messagebox("Do you confirm with this infomation?", 4,"Batch Number")
    Some code...
    ...
End If

我想做的是，如果视图中任何文档中的状态仍为“锁定”，则按钮将不会继续显示“其他”。当视图中没有“锁定”状态时，它将继续“其他”。任何帮助将不胜感激。谢谢！

Answer 1

最好使用包含所有锁定文档的视图，该视图由PC锁左右排序。或使用按键和状态排序的视图，这样您就可以挑选出特定PC的所有锁定文档。如果没有，GetDocumentByKey将返回Nothing。