专家坐堂-[求助] 多列需要同时连续填入内容Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 多列需要同时连续填入内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58208)

--  作者：wumingrong1
--  发布时间：2014/10/13 20:40:00
--  [求助] 多列需要同时连续填入内容

想实现：在 “板盘端子”中填入 “板盘端子起”--“板盘端子止”连续数字；在“纤芯编号”中填入“纤芯编号起”--“纤芯编号止”连续数字。但是以下命令却变成：新增了“板盘端子起”--“板盘端子止”连续行再新增了“纤芯编号起”--“纤芯编号止”连续行，我该怎么修改这个命令？

For j1 As Integer = e.Form.Controls("纤芯编号起" & i).Text To e.Form.Controls("纤芯编号止" & i).Text
For j As Integer = e.Form.Controls("板盘端子起" & i).Text To e.Form.Controls("板盘端子止" & i).Text
Dim ndr As DataRow = DataTables("光缆纤芯应用台帐表").AddNew
ndr("纤芯编号") = j1
ndr("板盘端子") = j

比如：j1 = 1 to 5   j = 2 to 6   那么

纤芯编号板盘端子
1 2
2 3
3 4
4 5
5 6

[此贴子已经被作者于2014-10-13 20:41:00编辑过]

--  作者：有点甜
--  发布时间：2014/10/13 20:45:00
--
Dim j As Integer = e.Form.Controls("板盘端子起" & i).Text
For j1 As Integer = e.Form.Controls("纤芯编号起" & i).Text To e.Form.Controls("纤芯编号止" & i).Text
    Dim ndr As DataRow = DataTables("光缆纤芯应用台帐表").AddNew
    ndr("纤芯编号") = j1
    ndr("板盘端子") = j
    j+=1
Next