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


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

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

帅哥哟,离线,有人找我吗?
打错潇洒
  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()

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/5 16:47:00 [只看该作者]

名称不对应无规律,无法遍历实现.

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


加好友 发短信
等级:一尾狐 帖子:476 积分:3523 威望:0 精华:0 注册:2012/12/13 14:23:00
  发帖心情 Post By:2014/3/5 16:51:00 [只看该作者]

定义控件名称数组及列名称数组,遍历数组
还有一些方法,比较麻烦。

 回到顶部
帅哥哟,离线,有人找我吗?
打错潇洒
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()
    Next        

这样子 如何

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


加好友 发短信
等级:七尾狐 帖子:1732 积分:11266 威望:0 精华:0 注册:2011/12/15 22:06:00
  发帖心情 Post By: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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/3/5 16:58:00 [只看该作者]

控件名称与列名称完全一致,遍历就简单了。

 回到顶部