以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  控件的值如何遍历出来  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47164)
--  作者：打错潇洒
--  发布时间：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()
--  作者：Bin
--  发布时间：2014/3/5 16:47:00
--  
名称不对应无规律,无法遍历实现.
--  作者：不倒的翁
--  发布时间：2014/3/5 16:51:00
--  
定义控件名称数组及列名称数组，遍历数组
还有一些方法，比较麻烦。
--  作者：打错潇洒
--  发布时间：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()
    Next        

这样子 如何
--  作者：jspta
--  发布时间：2014/3/5 16:57:00
--  
很简单，你设置名称跟控件有个对应关系，反正你这个控件又看不到名称，你设置成不对应不是找麻烦吗?
dim r as row = t.current
 for each c as col in t.cols
r(c.name) = e.form.controls(c.name & “_录入”).value
next
[此贴子已经被作者于2014-3-5 16:57:11编辑过]
--  作者：lsy
--  发布时间：2014/3/5 16:58:00
--  
控件名称与列名称完全一致，遍历就简单了。