在“车辆状态管理”窗口中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()代码时为正常。