UC知道vb代码赋值出错
来源：百度知道 编辑：UC知道 时间：2024/05/31 13:25:07
编写的网站购物车的一段代码为，计算总和
Sub CpTotal()
Dim i as Integer
Dim Cpto as single=0
For i=0 to Cpbt.Rows.Count-1
Cpto=Cpto+Cpbt.Rows(i)(4)
Next CPCOUNT.text=Cpto
End Sub
运行提示错误为：Next control variable does not match For loop control variable 'i'
CPCOUNT为ASP文本框，不知道是不是因为CPCOUNT.text类型为字符串，所以不匹配，请大虾指教
Sub CpTotal()
Dim i as Integer
Dim Cpto as single=0
For i=0 to Cpbt.Rows.Count-1
Cpto=Cpto+Cpbt.Rows(i)(4)
Next CPCOUNT.text=Cpto
End Sub
运行提示错误为：Next control variable does not match For loop control variable 'i'
CPCOUNT为ASP文本框，不知道是不是因为CPCOUNT.text类型为字符串，所以不匹配，请大虾指教
CPCOUNT.text=Cpto 该另起一行吧
Sub CpTotal()
Dim i as Integer
Dim Cpto as single=0
For i=0 to Cpbt.Rows.Count-1
Cpto=Cpto+Cpbt.Rows(i)(4)
Next
CPCOUNT.text=Cpto
End Sub
如果是VB6.0的话是不能这样的:Dim Cpto as single=0