VB 实时错误 '424':要求对象
rangf 2011-03-21 01:47:32 Private Sub Command4_Click()
CommonDialog1.DialogTitle = "请输入数据库文件名:"
CommonDialog1.Flags = cdlOFNHideReadOnly 'Or cdlOFNOverwritePrompt
CommonDialog1.Filter = "Excel文件(*.xls)|*.xls"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
Route.Text = CommonDialog1.FileName
Dim strLin As String
If Trim(Route.Text) = "" Then
MsgBox "数据库路径不能为空!", vbCritical, "错误"
Exit Sub
End If
End Sub
我也上网查了说控件不存在,我看了控件存在的。我另外一个类似的程序也有跟这完全一样的一段代码没有报错,Why?