易拉罐工艺品简单制作:大家帮我看看下面VB代码的意思

tSQL = "select * from student_Form where student_NO='" & Trim(Text1(Index)) & "'"
Set mrc = ExecuteSQL(tSQL, MsgText)
If mrc.EOF = False Then
For i = 1 To 8
Text1(i) = mrc.Fields(i)
Next
Combo1.Clear
Combo1.AddItem Text1(4)
Combo1.ListIndex = 0
txtSQL = "select * from class_Form"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
With Combo1
Do While Not mrc.EOF
.AddItem Trim(mrc!class_NO)
mrc.MoveNext
Loop
End With
End If
If Label1(2).BackColor = &HFFFFFF Then
For i = 1 To 8
Text1(i).BackColor = &H8000000E
Next
Combo1.BackColor = &H8000000E
End If
Text1(7).Height = 600
Text1(8).Height = 600
Command3.Enabled = True
Command4.Enabled = True
Exit Sub
Else
For i = 1 To 8
Text1(i) = Label2(i).Caption
Next
Combo1.Clear
Combo1.AddItem Label2(4).Caption
Combo1.ListIndex = 0
If Label1(2).BackColor = &HFFFFFF Then
For i = 1 To 8
Text1(i).BackColor = &HE0E0E0
Next
Combo1.BackColor = &HE0E0E0
End If
Text1(7).Height = 300
Text1(8).Height = 300
Command3.Enabled = False
Command4.Enabled = False
End If
mrc.Close