用 0 和 1 填充几列（创建虚拟变量）

Question

我有一个带有 exp 和 imp 列的 ms-access 2003 表。在这些 exp 和 imp 列中，我有 75 个国家/地区。我想在同一个表中创建虚拟变量 exp1-exp75、imp1-imp75，显示哪个国家/地区是 exp，哪个国家/地区是 imp。因此，例如，如果 exp 是澳大利亚（澳大利亚是第 1 个国家），则 exp1 必须为 1，所有其他 exp2-exp75 应为 0。如果 imp 是英国（英国是第 5 个国家），则 imp5 应为 1，所有其他imp 应该为 0。所以表格应该如下所示（如果美国是第三个国家，意大利是第 17 个国家）

exp           imp    exp1 exp2 ...exp17 ... exp75 imp1 imp2 imp3 ... imp5 ... imp75


Australia     UK      1    0        0         0     0    0    0        1        0


Italy         USA     0    0        1         0     0    0    1        0        0

谢谢。

Answer 1

我是在 Access 2007 编辑器中编写的，但 VBA 应该是相同的。我认为你不能通过查询来做到这一点。

Private Sub FillTable()

Const firstCountry  As Integer = 1
Const lastCountry   As Integer = 75
Const maxRows       As Integer = 234 'or whatever you need...


Dim impCountry  As Integer
Dim expCountry  As Integer

Dim db  As DAO.Database
Dim rs  As DAO.Recordset
Dim i   As Integer

Dim j   As Integer

    'function Random1to75 is left as an exercise for the reader
    impCountry = Random1to75
    expCountry = Random1to75

    Do Until expCountry <> impCountry
        expCountry = Random1to75
    Loop

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("select * from YourTable", dbOpenDynaset)

    For j = 1 To maxRows
        rs.AddNew
            For i = firstCountry To lastCountry
                If i <> impCountry Then
                    rs("imp" & i) = 0
                Else
                    rs("imp" & i) = 1
                End If

                If i <> expCountry Then
                    rs("exp" & i) = 0
                Else
                    rs("exp" & i) = 1
                End If
            Next
        rs.Update
    Next

    rs.Close
    Set rs = Nothing
    Set db = Nothing

End Sub