| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]请教各位老师，如何批量填充新记录 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33120) |
| -- 作者：xyq6007_cn -- 发布时间：2013/5/14 11:23:00 -- [求助]请教各位老师，如何批量填充新记录 本人新手，接触狐表还不足一个月。请教各位老师，如何通过录入窗口一次性填充多条（比如10条）新记录。谢谢 [此贴子已经被作者于2013-5-14 11:24:44编辑过]
|
| -- 作者：XYT -- 发布时间：2013/5/14 11:28:00 -- http://www.foxtable.com/help/topics/0680.htm 参考下 |
| -- 作者：xyq6007_cn -- 发布时间：2013/5/14 11:37:00 -- 谢谢XYT，我的意思是通过创建的窗口录入界面，需要录入的数据并非来自已经建好的某个表，而是全新的数据，通过这个界面一次性手工录入，保存该界面后在后台的数据表中一次性生成多条记录。 |
| -- 作者：Bin -- 发布时间：2013/5/14 11:42:00 -- 你的意思是不是 20个TextBox 每两个TextBox为 一行的第一列 和第二列 全部输入之后 点保存就录入10行?
|
| -- 作者：xyq6007_cn -- 发布时间：2013/5/14 11:44:00 -- 是的，就是这个意思 就是不知道怎样才可以实现这一的功能。还请赐教 |
| -- 作者：Bin -- 发布时间：2013/5/14 11:50:00 -- dim dr1 as datarow = datatables("XX").addnew dr1("第一列")=e.form.Controls("TextBox1").Text dr1("第二列")=e.form.Controls("TextBox2").Text dim dr2 as datarow = datatables("XX").addnew dr1("第一列")=e.form.Controls("TextBox3").Text dr1("第二列")=e.form.Controls("TextBox4").Text 来个10次. 或者你控件名称起得规范一点就可以使用拼接法. for i as Integer=1 to 10 dim dr1 as datarow = datatables("XX").addnew dr1("第一列")=e.form.Controls("T" & i & "c1").Text dr1("第二列")=e.form.Controls("T" & i & "c2").Text next
|
| -- 作者：xyq6007_cn -- 发布时间：2013/5/14 11:55:00 -- 谢谢Bin老师，我马上试试。 |
| -- 作者：xyq6007_cn -- 发布时间：2013/5/14 13:50:00 -- 非常好用，谢谢Bin老师 不过，在保存之后，如何清空这20个textbox呢 |
| -- 作者：Bin -- 发布时间：2013/5/14 14:07:00 -- For Each c As WinForm.Control In e.Form.Controls If Typeof c Is WinForm.TextBox Then Dim t As WinForm.TextBox = c t.Value = Nothing End If Next |
| -- 作者：xyq6007_cn -- 发布时间：2013/5/14 15:09:00 -- 谢谢Bin老师，现在窗口很完美了~ |