Foxtable(狐表) → 用户栏目 → 专家坐堂 → 输入一页内容后自动跳到空白页


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

主题：输入一页内容后自动跳到空白页
帅哥哟，离线，有人找我吗？
wu725
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：77 积分：996 威望：0 精华：0 注册：2012/2/6 16:33:00 		输入一页内容后自动跳到空白页  发帖心情 Post By：2019/11/8 17:52:00 [只看该作者]

我想设计窗体中Table1每次显示28行，将这28行内容输入完后，后点击按钮新增新的28行，且Table1中自动跳转到新添加的28行方便继续录入。
说明：28行是类似一张表，把数据录入后，自动填充另空表。请问我是设置分页，还是可以把下面代码改一下增加自动跳转功能。谢谢老师！
窗体名称：录入数据，关联表名称是：调查数据。

以下是按钮代码，点击按钮后在调查数据表的单位名称列，自动填充调查单位字典表中的单位名称，其他列的数据需要人工录入。
Dim f As New  Filler
 f.SourceTable = DataTables("调查单位字典") '指定数据来源
f.SourceCols = "单位名称"  '指定数据来源列
f.DataTable = DataTables("调查数据") '指定数据接收表
f.DataCols = "单位名称"  '指定数据接收列
f.Fill() '填充数据
Forms("录入数据").Open()
Tables("调查数据").DataTable.Load()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110443 积分：562081 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/8 20:22:00 [只看该作者]

不是很理解上面的描述。如果能够直接跳转就跳转好了

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


加好友 发短信
等级：幼狐 帖子：77 积分：996 威望：0 精华：0 注册：2012/2/6 16:33:00 		  发帖心情 Post By：2019/11/8 20:45:00 [只看该作者]

意思是窗体中Table1中可视28行，在A\B\C列输入内容，点击按钮后又增加28行，窗体中Table1中可视28行，A\B\C列内容为空，单位名称靠以上代码复制不用输入。

 

序号   单位名称   A 列     B列    C列

 1        A单位      9          8       7

 2       B单位     6           7       8

 3       C单位     8           9      10

 4       D单位     1           2       3

..

28      F单位     5           6       7

 

29      A单位

30      B单位 

31      C单位

32      D单位

...

 

 

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


加好友 发短信
等级：超级版主 帖子：110443 积分：562081 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/8 21:11:00 [只看该作者]

按钮事件逻辑顺序
1、保存
Table1.save
2、清理数据
Table1.filter = “false”
3、新增导入28行
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询