标题：求助！产生表不存在提示错误

在“车辆状态管理”窗口中Click事件中代码:

if e.sender.name.Contains("rad") then  （‘rad’单选按钮是动态增加的）
    dim ss as string = e.sender.text
    With Tables("车辆状态管理_Table1")
        Dim r As Integer
        r = .FindRow("[车牌号] = '"& ss &"'", .Position + 1, True ) '从当前行开始查找
        If r >= 0 Then '如果找到的话
           .Position = r '定位到找到的行.
       End If
   End With

end if

在本窗口按钮Button中Click事件中代码:e.form.close()，点击按钮时，产生“车辆状态管理_Table1”表不在存的提示。求教应如何解决？
其它本窗口按钮Button中Click事件中不含e.form.close()代码时为正常。

With Tables("车辆状态管理_Table1") 改为：
With DataTables("车辆状态管理_Table1")  试一试？

你用的是全局变量吧？

这样试试：

if e.sender.name = "关闭窗口按钮" then
    Return
Else
    '原代码
End If