DLookup取得的公式是： [数量]*[单价]*[折扣]

lichun

昨天的问题，今天重新请教（附数据库）
DLookup("[公式]", "报表公式", "[序号]=1")
DLookup("[公式]", "报表公式", "[序号]=1")
DLookup取得的公式是：  [数量]*[单价]*[折扣]
数量，单价，折扣是窗体上的文本框。
取的公式什么样才能进行运算吗？

有程有序

如果是未知的文件框的公式放在表中是绝对不可以运行，如果是已知的文件框又何必放在表中？百思不得其解，给你一个思路，在表中加一个字段，分别写入A  ，  B  ，  C．．．．．等
，用条件用语生成公式，例如当A时＝数量＊单价＊折扣，当B时＝数量＊单价／折扣．．．．

有程有序

表的数据如下：
序号      代码            公式－－－－只起注解作用
  1        A       数量＊单价＊折扣
  2        B       数量＊单价／折扣
．．．．．．．．．．．．．．
条件用语如下：
IF  DLookup("[代码]", "报表公式", "[代码]=A")  Then
    Me.结果＝Me.[数量]*Me.[单价]*Me.[折扣]
．．．．．．．．．．．．．

lichun

可是有很多公式，难道写很多公式到VBA，但是有改公式时怎么办。或有新增.

请大家帮忙！ 看有什么办法。谢谢

[此贴子已经被作者于2003-11-17 23:57:57编辑过]

大頭

變動公式  當然可以解決

有程有序

他的公式表如下，没有规则的，晕．．．．．．．．
ID        名称        尺寸单位        公式
1        箱式        英寸        长*宽*高
2        平口        英寸        （长+宽）*高
3        其它        英寸        长*（宽+高）
4        平口        厘米        （长/2.54+宽/2.54）*高/2.54

xdj2003_2000

Private Sub 料号_AfterUpdate()
Me.物料名称 = DLookup("[物料名称]", "物料名称", "[料号]='" & Me![料号] & "'")
End Sub

Private Sub 料号_BeforeUpdate(Cancel As Integer)
Dim a
a = DLookup("[料号]", "物料名称", "[料号]='" & Me![料号] & "'")
If IsNull(a) Then
   MsgBox "没有这个料号"
   Me.料号.Undo
   Cancel = True
End If
End Sub

xdj2003_2000

上面的ME 后面跟的是表名，还是字段名，表名是“物料名称” 物料名称里字段名也有“物料名称”看不懂