循环访问表并为每个包含数据的列

Question

我认为这应该很简单，但我找不到正确的方法。我有一个带有 ID 号列的表，它后面有 10 行标记为问题 #1、问题 #2 等等。

没有重复的 ID 号，但每个 ID 号可以包含多行问题。

我想获取 ID 行，并在适用的情况下为每个不同的问题创建一个具有相同 ID 的新行。因此，如果一个 ID 号在问题 #1 和问题 #2 下列出了一个问题，我想为该 ID 号创建一个副本，并将两个问题都列在一个列下让我们称之为“总问题”，并按此分组身份证号码。这可以通过创建一个新表来完成。

例子：

发件人：

+-------+---------------------------+---------------------------+
|  ID   |        Question #1        |        Question #2        |
+-------+---------------------------+---------------------------+
| 11111 | Was it notated correctly? | Was it completed on time? |
+-------+---------------------------+---------------------------+

收件人：

+-------+-------------------------------------+
|  ID   | Total Questions                     |
+-------+-------------------------------------+
| 11111 | Was it notated correctly?           |
| 11111 | Was it completed on time?           |
+-------+-------------------------------------+

Answer 1

使用DAO的简单解决方案

sub SomeProcedure()
    Dim db as DAO.Database, recIn as DAO.Recordset, recOut as DAO.Recordset

    Set db = currentdb()
    Set recIn = db.openRecordset("yourQuestionsInputTable", dbOpenDynaset, dbReadOnly)
    Set recOut = db.openRecordset("yourQuestionsOutputTable", dbOpenDynaset, dbEditAdd)

    with recIn
        .moveFirst
        do
            for i = 1 to .Fields.count
                if left(.Fields(i).Name, 8) = "Question" then
                    recOut.addNew
                        recOut.Fields("Id") = .fields("Id")
                        recOut.Fields("Total Questions") = .Fields(i)
                    recOut.update
                end if
            next i
            .moveNext
        loop until .EOF
    end with
    recIn.close
    recOut.close
    db.close
end sub

---

解释：

我正在做的是：

1. 从输入表中读取每条记录
2. 对于名称以"Question" 开头的每一列，在输出表中创建一条新记录，其中包含输入表的Id 和所选列的值。

---

这只是一个草稿。您需要调整代码以满足您的需求。

希望这会有所帮助。

---

替代品

想了想，对于你在cmets中提到的问题，我可能有一个替代方案。

我认为您可以像这样更改循环：

' You'll need a variable of type Field
Dim f as DAO.Field ' Check if this is right
' Some code
with recIn
    .moveFirst
    do
        for f in .Fields
            if left(f.Name, 8) = "Question" then
                recOut.addNew
                    recOut.Fields("Id") = .Fields("Id").Value
                    recOut.Fields("Total Questions") = .Fields(f.Name).Value
                recOut.update
            end if
        next f
        .moveNext
    loop until .EOF
end with
' More code

不是使用索引对 Fields 集合进行迭代，而是使用其中的任何 Field 成员进行迭代。这应该可以避免“在集合中找不到项目”的问题。

警告：未测试

Answer 2

尝试几个这样的查询：

SELECT ID, Question1 AS TotalQuestions
INTO NewTable
FROM OriginalTable;

SELECT ID, Question2 AS TotalQuestions
INTO NewTable
FROM OriginalTable;