以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求窗口中的整列输入的解决方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20583)

--  作者:xianjingang
--  发布时间:2012/6/13 0:24:00
--  求窗口中的整列输入的解决方法


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

还有一个按钮

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

让一整列的内容是一样

求狐爸爸给解答

图片点击可在新窗口打开查看


--  作者:程兴刚
--  发布时间:2012/6/13 0:28:00
--  
为什么必须要狐爸解答?为什么不做示例文件,我一贯不惯懒人!
--  作者:sloyy
--  发布时间: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()  



--  作者:狐狸爸爸
--  发布时间: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()