办法很多,可分两大类:其一是获取子窗体的数据源和筛选语句,将其构成导入的sql语句作为导入的源;其二是遍历子窗体的行列将其作为导入的源。
假设子窗体名曰:子窗体。
第一类方法如下:
dim ssql as string
dim wh as string
ssql=me.子窗体.form.RecordSource
wh=me.子窗体.form.filter
if wh<>"" then
wh=" and " & wh
end if
ssql="select 字段1,字段2,... from (" & ssql & ") where true " & wh
ssql="insert into 目标表 (字段1,字段2,...) " & ssql
dorunsql ssql
第二类方法如下:
Dim ssql As String
Dim rs As New ADODB.Recordset
Dim i As Long, j As Long
rs.Open "目标表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
for i=1 to me.子窗体.RecordsetClone.RecordCount
me.子窗体.form.seltop=1
rs.addnew
for j=1 to rs.Fields.count-1 '假设第一个字段为自动编号的ID字段
rs.Fields(j).value=me.子窗体.form.controls(rs.Fields(j).name).value
next
rs.update
next
rs.close:set rs=nothing