2016-03-21 84 views
0
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]是当前的常量。变量作为字段名

我希望用户能够添加字段,而随后不必修改代码。新的字段名称将从表中派生。是否可以在方括号之间使用字段名称(在表被修改之前不知道)?

回答

1

是:

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

或者,使用记录和现场,'RSNonResourceCosts(字段名)的默认属性' – Andre