子窗体合计的计算
时 间:2018-01-29 16:16:22
作 者:半夜罗 ID:36948 城市:成都
摘 要:子窗体合计显示
正 文:
我根本不懂英语,所以写的代码基本都是用中文,有时也在中文前加一个字母,管他的,只要能得到结果,只要能看懂,又不是必须英文,将就吧。
在修改时的加载事件中同样 =批量填充金额()
更新后事件已经在相应的文本框中有了,不需要在窗体的更新后事件中再重复。
Public Function dm批量填充金额()
'--------------------------------------------定义记录集
Dim rst As Object
Dim strSQL As String
'----------------------------------------定义序号与合计金额的变量
Dim i序号 As Currency
Dim Sum金额 As Currency
'----------------------------------------如果临时表中没有数据时,退出
If DCount("*", "入库单销售单明细临时表") = 0 Then Exit Function
'----------------------------------------打开记录集
strSQL = "select * from 入库单销售单明细临时表 "
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
'----------------------------------------'如果当前处理未保存状态,先进行保存
If Me.Dirty Then Me.Dirty = False
'-----------------------------------------给变量设定初始值
i序号 = 0 And Sum金额 = 0
'-----------------------------------------从第一条记录开始
rst.MoveFirst
'-----------------------------------------循环进行
Do Until rst.EOF
'-------------------------------------允许修改
rst.Edit
'-------------------------------------修改各字段的值,这里是序号与金额
rst!序号 = Format(i序号 + 1, "00")
rst!金额 = my45(Nz(rst!数量, 0) * Nz(rst!单价, 0), 2) '四舍五入,否则会出错,这里调用了自定义四舍五入函数
'-------------------------------------修改后,就要更新,否则不会被修改
rst.Update
'-------------------------------------重新设定序号与合计金额的变量
i序号 = rst!序号
Sum金额 = Sum金额 + rst!金额
'-------------------------------------下一条记录
rst.MoveNext
Loop
'-------------------------------------将合计金额斌给主窗体
Me.Parent!金额 = Sum金额
rst.Close
Set rst = Nothing
Me.Parent!状态 = "未保存"
End Function
另附UMVSoft老师的四舍五入函数,这里就用到了。
Public Function my45(a As Double, n As Integer) As Double
my45 = Int(a * 10 ^ n + 0.51 ) / 10 ^ n
End Function
Access软件网官方交流QQ群 (群号:39785885) Access源码网店
常见问答:
技术分类:
最新帖子
- 小白请教进销存账户余额... (01-18 21:38)
- 小白进销存账户余额统计... (01-18 09:08)
- 多字段唯一值查询 (01-17 12:21)
- 阿里云ECS安装MSS... (01-16 14:32)
- 数据库中关系调动的处理 (01-15 16:42)
- 怎样设计宅基地管理数据... (01-15 10:35)
- 2467,求组,新手 (01-14 22:30)
- 请教一下,日期Date... (01-14 09:02)
- 子窗体数据源获取的问题 (01-13 22:17)
- 如何ACCESS存取S... (01-12 11:14)

学习心得
最新文章
- 在组合框和列表框中分级显示数据(01.19)
- 【Access生日查询】根据月份查...(01.18)
- 利用SetHiddenAttrib...(01.17)
- Follow 方法(01.16)
- 抖音张志Access课堂(01.15)
- Access快速开发平台--获取通...(01.14)
- Vlookup和Column函数 ...(01.13)
- 【转载】分享国外outlook风格...(01.12)
- 代码生成窗体及窗体事件的函数(01.11)
- 【Access DateDiff函...(01.11)
最新评论: 查看更多评论(1)
谢谢分享,我也不会英文。
发表评论:您的评论将提升作者分享的动力!快来评论点评一下您的观点吧!