主题：发现一个问题，在并列窗口中的退出代码不管用

退出按钮：

Dim dt As Table = Tables("订单")
Dim s As String
For Each r As Row In dt.Rows
    If r.Locked = False
        s = s & r("产品")
    End If
Next
If s <> ""
    MessageBox.Show("有未锁定的行:" & s)
    Return
End If
e.Form.Close