2016-03-21 5 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 

Beigefügt ist eine "Cut-Down" -Version des Codes. Ich schreibe in eine Excel-Tabelle, um eine indirekte Formel anzuwenden. [CostType] und [SoftwareCosts] im Beispiel sind momentan Konstanten.Variablen als Feldnamen

Ich möchte der Benutzer in der Lage sein, Felder hinzuzufügen, ohne dann den Code ändern zu müssen. Der neue Feldname wird von der Tabelle abgeleitet. Ist es möglich, einen Feldnamen (nicht bekannt, bis die Tabelle geändert wird) zwischen den eckigen Klammern zu verwenden?

Antwort

1

Ja:

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

Oder mit Standardattributen von Cord-und Feld 'RSNonResourceCosts (Feldname)' – Andre

Verwandte Themen