- 博客(4)
- 收藏
- 关注
RSS订阅原创 学生之设置课程重复问题优化
问题一：在设置课程窗体中，课程会重复添加，下面的代码可以避免课程的重复添加，利用 for… next进行循环判断Private Sub cmdadd_Click() Dim selectcourse As Integer Dim i As Integer Dim j As Integer If Listallcourse.List(Listallc...
2019-07-29 10:59:37
499
33
原创 学生之限制下拉框不可编辑
再敲学生的时候，经常用到下拉框，很容易对下拉框进行误编辑，这时候就需要将下拉框设置成只可以下拉不可以编辑的。最初的时候改了一下combox的style属性，将其改为2，但是改完之后会发现如下错误所以直接将style改为2是不可以的，下面的方法可以实现：将style属性改回0然后添加下面一行代码，通过keypress，限制不能键盘输入Private Sub combograde_KeyPr...
2019-07-29 09:24:00
493
28
原创 学生修改学籍信息窗体之下表越界问题
学籍信息查询窗体用到了MSFlexgrid控件显示查询出来的信息，再敲的过程中出现了下表越界的问题产生下表越界问题的原因是Msflexgrid控件的列不够的原因，因为默认的是两行两列，但是再查询学籍信息的时候，需要很多列，所以当列不够的时候，就会报这个错误，这个时候只需要改一下这个控件的列的属性，改成我们需要的就可以了。...
2019-07-28 16:34:13
743
22
原创 学生修改信息之‘3021’问题
在敲学生的时候，经常出现‘3021’问题，当BOF或EOF中有一个为真时，就会出现’3021‘的错误，出现这个问题的原因主要是查找的数据库当中没有数据，在修改学籍信息的时候，将所有的数据删除就报错，可以添加一个on error goto line 错误捕捉语句，出现3021问题的时候弹出提示框提示没有学籍信息，需要先添加学籍信息，代码如下：Private Sub cmddelete_Click(...
2019-07-28 16:28:00
316
22
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人