窗体计算问题

df

[求助] 情比金坚 还是计算问题，请帮看一下，不胜感激！

[em16]

情比金坚

如果你的变量名仅限于[F1]~[F10]通过穷举还可以实现，否则~~~~~~~~现在想不出。

df

仅限于[F1]~[F10]

ququ

晕,看不懂啥意思

df

还请情比金坚看一下。谢谢

情比金坚

嘻，嘻，昨天没空，不好意思：

df

还有问题呀，(123+123)*费率/100  为何计算不出来。最后一行也不计算。

情比金坚

我这里没问题啊：第一行是4.92,最后一行是41.52。全部计算啦！

df

(123+123)*费率/100、[F1]+[F2]*费率/100、[F1]+[F2]+[F3]+[F4]、只要不是数值都不计算，不知为什么。我换台电脑也不计算。  再请帮看一下Private Sub 命令0_Click()

For I = 1 To DCount("*", "表1")

On Error Resume Next

Dim astr

Dim mdou As Double

Dim a

astr = Me![表1]![公式]

astr = Replace(astr, "费率", Me![表1]![费率])

astr = Replace(astr, "[F1]", DLookup("数值", "表1", "变量='[F1]'"))

astr = Replace(astr, "[F2]", DLookup("数值", "表1", "变量='[F2]'"))

astr = Replace(astr, "[F3]", DLookup("数值", "表1", "变量='[F3]'"))

astr = Replace(astr, "[F4]", DLookup("数值", "表1", "变量='[F4]'"))

astr = Replace(astr, "[F5]", DLookup("数值", "表1", "变量='[F5]'"))

astr = Replace(astr, "[F6]", DLookup("数值", "表1", "变量='[F6]'"))

astr = Replace(astr, "[F7]", DLookup("数值", "表1", "变量='[F7]'"))

astr = Replace(astr, "[F8]", DLookup("数值", "表1", "变量='[F8]'"))

astr = Replace(astr, "[F9]", DLookup("数值", "表1", "变量='[F9]'"))

astr = Replace(astr, "[F10]", DLookup("数值", "表1", "变量='[F10]'"))'MsgBox astr

Me![try].ControlSource = "=" & astr

'MsgBox Me![try]

Me![表1]![数值] = Me![try]

Me![try].ControlSource = 0

Me![表1].SetFocus

DoCmd.GoToRecord , , acNext

Next

End Sub

情比金坚

也请其他高手帮看看，我这里没有任何特别的引用，在两台电脑上测试都没问题。