窗体记录集

无为　发表于：2009-04-24 11:25:02 　

请问，将当前窗体记录集rt的一页（每8个记录为一页）输入到一个表中，这样的语句要怎么写呀？

stSql = "select 维修单号,零件号,零件名,单位,零件用量,零件价格,金额 from 维修零件 where 维修单号= '" & Forms.车辆出厂.Form![维修单号] & "'"
Set con = CurrentProject.Connection
rs.PageSize = 8
rs.Open stSql, con, adOpenKeyset, adLockPessimistic
rs.AbsolutePage = 1
rs.MoveFirst
con.Execute "insert into 临时表1 select * from rs.AbsolutePage"

就是最后一句

Top

曹光耀发表于：2009-04-24 12:26:41

最好是上传你的数据库,不知你是不是要以每页8行显示报表,并打印?

Top

无为发表于：2009-04-24 14:10:44

我传上去吧，我是想通过“车辆出厂”窗体的按钮“报表预览”，打开“维修零件报表触发窗体”，在加载事件中，把每8条记录存入“临时表1”中，作为“维修零件报表”的数据源，在子窗体中导入“维修零件报表”。