社区
Delphi
帖子详情
关于在DBGRID中移动到下一条记录时自动计算的问题
jingchou
2003-10-16 11:53:18
在DBGRID中,有字段数量、单价、总额等,当修改记录时,用户修改了第一条记录的数量值,再按向下移动的箭头键移动到下一条记录时,我想DBGRID能自动计算出总额=数量*单价。
我不知怎么处理才不会出错.请教大家解决一下,谢谢!
...全文
82
6
打赏
收藏
关于在DBGRID中移动到下一条记录时自动计算的问题
在DBGRID中,有字段数量、单价、总额等,当修改记录时,用户修改了第一条记录的数量值,再按向下移动的箭头键移动到下一条记录时,我想DBGRID能自动计算出总额=数量*单价。 我不知怎么处理才不会出错.请教大家解决一下,谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
boycenchen
2003-10-17
打赏
举报
回复
你的数据库不用宗总额字段,新建一个计算字段,再在dataset或query等数据集的oncalculfields方法写上你的计算公式就可以了。我刚刚做了类似的dbgrid.具体可以看看calculated的帮助。
47522341
2003-10-17
打赏
举报
回复
在数据集的oncalcfields事件里写不行吗;
noil0125
2003-10-16
打赏
举报
回复
在字段的ONCHANGE事件中
if (table1.FieldByName('单价').AsString<>'')and( if (adot.FieldByName('数量').AsString<>'')then
begin
table1.Edit;
table1.FieldByName('总额').AsFloat:=table1.FieldByName('单价').AsFloat*table1.FieldByName('数量').AsFloat;
table1.Post;
end;
jingchou
2003-10-16
打赏
举报
回复
修改数量后,按回车或用鼠标指向下一条记录时,就能正确自动计算;但按箭头键移动到下一条记录时,却出现错误:STACK OVERFLOW.
noil0125
2003-10-16
打赏
举报
回复
table点右键,fields editor,ctrl+f5,选择一个字段,添加OnChange属性,然后,可添加代码:
jingchou
2003-10-16
打赏
举报
回复
noil0125(珏心):你好!谢谢你的解答,你所说的在字段的ONCHANGE事件中添加代码,但我是从
DBGRID中输入数量值,不是在EDIT控件中输入.我在DBGRID找不到ONCHANGE事件,在EDIT控件中
才有此事件.麻烦你再给我指点.
delphi 开发经验技巧宝典源码
0230 根据生日
自动
计算
年龄 153 0231 实现找零功能 153 0232 设计带记忆的数据录入窗口 154 0233 在窗体关闭
时
提示有未保存的数据 155 0234 设置只允许3次密码错误 156 0235 如何读取Word
中
的文本 156 ...
delphi 开发经验技巧宝典源码06
0230 根据生日
自动
计算
年龄 153 0231 实现找零功能 153 0232 设计带记忆的数据录入窗口 154 0233 在窗体关闭
时
提示有未保存的数据 155 0234 设置只允许3次密码错误 156 0235 如何读取Word
中
的文本 156 ...
第一部分 界面设计
实例035 如何在列表框
中
增加水平滚动条 实例036 如何在列表框
中
同
时
显示图像和文字 实例037 如何设置属性表组件标签图像 实例038 如何控制Memo组件的文字边界 实例039 如何使用代码控制文字滚动 实例040 如何...
C++Builder精彩编程实例集锦的源代码前3部分.rar
实例035 如何在列表框
中
增加水平滚动条 实例036 如何在列表框
中
同
时
显示图像和文字 实例037 如何设置属性表组件标签图像 实例038 如何控制Memo组件的文字边界 实例039 如何使用代码控制文字滚动 实例040 如何...
Delphi
5,388
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章