以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助！产生表不存在提示错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4892)
--  作者：baoxyang
--  发布时间：2009/11/5 23:58:00
--  求助！产生表不存在提示错误
在“车辆状态管理”窗口中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()代码时为正常。
--  作者：e-png
--  发布时间：2009/11/6 0:11:00
--  
With Tables("车辆状态管理_Table1") 改为：
With DataTables("车辆状态管理_Table1")  试一试？
--  作者：czy
--  发布时间：2009/11/6 0:14:00
--  
你用的是全局变量吧？

这样试试：

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