With rscourse If addFlag Then .AddNew
rscourse.Fields(0) = Textid.Text
rscourse.Fields(1) = Textname.Text
rscourse.Fields(2) = Combo1.Text
rscourse.Fields(3) = TextBorndate.Text
rscourse.Fields(4) = TextClassid.Text
rscourse.Fields(5) = Texttel.Text
rscourse.Fields(6) = TextRudate.Text
rscourse.Fields(7) = Textaddress.Text
rscourse.Fields(8) = TextComment.Text
rscourse.Update
MsgBox "添加学籍信息成功!", vbOKOnly + vbExclamation, "警告"
End With
=================================================
改为
If addFlag Then
rscourse.AddNew
rscourse.Fields(0) = Textid.Text
rscourse.Fields(1) = Textname.Text
rscourse.Fields(2) = Combo1.Text
rscourse.Fields(3) = TextBorndate.Text
rscourse.Fields(4) = TextClassid.Text
rscourse.Fields(5) = Texttel.Text
rscourse.Fields(6) = TextRudate.Text
rscourse.Fields(7) = Textaddress.Text
rscourse.Fields(8) = TextComment.Text
rscourse.Update
MsgBox "添加学籍信息成功!", vbOKOnly + vbExclamation, "警告"
end if
rscourse.Fields(0) = Textid.Text
rscourse.Fields(1) = Textname.Text
rscourse.Fields(2) = Combo1.Text
rscourse.Fields(3) = TextBorndate.Text
rscourse.Fields(4) = TextClassid.Text
rscourse.Fields(5) = Texttel.Text
rscourse.Fields(6) = TextRudate.Text
rscourse.Fields(7) = Textaddress.Text
rscourse.Fields(8) = TextComment.Text
rscourse.Update
MsgBox "添加学籍信息成功!", vbOKOnly + vbExclamation, "警告"
End With
=================================================
改为
If addFlag Then
rscourse.AddNew
rscourse.Fields(0) = Textid.Text
rscourse.Fields(1) = Textname.Text
rscourse.Fields(2) = Combo1.Text
rscourse.Fields(3) = TextBorndate.Text
rscourse.Fields(4) = TextClassid.Text
rscourse.Fields(5) = Texttel.Text
rscourse.Fields(6) = TextRudate.Text
rscourse.Fields(7) = Textaddress.Text
rscourse.Fields(8) = TextComment.Text
rscourse.Update
MsgBox "添加学籍信息成功!", vbOKOnly + vbExclamation, "警告"
end if
cnn1.Provider = "Microsoft.jet.OLEDB.4.0"
cnn1.Open "StudentFile.mdb"
with rscourse
.ursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "student_Info", Con, , adCmdTable
.Fields(0) = Textid.Text
.Fields(1) = Textname.Text
.Fields(2) = Combo1.Text
.Fields(3) = TextBorndate.Text
.Fields(4) = TextClassid.Text
.Fields(5) = Texttel.Text
.Fields(6) = TextRudate.Text
.Fields(7) = Textaddress.Text
.Fields(8) = TextComment.Text
.Update
MsgBox "添加学籍信息成功!", vbOKOnly + vbExclamation, "警告"
End With