變量作爲字段名

Question

For R = 1 To NRrows 

    If (RSNonResourceCosts![CostType]) <> "" Then 
     CL(1) = CL(1) + 1 
     WKS.Cells(199 + R, 1) = (RSNonResourceCosts![CostType]) 
    End If 

    If (RSNonResourceCosts![SoftwareCosts]) <> "" Then 
     CL(2) = CL(2) + 1 
     WKS.Cells(199 + R, 2) = (RSNonResourceCosts![SoftwareCosts]) 
    End If 

    RSNonResourceCosts.MoveNext 

Next R 

附上代碼的「砍掉」的版本。我正在寫一個Excel電子表格來應用間接公式。示例中的[CostType]和[SoftwareCosts]是當前的常量。

我希望用戶能夠添加字段，而隨後不必修改代碼。新的字段名稱將從表中派生。是否可以在方括號之間使用字段名稱（在表被修改之前不知道）？

Answer 1

是：

FieldName = "SomeField" 
WKS.Cells(199 + R, 1) = RSNonResourceCosts.Fields(FieldName).Value