Question

急求VB代码翻译！

谁能帮我翻译下啊！！！！

Private Sub Combo1_Change(Index As Integer)
Text1(Index).Text = Combo1(Index).Text
End Sub

Private Sub Combo1_Click(Index As Integer)
Text1(Index).Text = Combo1(Index).Text
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command6_Click() ''保存
If Trim(Text1(0).Text) = "" Then Exit Sub
On Error GoTo err
CN.Execute "delete from 学生信息表 where 学号='" & Trim(Text1(0).Text) & "'"
Dim rst As New ADODB.Recordset
If rst.State Then rst.Close
rst.Open "select * from 学生信息表", CN, adOpenStatic, adLockOptimistic
rst.AddNew
Dim i As Integer
For i = 1 To 5
If Trim(Text1(i - 1).Text) <> "" Then
rst.Fields(i).Value = Trim(Text1(i - 1).Text)
End If
Next i
rst.Fields(i).Value = Format(Now, "yyyy-MM-dd hh:ss:mm")
rst.Update
MsgBox "保存成功!", , "提示"
Unload Me
Exit Sub
err:
MsgBox err.Description, , "提示"
End Sub

Private Sub Form_Load()
'On Error GoTo err
Dim rst As New ADODB.Recordset

If isAdd = True Then
For i = 0 To 4
Text1(i).Text = ""
Next
Text1(0).Locked = False

Else
If rst.State Then rst.Close
rst.Open "select * from 学生信息表 where 编号=" & Trim(strLook), CN, adOpenStatic, adLockOptimistic
If Not rst.EOF Then
For i = 1 To 5
If Not IsNull(rst.Fields(i)) Then
Text1(i - 1).Text = Trim(rst.Fields(i))
End If
Next i
End If
End If

Exit Sub
err:
MsgBox err.Description, , "提示"
End Sub

Private Sub Text1_LostFocus(Index As Integer)
If Trim(Text1(0).Text) = "" Then Exit Sub
If Len(Text1(0).Text) <> 11 Then
MsgBox "学号是11位!", , "提示"
Text1(0).Text = ""
Exit Sub
End If
End Sub

Answer 1

Private Sub Combo1_Change(Index As Integer)
Text1(Index).Text = Combo1(Index).Text 'text1(所有组)文本值='combo1(所有组)文本值

End Sub

Private Sub Combo1_Click(Index As Integer)
Text1(Index).Text = Combo1(Index).Text
End Sub

Private Sub Command2_Click()
Unload Me '退出
End Sub

Private Sub Command6_Click() ''保存
If Trim(Text1(0).Text) = "" Then Exit Sub '如果text1(0)去掉2端空格之后的值为空 则退出本过程

On Error GoTo err '遇到错误跳转到err
CN.Execute "delete from 学生信息表 where 学号='" & Trim(Text1(0).Text) & "'" '赋值
Dim rst As New ADODB.Recordset
If rst.State Then rst.Close
rst.Open "select * from 学生信息表", CN, adOpenStatic, adLockOptimistic
rst.AddNew '增加新list
Dim i As Integer
For i = 1 To 5 '循环开始
If Trim(Text1(i - 1).Text) <> "" Then '如果text(i-1)的去空格值为空

rst.Fields(i).Value = Trim(Text1(i - 1).Text)
End If
Next i
rst.Fields(i).Value = Format(Now, "yyyy-MM-dd hh:ss:mm") 'rst值格式为yyyy-MM-dd hh:ss:mm

rst.Update
MsgBox "保存成功!", , "提示"
Unload Me
Exit Sub

err: '错误事件
MsgBox err.Description, , "提示" '弹出错误描述
End Sub

Private Sub Form_Load()
'On Error GoTo err
Dim rst As New ADODB.Recordset '定义新纪录

If isAdd = True Then
For i = 0 To 4
Text1(i).Text = ""
Next
Text1(0).Locked = False 'text1(0)不允许编辑

Else
If rst.State Then rst.Close 'rst关闭
rst.Open "select * from 学生信息表 where 编号=" & Trim(strLook), CN, adOpenStatic, adLockOptimistic '赋值
If Not rst.EOF Then '如果没有发生错误
For i = 1 To 5
If Not IsNull(rst.Fields(i)) Then '如果不是空值
Text1(i - 1).Text = Trim(rst.Fields(i))
End If
Next i
End If
End If

Exit Sub
err:
MsgBox err.Description, , "提示"
End Sub

Private Sub Text1_LostFocus(Index As Integer)
If Trim(Text1(0).Text) = "" Then Exit Sub
If Len(Text1(0).Text) <> 11 Then
MsgBox "学号是11位!", , "提示"
Text1(0).Text = ""
Exit Sub
End If
End Sub