控件的值如何遍历出来 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 控件的值如何遍历出来

共有4107人关注过本帖树形打印复制链接主题：控件的值如何遍历出来

打错潇洒

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：568 积分：6437 威望：0 精华：2 注册：2012/12/23 8:21:00

控件的值如何遍历出来 发帖心情

Post By：2014/3/5 16:39:00 [显示全部帖子]

以下是一个表一行的不同列等于的不同的控件的值采用如下的方式简单但是繁琐求有遍历如何实现一下的方式或其他方法

r("品牌") = e.Form.Controls("品牌名称_输入").value()

r("车型") = e.Form.Controls("车型名称_输入").value()

r("产品") = e.Form.Controls("产品名称_输入").value()

r("分类") = e.Form.Controls("分类名称_输入").value()

r("总数量") = e.Form.Controls("产品数量-输入").value()

r("配件名称") = e.Form.Controls("配件名称_输入").value()

r("配件数") = e.Form.Controls("配件数量-输入").value()

r("配件价格") = e.Form.Controls("配件价格-输入").value()

r("价格") =e.Form.Controls("产品价格-输入").value()

r("生产日期") =e.Form.Controls("产品日期-输入").value()

打错潇洒

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：568 积分：6437 威望：0 精华：2 注册：2012/12/23 8:21:00

Post By：2014/3/5 16:54:00 [显示全部帖子]

Dim cname As String() = {"品牌","车型","产品","分类","总数量","配件名称","配件数","配件价格","价格","生产日期"}

Dim kname As String() = {"品牌名称_输入","车型名称_输入","产品名称_输入","分类名称_输入","产品数量-输入","配件名称_输入","配件数量-输入","配件价格-输入","产品价格-输入","产品日期-输入"}

For i As Integer = 0 To Names.Length -1

r(cname(i)) = e.Form.Controls(kname(i)).value()

这样子如何

主题：控件的值如何遍历出来