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

最新推荐文章于 2020-05-13 21:29:54 发布

光哥_帅

最新推荐文章于 2020-05-13 21:29:54 发布

阅读量387

点赞数 3

CC 4.0 BY-SA版权

分类专栏： # 学生信息管理系统

本文链接：https://blog.youkuaiyun.com/jerry11112/article/details/77623386

学生信息管理系统专栏收录该内容

9 篇文章

订阅专栏

本文介绍了Variant数据类型的特性和应用，展示了如何使用Variant类型变量实现数据类型的灵活转换。此外，还详细解释了在学生信息管理系统中利用Bookmark进行数据记录定位和修改的流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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