如何自动添加表字段中的计算数据

钟庆泉　发表于：2009-05-30 11:37:47 　

复制

表字段小计中，用来统计表中其它字段的运算值

如：字段“小计”=“数量”*“单位”+“运费”

如何自动添加“小计”的数据？

Top

钟庆泉发表于：2009-05-30 11:45:36

我现在的方法是：建立一个窗体，并已在窗体中已经计算好“小计”的数，但如何把这个算好的数自动添加到相应的表字段中？

Top

樟树发表于：2009-05-30 14:28:14

把小计控件的行来源设置为小计就可以了

Top

豆豆发表于：2009-05-30 14:52:12

用一个更新查询即可。

UPDATE 表3 SET 表3.小计 = nz([表3!数量])*nz([表3!单位])+nz([表3!运费]);

Top

钟庆泉发表于：2009-05-30 15:42:49

昏啊，看得不太懂，能有个实例就在

Top

豆豆发表于：2009-05-30 16:08:56

运行[查询1]

Top

豆豆发表于：2009-05-30 16:09:20

运行[查询1]

点击下载此附件

Top

钟庆泉发表于：2009-05-30 17:28:02

谢谢楼上的大哥。

但我用的表有些不一样，数量、单价、运费与小计是分别放在两个不同的表中

表1中存放

如：单号数量单价运费

产品A 001 1 20 5

产品B 001 5 10 10

产品C 002 2 20 5

产品B 002 2 10 10

然后“小计”放在表2中

单号小计

001

002

如何把更新表2中？我已经把表1设置为表2的子表

Top

豆豆发表于：2009-05-30 22:16:24

UPDATE 表1 INNER JOIN 表2 ON 表1.单号 = 表2.单号 SET 表2.小计 = nz([表1!数量])*nz([表1!单位])+nz([表1!运费]);

运行[查询1]

点击下载此附件

Top

钟庆泉发表于：2009-05-31 08:48:43

楼上的做法我试过了，如果表1中每个单号只有一种产品时，可以使用，但如果同一单号下有几个产品，这个做法算出结果仍是只按其中一种产品来算，有问题。还有没其它方案解决？

我现在用的实例是把表2做成父窗体(窗2)，表1做成子窗体(窗1)，显示每个单号下的所有产品明细，然后在计算每张单的总价，并把这个“总价”自动记录到表2中

点击下载此附件

Top

豆豆发表于：2009-06-01 09:09:56

请参考

点击下载此附件

Top

钟庆泉发表于：2009-06-01 11:23:54

Private Sub Form_AfterUpdate()
    Me.Recalc
    Dim sql As String
    sql = "update 表2 set 小计=" & Val(Me.Text12) & " where 单号='" & Me.Parent!单号 & "'"
    CurrentDb.Execute sql
End Sub

'Private Sub Form_Current()
'    If Me.NewRecord = False Then
'        Me.Recalc
'        Dim sql As String
'        sql = "update 表2 set 小计=" & Val(Me.Text12) & " where 单号='" & Me.Parent!单号 & "'"
'        CurrentDb.Execute sql
'    End If
'
'End Sub

问题终于可以解决，这也是我想要的结果，非常感谢chaojianan

看来只能编程解决，可惜偶还不怎么会写，目前只能勉强看能这句话，日后还有很多要请教的地方!

Top

总记录：11篇页次：1/1 9 1 :

Access交流中心

如何自动添加表字段中的计算数据