如何实现货币类型数据的相加？

Question

所有的文本框都是货币型的，录入的时候，其中一个需要是另外其他的和。我在change事件里面如下写
Me.txtFields(10).Text = CCur(CDbl(Me.txtFields(6).Text) + CDbl(Me.txtFields(7).Text) + CDbl(Me.txtFields(8).Text) + CDbl(Me.txtFields(9).Text))
没有通过

Answer 1

试试写在一个按钮的click事件里，不要写在change事件里.

Answer 2

改成(合计之前最好判断一下各文本框内的内容都是数字)：
Me.txtFields(10).Text = CCur(CDbl(Me.txtFields(6).Text) + CCur(Me.txtFields(7).Text) + CCur(Me.txtFields(8).Text) + CCur(Me.txtFields(9).Text))

Answer 3

能不能设置一下，让txt里面的内容直接是货币型的。直接相加：
Me.txtFields(10).Text = Me.txtFields(6).Text + Me.txtFields(7).Text + Me.txtFields(8).Text) + Me.txtFields(9).Text。

Answer 4

Up在推存一个VB小工具软件名称：VB代码计算器
软件类型：编程工具
编程环境：VB6 + SP5
适用系统：Win9x/2k/XP■ 软件介绍本程序能显示出你编写的VB源代码一共写了多少行，同时也支持其他类型的文件计算。特点：①界面美观，操作方便，你只需拖动你保存好的VB工程（组）文件到本程序窗口就可显示出源代码的总行数。②能自动分析VB工程（组）内包含的文件（这是可选的，也可以不自动分析并把他当作普通文件计算），并分别计算出每个文件所包含源代码的行数。③能自动隔离VB文件中由VB自动生成的代码，只计算用户输入的源代码，并可选择是否要排除空行或注释行的计算。④支持计算非VB文件，如文本文件、ini文件等。计算该类文件时只能排除空行的计算，其他只要不是空行都会累加到总行数中。⑤可暂停正在计算中的任务。⑥可以保存计算结果和被计算文件列表为文本文件，方便以后查询或打印输出。
下载地址：
华军软件 http://www.onlinedown.net/soft/7545.htm
天空软件 http://www.skycn.com/soft/12423.html

Answer 5

我把txt设置成货币型的.但是我发觉txt里面的值竟然存成了字符型"$ 64.34",该怎么实现相加?用val的话,直接成0了.

Answer 6

txtFields(10).Text = CCur(mid(txtFields(6).Text,2)) + Ccur(mid(txtFields(7).Text,2)) + Ccur(mid(txtFields(8).Text,2)) + ccur(mid(txtFields(9).Text,2))

Answer 7

yiming616(yiming616) ：
你的破玩意，怎么到处打广告哦........