Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

Access问答 → 如何进行三个字段的计算

[5分]如何进行三个字段的计算

愉快　 发表于：2010-04-30 16:25:44 　
复制

 

Top
愉快 发表于：2010-04-30 16:26:23

我的代码如下：

 

Private Sub shuliang_AfterUpdate()

'如果数量不为空，即填写了，就计算金额

    If Not IsNull(Me.shuliang1, Me.shuliang2) Then

        Me.kucunliang.SetFocus

        Me.kucunliang = [shuliang] + [shuliang1]-[shuliang2]

    End If

End Sub

Private Sub shuliang1_AfterUpdate()

'如果数量不为空，即填写了，就计算金额

    If Not IsNull(Me.shuliang, Me.shuliang2) Then

        Me.kucunliang.SetFocus

        Me.kucunliang = [shuliang] + [shuliang1]-[shuliang2]

    End If

End Sub

Private Sub shuliang2_AfterUpdate()

'如果数量不为空，即填写了，就计算金额

    If Not IsNull(Me.shuliang, Me.shuliang2) Then

        Me.kucunliang.SetFocus

        Me.kucunliang = [shuliang] + [shuliang1]-[shuliang2]

    End If

End Sub

 

 



Top
愉快 发表于：2010-04-30 16:27:52
点击下载此附件

Top
黎红军 发表于：2010-05-01 03:04:09
有点晕，您的三个表竟然用一个表来存储数据。建议拆分开记录来做表。采购表，入库表，出库表，产品信息表等等。好好参考网站类似的例子。

Top
愉快 发表于：2010-05-02 09:52:29
请问有无实例

Top
愉快 发表于：2010-05-02 09:54:29
其实一个表也是可以的。而且简单，它可以生成不同的报表。现在我想知道如何进行这种公式的计算。

Top
王樵民 发表于：2010-05-04 09:46:17

修改了一下，见附件，能满足你的要求.

 

点击下载此附件

Top
愉快 发表于：2010-05-04 11:36:48
高手，谢谢了。

Top
总记录：7篇  页次：1/1 9 1 :

Access软件网 版权所有 CopyRight 2006-2030
上海盟威软件有限公司 提供支持
沪ICP备12024966号-4