倒! 不是这样做的 计算机处理这个while是非常快的 虽然,的确是从第一个开始显示 但是由于速度问题 所以你只能看到最后一个。sub ys(x) if Trim(ExcelSheet.Cells(x,y).Value) = "" then clearTimeout exit sub enf if OrderItem.innerHTML = Trim(ExcelSheet.Cells(x,2).Value) for y = 1 to count - 1 if Trim(ExcelSheet.Cells(x,y).Value) <> "" then strSQL = strSQL & ExcelSheet.Cells(x,y).Value & ";" else strSQL = strSQL & ";" end if next x = x + 1 y = 1 settimeout("ys(x)",100) end sun没测试过。
改一下
OrderItem.innerHTML =OrderItem.innerHTML&Trim(ExcelSheet.Cells(x,2).Value)哎~~js习惯了,语法搞错……
不是这样做的
计算机处理这个while是非常快的
虽然,的确是从第一个开始显示
但是由于速度问题
所以你只能看到最后一个。sub ys(x)
if Trim(ExcelSheet.Cells(x,y).Value) = "" then
clearTimeout
exit sub
enf if
OrderItem.innerHTML = Trim(ExcelSheet.Cells(x,2).Value)
for y = 1 to count - 1
if Trim(ExcelSheet.Cells(x,y).Value) <> "" then
strSQL = strSQL & ExcelSheet.Cells(x,y).Value & ";"
else
strSQL = strSQL & ";"
end if
next
x = x + 1
y = 1
settimeout("ys(x)",100)
end sun没测试过。