m.KHour = 300 HMF01 = m.KHour * 1100000 / 110 HMF02 = 110000 HMF03 = 0 For ncounter = 1 To 3 Store Evaluate("m.HMF" + Padl(m.ncounter,2,"0")) To nValue ? m.nValue EndforUpdate: From other messages I see that you want to evaluate expressions stored in char fields. Then simply prefix with a "0":
m.KHour = 300 HMF01 = transform(m.KHour) + " * 1100000 / 110 " && or Textmerge("<< m.KHour >> * 1100000 / 110 ") HMF02 = "110000" HMF03 = "" For ncounter = 1 To 3 Store Evaluate("0"+Evaluate("m.HMF" + Padl(Alltrim(Str(ncounter)),2,"0"))) To nValue ? nValue Endfor