Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求窗口中的整列输入的解决方法


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

主题：求窗口中的整列输入的解决方法
帅哥哟，离线，有人找我吗？
xianjingang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：4 积分：118 威望：0 精华：0 注册：2012/5/12 0:23:00 		求窗口中的整列输入的解决方法  发帖心情 Post By：2012/6/13 0:24:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
窗口中有一个表 有三个文本框分别代表产品名称 产品划分 和日期

还有一个按钮

怎样才能点击按钮 把文本框中的内容填写到表中产品名称 产品划分 日期列的整列内容里

让一整列的内容是一样

求狐爸爸给解答

图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2012/6/13 0:28:00 [只看该作者]

为什么必须要狐爸解答？为什么不做示例文件，我一贯不惯懒人！

 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2012/6/13 3:05:00 [只看该作者]

按钮的Click事件:

Tables("A表").Current("产品名称")=e.Form.Controls("TextBox1").text

Tables("A表").Current("产品划分")=e.Form.Controls("TextBox2").text

Tables("A表").Current("日期")=e.Form.Controls("DateTimePicker1").Value

DataTables("A表").Save()  



 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/6/13 10:01:00 [只看该作者]

大概如此：

 

Dim v1 as String = e.Form.Controls("TextBox1").text

Dim v2 As String  = e.Form.Controls("TextBox2").text

dim v3 As Date = e.Form.Controls("DateTimePicker1").Value

For each r As Row in Tables("表A").Rows

    r("产品名称") = v1

    r("产品划分") = v2

    r("日期") = v3

Next

DataTables("A表").Save()


 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询