学生信息管理系统——出现str2$变量未定义问题

在敲学生的时候发现了一个问题，按照书上的代码敲完之后运行程序，发现变量未定义的情况，对应的代码位置是

Private Sub cmdDelete_Click()
    Dim str2$
    '记下当前记录位置
    myBookmark = mrc.Bookmark
    '提示是否删除
    str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
    '判断按钮类型
    If str2$ = vbOK Then
        '移动到数据集下一条记录
        mrc.MoveNext
                '判断数据集对象是否为空
                If mrc.EOF Then
                    '移动到数据集的第一条记录
                    mrc.MoveFirst
                    '记载当前记录的位置
                    myBookmark = mrc.Bookmark
                    '移动到最后一条记录
                    mrc.MoveLast
                    '删除记录
                    mrc.Delete
                    mrc.Bookmark = myBookmark
                    '调用函数显示数据
                    Call viewData
                Else
                    '记载当前位置
                    myBookmark = mrc.Bookmark
                    '移动到前一条记录
                    mrc.MovePrevious
                    '删除记录
                    mrc.Delete
                    '回到原来位置
                    mrc.Bookmark = myBookmark
                    '调用函数显示数据
                    Call viewData
                End If
    Else
      mrc.Bookmark = myBookmark
      Call viewData
    End If
End Sub


  

 

  
1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
30
  
31
  
32
  
33
  
34
  
35
  
36
  
37
  
38
  
39
  
40
  
41
 

在提示了变量未定义后，我最开始在代码前面加上的是dim str2$ as string ，提示了缺少：语句结束

删除了后面的as string后就可以正常运行了。

文章来源: blog.csdn.net，作者：翟文彪，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/zwb568/article/details/98081601