窗体字段间的计算？

pc高手　发表于：2008-03-17 09:50:38 　

我有一个问题请教：
窗体中数据源表有字段 A1--A5 和 TOTAL，字段之间需要计算，用 TOTAL = ME.A1 + M2.A2 + M2.A3 ... 就好使。如果我换成初始化中定义的变量名，就不好使了。我的需求：因为程序中需要计算的地方和字段太多，如果都写进程序里，用户将来需求发生变化，就得改源代码，不方便。所以，我将所有的计算公式都写在初始化的表中，用户将来可以自己随意变更公式。

我一下找不到原因。请指教。我随文发去小例原程序 “计算.MDB”。

我无积分，无法上传文件，怎么办？

怎样去获取积分？？？？

无法上传，我用文字描述：

表： tbl计算，有6 个字段 A1,A2,A3,A4,A5,TOTAL 都是数字型。

表： tbl公式，有一个字段，公式1 ，文本型，内容：（A1 + A2 + A3 + A4 - A5）

窗体： frm计算：显示 6 个字段。 A1 - A5 字段的事件：

Option Compare Database
Option Explicit
Dim str公式1 As String

Private Sub A1_AfterUpdate()
Call spr计算
End Sub

Private Sub A2_AfterUpdate()
    Call spr计算
End Sub
Private Sub A3_AfterUpdate()
    Call spr计算
End Sub
Private Sub A4_AfterUpdate()
    Call spr计算
End Sub
Private Sub A5_AfterUpdate()
    Call spr计算
End Sub

Sub spr计算()
'    Me.TOTAL = Me.A1 + Me.A2 + Me.A3 + Me.A4 - Me.A5    ''' 计算没有问题
    Me.TOTAL = A1 + A2 + A3 + A4 - A5                   ''' 计算没有问题
'    Me.TOTAL = str公式1                                  ''' 计算有问题！！！？？？
    Me.Refresh
End Sub

Private Sub Form_Load()
    '' 计算公式可以在初始化中维护，不必修改程序。
    str公式1 = DLookup("公式1", "tbl公式")
    Me.lbl公式.Caption = "计算公式： TOTAL = " & str公式1
End Sub

----

请高手指教。！谢谢！

Top

马丽发表于：2008-03-17 10:30:11

很显然，这里str公式1 是个字符串，想来把它直接符值给TOTAL字段确实不正确。

怎样修改到是还没想好？

Top

pc高手发表于：2008-03-17 11:20:26

你说的对！就是因为它是一个字符串。

如果在vfp里，很容易解决，用宏替换就行了，字符串就变为内存变量了，就直接运算了。

access里就是没有这样的功能。