VB 程序注释~~速度要 就几个 麻烦了

Data1.Recordset.MoveFirst

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then

Data1.Recordset.Delete

Data1.Recordset.AddNew

Data1.Recordset.MovePrevious

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then

ans = MsgBox("请重新输入", 64, "同学/友情—修改")

Data1.Recordset.MoveFirst //指针移到第一位

Data1.Recordset.MoveNext //指针下移一位

If Data1.Recordset.EOF Then //判断记录是否为空

Data1.Recordset.Delete //执行删除操作

Data1.Recordset.AddNew //添加新记录

Data1.Recordset.MovePrevious //指针下移

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then //判断是否输入是否为空

ans = MsgBox("请重新输入", 64, "同学/友情—修改") //将消息框返回的结果赋值给变量
刚刚已经回答了，只是还没审核通过，你就确定满意了~

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息