Formating variables

[_pi]

here is a realworld example which i would like to put into a loop

Code:

Copy      Help

pf_menge.MoveFirst
,d.m1=pf_menge.Fields.Item("Menge").Value
,d.ek1=pf_menge.Fields.Item("EK").Value
,d.m1vki=pf_menge.Fields.Item("vki").Value
,d.m1vkh=pf_menge.Fields.Item("vkh").Value    
pf_menge.MoveNext
,d.m2=pf_menge.Fields.Item("Menge").Value
,d.ek2=pf_menge.Fields.Item("EK").Value
,d.m2vki=pf_menge.Fields.Item("vki").Value
,d.m2vkh=pf_menge.Fields.Item("vkh").Value    
pf_menge.MoveNext
,d.m3=pf_menge.Fields.Item("Menge").Value
,d.ek3=pf_menge.Fields.Item("EK").Value
,d.m3vki=pf_menge.Fields.Item("vki").Value
,d.m2vkh=pf_menge.Fields.Item("vkh").Value    
pf_menge.MoveNext
,d.m4=pf_menge.Fields.Item("Menge").Value
,d.ek4=pf_menge.Fields.Item("EK").Value
,d.m4vki=pf_menge.Fields.Item("vki").Value
,d.m4vkh=pf_menge.Fields.Item("vkh").Value    
pf_menge.MoveNext
,d.m5=pf_menge.Fields.Item("Menge").Value
,d.ek5=pf_menge.Fields.Item("EK").Value
,d.m5vki=pf_menge.Fields.Item("vki").Value
,d.m5vkh=pf_menge.Fields.Item("vkh").Value