Foxtable(狐表)用户栏目专家坐堂 → [求助]遍历添加出错


  共有3289人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
vvfree
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:446 积分:3414 威望:0 精华:0 注册:2015/3/4 15:55:00
[求助]遍历添加出错  发帖心情 Post By:2015/4/10 18:15:00 [只看该作者]

Tables("物料信息临时表").AddNew
Dim Texts() As String = {"TextBox1","TextBox2","TextBox3","NumericComboBox1","TextBox5","ComboBox1","TextBox6"}
Dim ct() As String ={"物料名称","物料类别","物料编号","库存下限","条形码","计量单位","备注"}
For Each i As String  In ct
    For Each tex As String In Texts
        Tables("物料信息临时表").Current(i) = e.Form.Controls(tex).value
    Next
Next

代码不能这样写吗,明明是字符型 怎么弹出
.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2014.11.11.1
错误所在事件:窗口,物料管理,Button1,Click
详细错误信息:
从字符串“史蒂夫史蒂夫”到类型“Decimal”的转换无效。

 回到顶部
帅哥哟,离线,有人找我吗?
vvfree
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:446 积分:3414 威望:0 精华:0 注册:2015/3/4 15:55:00
  发帖心情 Post By:2015/4/10 18:41:00 [只看该作者]

求助啊

 回到顶部
帅哥哟,离线,有人找我吗?
FoxMan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:302 积分:1860 威望:0 精华:0 注册:2012/4/27 11:34:00
  发帖心情 Post By:2015/4/10 19:05:00 [只看该作者]

两个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

 回到顶部
帅哥哟,离线,有人找我吗?
vvfree
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:446 积分:3414 威望:0 精华:0 注册:2015/3/4 15:55:00
  发帖心情 Post By:2015/4/10 19:13:00 [只看该作者]

谢谢 可以了

 回到顶部