如何在msaccess中转置存储到另一个表中的列

在MS Access中，要将一个表中的列转置存储到另一个表中，可以使用查询和VBA编程来实现。

以下是一种方法：

创建一个新的目标表，用于存储转置后的数据。
创建一个查询，选择源表中需要转置的列，并将其命名为字段。
在查询设计视图中，将源表和目标表连接起来，使用内连接或左连接，确保所有的源表记录都能转置到目标表中。
在查询设计视图中，选择目标表中的字段，并在“更新到”行中选择目标表的对应字段。
在查询设计视图中，选择源表中的字段，并在“更新到”行中选择目标表的对应字段。
在查询设计视图中，选择“转置”选项，将源表中的列转置为行。
运行查询，将源表中的列转置存储到目标表中。

如果需要自动化这个过程，可以使用VBA编程来创建一个宏或函数。

以下是一个示例的VBA函数，用于将源表中的列转置存储到目标表中：

Public Sub TransposeColumns()
    Dim db As DAO.Database
    Dim rsSource As DAO.Recordset
    Dim rsTarget As DAO.Recordset
    Dim strSQL As String
    Dim i As Integer
    
    ' 打开数据库
    Set db = CurrentDb
    
    ' 创建源表和目标表的记录集
    Set rsSource = db.OpenRecordset("SELECT * FROM SourceTable")
    Set rsTarget = db.OpenRecordset("SELECT * FROM TargetTable")
    
    ' 清空目标表
    db.Execute "DELETE FROM TargetTable"
    
    ' 遍历源表中的每一列
    For i = 0 To rsSource.Fields.Count - 1
        ' 将源表中的列值转置为行，并插入到目标表中
        strSQL = "INSERT INTO TargetTable (Field, Value) VALUES ('" & rsSource.Fields(i).Name & "', '" & rsSource.Fields(i).Value & "')"
        db.Execute strSQL
    Next i
    
    ' 关闭记录集和数据库
    rsSource.Close
    rsTarget.Close
    Set rsSource = Nothing
    Set rsTarget = Nothing
    Set db = Nothing
End Sub

要使用这个函数，只需将源表和目标表的名称替换为实际的表名，并在VBA编辑器中运行该函数。

请注意，这只是一种实现转置存储的方法，具体的实现方式可能因数据结构和需求而有所不同。