我想设计窗体中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()
加好友 
发短信
Post By：2019/11/8 17:52:00 [只看该作者]
