- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 批量新建复制的问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104289)
-- 发布时间：2017/7/26 19:56:00
-- 批量新建复制的问题？
如图，如案例，我想通过窗口中选择项目，然后批量添加到“助理考核汇总表”里，代码应该怎么写，单个的写法我是会的，批量不会，求指点？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:多项新建复制表的问题.table |
此主题相关图片如下：qq截图20170726195256.jpg
-- 发布时间：2017/7/26 20:02:00
--
Dim nr = Tables("助理考核汇总表").AddNew
nr("小区地址") = e.form.controls("TextBox1").text
nr("楼号") = e.form.controls("TextBox2").text
nr("面积") = e.form.controls("TextBox3").text
nr("客户姓名") = e.form.controls("TextBox4").text
nr("联系方式") = e.form.controls("TextBox5").text
nr("考核项目") = "量房"
......
Forms("添加助理考核").Close
求大侠指点如何批量？
-- 发布时间：2017/7/26 20:09:00
--
For Each r As Row In e.Form.controls("table1").Table.Rows
If r("勾选") Then
Dim nr = Tables("助理考核汇总表").AddNew
nr("小区地址") = e.form.controls("TextBox1").text
nr("楼号") = e.form.controls("TextBox2").text
nr("面积") = e.form.controls("TextBox3").text
nr("客户姓名") = e.form.controls("TextBox4").text
nr("联系电话") = e.form.controls("TextBox5").text
nr("考核项目") = r("考核项目")
End If
Next
Forms("添加助理考核").Close
-- 发布时间：2017/7/26 20:33:00
--
单选代码不会写，帮助及案例里也没有找到，想通过“全选”，“反选”控制“助理考核汇总表_table1”，求指点？
-- 发布时间：2017/7/26 20:57:00
--
单行会写的：
Tables("添加助理考核_table1").Current("勾选")=False
Tables("添加助理考核_table1").Current("勾选")=ture
批量不会，求指点？
-- 发布时间：2017/7/26 21:12:00
--
For Each r As Row In e.Form.controls("table1").Table.Rows
r("勾选") = true
Next
-------------
For Each r As Row In e.Form.controls("table1").Table.Rows
r("勾选") = Not r("勾选")
Next
-- 发布时间：2017/7/26 22:59:00
--
跪谢老师！