碰到个Bug大家教教我怎么破

lazybird

窗体A - 显示所有订单数据列表，其中一字段为“订单状态”。
窗体B - 显示订单明细

双击窗体A中订单号字段打开窗体B，当订单状态为“Open”时，订单可修改，“Close”时不可修改，代码为：

Private Sub Form_Load()
  Select Case Me.Status
  Case "Open"
     Me.Form.AllowEdits = True
  Case "Close"
     Me.Form.AllowEdits = False
  End Select
End Sub

测试时，发现一个Bug，只要不关闭窗体B，返回窗体A打开另一个订单时并不会重新执行这段程序。
例如，先打开一个“Open”的订单，进入可以修改的状态，不关闭窗体B。接着从窗体A再打开一个“Close”的订单，则订单仍然是可修改的。

把这段代码加到别的事件，如 Form Open, Active, Current, 都没有用。

做了个例子发现上传不了（公司屏蔽了），麻烦各位老师帮看看。

todaynew

仔细看看代码就知道错在什么地方了。

lazybird

Private Sub Form_Load()
   Select Case Me.Status
   Case "Open"
      Me.Form.AllowEdits = True
   Case "Close"
      Me.Form.AllowEdits = False   (笔误，不好意思，我实际代码是对的，这个不是原因)
   End Select
End Sub

todaynew

lazybird 发表于 2015-4-28 17:04
Private Sub Form_Load()
   Select Case Me.Status
   Case "Open"

在Select Case语句前，加Msgbox me.Status
在End select 语句后，加msgbox me.form.allowedits

此外代码可以简写为：
Me.Form.AllowEdits=me.Status.value="Open"

lazybird

没有解决啊，原因是窗体B没有锁定为当前窗体，必须退出然后重新打开才能执行这段程序。
但我又不想锁定，因为有时要到别的窗体拷贝东西。

todaynew

lazybird 发表于 2015-4-29 08:47
没有解决啊，原因是窗体B没有锁定为当前窗体，必须退出然后重新打开才能执行这段程序。
但我又不想锁定， ...

用激活或者获得焦点事件不就完事了