|
有时候做交叉表的时候知道表中有多少的字段,要计算字段与字段之间运算关系的时候,因为交叉表列数是不稳定的,所以我把得到的数据追加到一个固定的表\的字段中然后计算字段之间的关系,这个函数也适合用于追加表标题相同的数据到另一个表中
'参数1:strFromTable 为用交叉表得到数据的查询名称,strInto为你要添加数据的表
Public Function varInsertTable(strFromTable As String, strIntoTable As String)
''追加数据到一个完整的表里
Dim rst As DAO.Recordset
Dim fld As Field
Dim fldName As String
Set rst = CurrentDb.OpenRecordset(strFromTable, dbOpenDynaset)
For Each fld In rst.Fields
fldName = fldName & fld.Name & ","
Next
fldName = Left(fldName, Len(fldName) - 1)
''Debug.Print fldName
strSQL = "INSERT INTO " & strIntoTable & "(" & fldName & " ) SELECT " & fldName & " FROM " & strFromTable & ";"
''Debug.Print strSQL
DoCmd.RunSQL strSQL
End Function
[ 本帖最后由 Victor_Duane 于 2007-8-19 18:00 编辑 ] |
|