吉首到重庆汽车要多久:这些代码的意思

txtSQL = "select * from student_Form"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.AddNew
mrc.Fields(0) = Trim(Text1(0))
mrc.Fields(1) = Trim(Text1(1))
mrc.Fields(2) = Trim(Text1(2))
mrc.Fields(3) = Trim(Text1(3))
mrc.Fields(4) = Trim(Text1(4))
mrc.Fields(5) = Trim(Text1(5))
mrc.Fields(6) = Trim(Text1(6))
mrc.Fields(7) = Trim(Text1(7))
If Text1(8) = Label2(8).Caption Then
mrc.Fields(8) = ""
Else
mrc.Fields(8) = Trim(Text1(8))
End If
mrc.Update
mrc.Close
MsgBox "学籍信息添加成功!", vbOKOnly, "提示"
With MSFlexGrid1
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = Trim(Text1(0))
.TextMatrix(.Rows - 1, 1) = Trim(Text1(1))
.TextMatrix(.Rows - 1, 2) = Trim(Text1(2))
.TextMatrix(.Rows - 1, 3) = Trim(Text1(3))
.TextMatrix(.Rows - 1, 4) = Trim(Text1(4))
.TextMatrix(.Rows - 1, 5) = Trim(Text1(5))
.TextMatrix(.Rows - 1, 6) = Trim(Text1(6))
.TextMatrix(.Rows - 1, 7) = Trim(Text1(7))
If Text1(8) <> Label2(8).Caption Then
.TextMatrix(.Rows - 1, 8) = Trim(Text1(8))
End If
End With
MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1
TextDcolor
其修改关键代码：
txtSQL = "delete from student_Form where student_NO='" & Trim(Text1(0)) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)

txtSQL = "select * from student_Form"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.AddNew
mrc.Fields(0) = Trim(Text1(0))
mrc.Fields(1) = Trim(Text1(1))
mrc.Fields(2) = Trim(Text1(2))
mrc.Fields(3) = Trim(Text1(3))
mrc.Fields(4) = Trim(Text1(4))
mrc.Fields(5) = Trim(Text1(5))
mrc.Fields(6) = Trim(Text1(6))
mrc.Fields(7) = Trim(Text1(7))
If Text1(8) = Label2(8).Caption Then
mrc.Fields(8) = ""
Else
mrc.Fields(8) = Trim(Text1(8))
End If
mrc.Update
mrc.Close
MsgBox "学籍信息修改成功!", vbOKOnly, "提示"
j = 0
For i = 1 To MSFlexGrid1.Rows - 1
If MSFlexGrid1.TextMatrix(i, 0) = Text1(0) Then
j = i
End If
Next
If j <> 0 Then
MSFlexGrid1.TextMatrix(j, 0) = Trim(Text1(0))
MSFlexGrid1.TextMatrix(j, 1) = Trim(Text1(1))
MSFlexGrid1.TextMatrix(j, 2) = Trim(Text1(2))
MSFlexGrid1.TextMatrix(j, 3) = Trim(Text1(3))
MSFlexGrid1.TextMatrix(j, 4) = Trim(Text1(4))
MSFlexGrid1.TextMatrix(j, 5) = Trim(Text1(5))
MSFlexGrid1.TextMatrix(j, 6) = Trim(Text1(6))
MSFlexGrid1.TextMatrix(j, 7) = Trim(Text1(7))
If Text1(8) <> Label2(8).Caption Then
MSFlexGrid1.TextMatrix(j, 8) = Trim(Text1(8))
End If
End If
MSFlexGrid1.TopRow = j
j = 0
TextDcolor