Dim i As Long
Dim s(11 To 14) As String
For i = 11 To 14
    s(i) = "pos" & CStr(i) & "X"
Next i其中的数字可以替换成你想要的

解决方案 »

  1.   

    谢谢你的答复,但是我还想要的是对pos11X,pos12X,pos13X,pos14X......这些字段变量进行操作,而你的s(i)仅仅只是一些字符串。
      

  2.   

    按字段的索引顺序,再用楼上的那位的字符串中转一下。即 
      "pos11"      == .fields(0)
      "pos12"      == .fields(1)
      

  3.   

    up!!
    上楼两位讲的对.
    Dim i As Long
    Dim s(11 To 14) As String
    For i = 11 To 14
        s(i) = "pos" & CStr(i) & "X"
        s(i)=记录集(i)            '对字段进行操作Next i