Foxtable(狐表)用户栏目专家坐堂 → [求助] 多列需要同时连续填入内容


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

主题:[求助] 多列需要同时连续填入内容

帅哥哟,离线,有人找我吗?
wumingrong1
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
[求助] 多列需要同时连续填入内容  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部