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?
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?
我调试首先指向这行:CommonDialog1.DialogTitle = "请输入数据库文件名:"
然后一行一行下走
把CommonDialog1删除了再拖上个
谢谢你,根据你的提示可以了。
也谢谢dbcontrols,他说的都是对的。
原因是我两个程序中可以用的那个程序的CommonDialog1放到了form范围外导致看不见(在form边上放CommonDialog1后缩小form)。多以我以为两个程序一样而困惑了好几天。