遇到这个问题,查了一下发现可能是工程内的类名无效(简单的说就是将窗体名或控件名写错了)这个问题,但是找了找没有发现有什么错误的,那到底是哪出了错误了呢?还是先了解一下sbStatusBar.Panels(1).Text = "添加用户"是什么意思吧。
StatusBar1是状态栏控件的名称;Panels(1).Text表示状态栏上第1个空格所显示的文本内容,Panels(1)代表状态栏控件的第一个窗格;Format(Date, "\yyyy年mm月dd日\")这是调用格式函数Format,设置文本格式,Format函数可以将信息设置成你所需要的显示形式(格式)。
应该怎么改呢?
第一种办法:删除sbStatusBar.Panels(1).Text = "添加用户"或者将它注释掉
第二种办法:新建form取名sbStatusBar,然后在这个窗体上新建个文本框取名Panels,并且文本框属性index为1就可以了。
Private Sub Form_Load()
'添加错误处理
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from class_Info"
Set mrc = executesql(txtSQL, MsgText) '得到student表,并显示出来
On Error GoTo dateErr '如果有错误直接执行dateErr那一步
mrc.MoveFirst '
Call viewData
myBookmark = mrc.Bookmark
mcclean = True
dateErr:
If Err = 3021 Then
MsgBox "没有数据"
End If