我用下面的代码为什么保存的“学费”总是0？

[hgllucky]

dim array2()
i=0
Set conn88=Server.CreateObject("ADODB.Connection")
conn88.Open "Driver=SQL Server;Server=192.168.0.63;UID=hgx;PWD=hgx;Database=rlzy"
Set myrst88=Server.CreateObject("ADODB.Recordset")
sql88="select * from 培训记录表 where 课程名称 like '%" & kcmc & "%'"
sql88=sql88 & "and 时间='" & date1 & "' and 截止时间='" & date2 & "' and 所在公司='" & gs & "'"
myrst88.open sql88,conn88,3,3
do while not myrst88.eof
redim array2(i)
response.write array2(i)
sql ="update 培训记录表 set 学费='" & array2(i) & "' where 编号='" & myrst88("编号") & "'"
conn88.execute(sql)
i=i+1
myrst88.movenext
loop
myrst88.close
set myrst88=nothing
conn88.close
set conn88=nothing

[angelheavens]

array2(i)没有赋值

[iamsangster]

redim array2(i)
response.write array2(i)
初始化没有？

[hgllucky]

array2=split(xf,", ")
我这样赋值，系统总是提示“类型不匹配”

[swich]

redim array2(i)没什么用嘛

array2(i)=学费金额

[hgllucky]

array2=split(xf,", ")
xf是通过其他程序算出来的，xf输出也正确，然后我把xf通过split函数付给array2，不知为什么，系统总是提示“类型不匹配”

[angelheavens]

Dim array2()
Dim I
'...
myrst88.open sql88,conn88,1,1
I=myrst88.RecordCount
If I<=0 Then Response.end
Redim array2(I-1)
'...

[研究汽车的米舞指]

dim array2
array2=split(xf,", ") '数组类型

for i=0 to ubound(array2)
Redim Preserve array2(i)
sql ="update 培训记录表 set 学费='" & array2(i) & "' where 编号='" & myrst88("编号") & "'"

[61]

Redim array2(I-1)

[hgxlucky]

既然学费都一样，直接update 不就行了？

[研究汽车的米舞指]

考，又一个倒分的！！！