学生总结（三）variant与mrc.bookmark

1、Variant的说明及应用

在代码中有一句Dim myBookmark As Variant，variant是可变型变量。意思就是可以自动变化，如：

    dim varA as variant

            varA="OK"     ' 变成了字符串型

            varA=15         ’变成了整形

可以任意的改变，可以用 Variant 数据类型来替换任何数据类型，这样会更有适应性！

2、学生中修改学生信息中的  mrc.Bookmark  问题

bookmark在这里指的就是游标，是成对出现的，这样才能达到我们删除当前的元组前，又能把当前更新的信息放到原来的元组中！

修改控件中的  myBookmark = mrc.Bookmark  与 取消修改控件中的 mrc.Bookmark = myBookmark 是成对出现的

删除控件中
Private Sub cmdDelete_Click(Index As Integer)
    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