以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  输入一页内容后自动跳到空白页  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142911)
--  作者：wu725
--  发布时间：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()
--  作者：有点蓝
--  发布时间：2019/11/8 20:22:00
--  
不是很理解上面的描述。如果能够直接跳转就跳转好了
--  作者：wu725
--  发布时间：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单位

...

 

 

 
--  作者：有点蓝
--  发布时间：2019/11/8 21:11:00
--  
按钮事件逻辑顺序
1、保存
Table1.save
2、清理数据
Table1.filter = “false”
3、新增导入28行