主题：[求助]遍历添加出错

两个For Next循环逻辑就不对了!

Dim  r as Row = Tables("物料信息临时表").AddNew

Dim Texts() As String = {"TextBox1","TextBox2","TextBox3","NumericComboBox1","TextBox5","ComboBox1","TextBox6"}

Dim ct() As String ={"物料名称","物料类别","物料编号","库存下限","条形码","计量单位","备注"}

For  i As Integer  = 0 to ct.Length-1

       r(ct(i)) = e.Form.Controls(Texts(i)).value

Next