Foxtable(狐表) → 用户栏目 → 专家坐堂 → 增加多行并赋值代码


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

主题：增加多行并赋值代码
帅哥哟，离线，有人找我吗？
大红袍
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/3 17:53:00 [只看该作者]

 自定义一个窗口，加入控件，也就是自己去实现 Syscmd.Row.AddNews()  的功能。

 回到顶部
帅哥哟，离线，有人找我吗？
dj68301367
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：358 积分：2719 威望：0 精华：0 注册：2015/4/12 12:13:00 		  发帖心情 Post By：2015/6/4 10:32:00 [只看该作者]


此主题相关图片如下：增加行.png
按此在新窗口浏览图片

如图，我做了一个，也能实现增加多行的功能，可是还有一个问题？  
代码如下，这样的话，就没办法增加多行，如果把代码写在增加行_确认_Click 的话，又不能共用其它窗体
有些窗体需要在不同的三列输入数据

编辑BOM_增加多行_Click

 

'Tables("BOM").AddNew(e.Form.Controls("Tet数量").value)

msn=0

Forms("增加行数").open()

 

For i As Integer = 1 To msn

    Dim nr As Row = Tables("BOM").AddNew

    nr("成品编码") = mbtname

Next


增加行数_增加行_确认_Click

 

msn=e.Form.Controls("Num1").value


[此贴子已经被作者于2015/6/4 10:33:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
dj68301367
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：358 积分：2719 威望：0 精华：0 注册：2015/4/12 12:13:00 		  发帖心情 Post By：2015/6/4 11:05:00 [只看该作者]

顶一下，

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/6/4 11:06:00 [只看该作者]

Forms("增加行数")  如果是模式窗口应该没问题.

代码写到确认按钮也没问题啊.

可以把代码写成内部函数

然后大家调用就好
 回到顶部
帅哥哟，离线，有人找我吗？
dj68301367
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：358 积分：2719 威望：0 精华：0 注册：2015/4/12 12:13:00 		  发帖心情 Post By：2015/6/4 11:16:00 [只看该作者]

BIN，谢谢，是窗口模式问题，已改善

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/4 11:19:00 [只看该作者]

1、增加行窗口，只做一个输入行数的作用，不要具体的写增加行的代码。（如果要增加行，可以另外再做一个窗口）

 

2、打开窗口后，输入数字，确认的时候，用一个变量记录行数 vars("输入行数") = 9 然后关闭窗口

 

3、窗口记得是模式窗口，然后关闭后，再写增加行的代码
 回到顶部
总数 16 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询