[求助]如何引用记录值？

Francisco

请问：
    我想以A表中某一列的值(工资项目)依次作为字段名来创建B表(工资表)，该如何实现？请看如下代码:

Private Sub 新建工资表_Click()
Dim str As String
Dim arr(19) As String
Dim i As Integer

For i = 0 To 19
arr(i) = Me![工资项目].Value        '问题好像就出在这里!

Next i

str = "create table 工资表 (" _
        & arr(0) & " char(10)," _
        & arr(1) & " char(10)),"_

        ...

        & arr(19) & " char(10));"

DoCmd.RunSQL (str)

程序运行时提示:运行时错误码'3380':字段'基本工资'已经存在于表'工资表'中.(其中'基本工资'是A表中工资项目的第一个值,也就是说程序把第一个值赋给了所有的数组变量,而没有将其它的值依次赋给数组变量)

我不知道我是否将问题说清楚了,总之非常希望看懂的大虾们能帮忙解决这个问题,在下感激涕零!

佛曰:救人一命胜造七级浮屠![em03]

唐小小

arr(i) = DLookup("工资项目", "a", "ID=" & i & "")

[此贴子已经被作者于2003-10-22 14:52:55编辑过]

唐小小

Private Sub 命令0_Click()

Dim str As String
Dim arr(10) As String
Dim i As Integer

For i = 1 To 10
arr(i) = DLookup("职务名称", "111", "ID=" & i & "") '问题好像就出在这里!

Next i

str = " create table 工资表 (" & arr(1) & " char(10)," & arr(2) & " char(10)," & arr(3) & " char(10)," & arr(4) & " char(10))"


DoCmd.RunSQL (str)


End Sub

Francisco

首先非常感谢版主唐小小的帮助!
    但是出现运行时错误‘94’，无法使用‘NULL’，代码如下：
Private Sub 新建_Click()
Dim str As String
Dim arr(19) As String
Dim i As Integer
For i = 0 To 19
arr(i) = DLookup("工资项目", "工资初始设置", "ID=" & i & "")
Next i
str = "create table 工资表 (" _
        & arr(0) & " decimal(18,2)," _
        & arr(1) & " decimal(18,2)," _
        & arr(2) & " decimal(18,2)," _
        & arr(3) & " decimal(18,2)," _
        & arr(4) & " decimal(18,2)," _
        & arr(5) & " decimal(18,2)," _
        & arr(6) & " decimal(18,2)," _
        & arr(7) & " decimal(18,2)," _
        & arr(8) & " decimal(18,2)," _
        & arr(9) & " decimal(18,2)," _
        & arr(10) & " decimal(18,2)," _
        & arr(11) & " decimal(18,2)," _
        & arr(12) & " decimal(18,2)," _
        & arr(13) & " decimal(18,2)," _
        & arr(14) & " decimal(18,2)," _
        & arr(15) & " decimal(18,2)," _
        & arr(16) & " decimal(18,2)," _
        & arr(17) & " decimal(18,2)," _
        & arr(18) & " decimal(18,2)," _
        & arr(19) & " decimal(18,2)"
DoCmd.RunSQL (str)
End Sub

唐小小

呵呵，看起来好像是对的啊，可以把你的库发上来看看吗？：）

28795277

这是您要的库文件，麻烦您帮我看一看，谢谢！