(code)想要每次插入不同列，为什么都插入一列

jie730

这是我的程序，cellarray(0,l) 是列名，每次循环把一列数字写入相应的列名中。
运行结束后，列名创建没有问题，debug显示每次插入前，cellarray(0,l)的值也都是正确的，但是结果就是全都插入第一列
求帮助啊！！！

For l = LBound(CellArray, 2) To UBound(CellArray, 2)
    SQL = "alter table ExportData add COLUMN " & CellArray(0, l) & " text(15)"
    DoCmd.RunSQL SQL
    CellCode = CellArray(0, l)
    SQL = "select utranRelationId from UtranRelation where utranCellId =" & """" & CellArray(0, l) & """"
    Set rs = CurrentDb.OpenRecordset(SQL)
   
     With rs
     If Not .EOF Then
       .MoveLast
       .MoveFirst
     End If
       NrTempArray = rs.GetRows(.RecordCount)
       .Close
     End With
     
     
     For m = LBound(NrTempArray, 2) To UBound(NrTempArray, 2)
       NrList(l, m) = NrTempArray(0, m)
       SQL = "insert into ExportData(" & CellArray(0, l) & ") values('" & NrTempArray(0, m) & "')"
       DoCmd.RunSQL SQL
     Next m
  
  'write to table
     NrNo(l) = m
     For i = 0 To m
     CellCode = NrList(l, i)
     SQL = "insert into ExportData(" & CellArray(0, l) & ") values('" & CellCode & "')"
     DoCmd.RunSQL SQL
     'Debug.Print CellArray(0, l)
     Next i
Next l

End Sub

jie730

最后两段是不同方式尝试插入，结果都一样

amazeyeli

[code=sql]insert into ExportData(col1,col2,col3,...) values
(val1,val2,val3,...);[/code]
如果CellArray(0, l)只等于一个列名，那当然只插入一个列啰

jie730

amazeyeli 发表于 2012-6-29 12:07
如果CellArray(0, l)只等于一个列名，那当然只插入一个列啰

是，m那个循环中，只插入一个，但是到 l 循环的时候，l 变化了，所以应该插到另一列里啊。。。

我是想把某次查询出来的结果全部插入某一列，下一次全部插入另一列。。。