关于付值和数组的问题

Question

Dim LieMing(5) As String
LieMing(0) = "XRD"
LieMing(1) = "DTA"
LieMing(2) = "RPZ"
LieMing(3) = "XWJ"
LieMing(4) = "TDL"
LieMing(5) = "SEM"
For i = 0 To 1If Index = i ThenIf DataCombo1.Text = "" Then
   MsgBox "请选择送样编号", vbInformation, "系统提示"
   DataCombo1.SetFocus
   Exit Sub
End IfIf Text9(i).Text = "" Then
MsgBox "请选择要上传的文件!"
Exit Sub
End IfOutPutFile = DataCombo1.Text & Label9(i).caption & ".doc"
FileCopy Text9(i).Text, "d:\" & OutPutFile & ""
'str = LieMing(i)str2 = "update AllData set" & "lieming(i)" & "='d:\" & OutPutFile & "' where id ='" & DataCombo1.Text & "'"
Conn.Execute str2MsgBox "文件上传成功!"
End If
Next以上代码中数组LieMing(i)付不了值,使STR2返回的结果update AllData set lieming(i)='d:\" & OutPutFile & "' where id ='" & DataCombo1.Text & "'而不是update AllData set XRD'd:\" & OutPutFile & "' where id ='" & DataCombo1.Text & "'
为什么数组在STR2中付不了值

Answer 1

str2 = "update AllData set " & lieming(i) & "='d:\" & OutPutFile & "' where id ='" & DataCombo1.Text & "'"