VB很基本的语法，有点搞不懂了

VB > VB基础类
收藏 回复
[问题点数：40分，结帖人erdong988]
更多帖子
私信 空间 博客
erdong988
本版专家分：406
结帖率 100%
Dim iWKPmoney As Double 
If (CDbl(rstB2.Fields("isum")) - CDbl(rstB2.Fields("isokpsum"))) >= iWKPmoney Then

当
rstB2.Fields("isum")=10480   
rstB2.Fields("isokpsum")=0
iWKPmoney=10480 时，
这个if 语句应该是满足的呀，可为什么跟代码就说不满足呢？

我修改为

If cstr(CDbl(rstB2.Fields("isum")) - CDbl(rstB2.Fields("isokpsum"))) >= cstr(iWKPmoney) Then

跟代码调试，就正确了……为什么？
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
Tiger_Zhao
本版专家分：129844
Blank
红花 2017年3月 VB大版内专家分月排行榜第一
2016年12月 VB大版内专家分月排行榜第一
2016年5月 VB大版内专家分月排行榜第一
2016年1月 VB大版内专家分月排行榜第一
2015年12月 VB大版内专家分月排行榜第一
2015年11月 VB大版内专家分月排行榜第一
2015年10月 MS-SQL Server大版内专家分月排行榜第一
2015年9月 VB大版内专家分月排行榜第一
2015年9月 MS-SQL Server大版内专家分月排行榜第一
2015年8月 VB大版内专家分月排行榜第一
2015年8月 MS-SQL Server大版内专家分月排行榜第一
2015年7月 VB大版内专家分月排行榜第一
2015年7月 MS-SQL Server大版内专家分月排行榜第一
2015年6月 VB大版内专家分月排行榜第一
2015年5月 VB大版内专家分月排行榜第一
2015年4月 VB大版内专家分月排行榜第一
2015年3月 VB大版内专家分月排行榜第一
2015年2月 VB大版内专家分月排行榜第一
2014年11月 VB大版内专家分月排行榜第一
2014年9月 VB大版内专家分月排行榜第一
2014年8月 VB大版内专家分月排行榜第一
2014年7月 VB大版内专家分月排行榜第一
2013年7月 VB大版内专家分月排行榜第一
2013年4月 VB大版内专家分月排行榜第一
2010年2月 VB大版内专家分月排行榜第一
2010年1月 VB大版内专家分月排行榜第一
2009年11月 VB大版内专家分月排行榜第一
2009年9月 VB大版内专家分月排行榜第一
2009年8月 VB大版内专家分月排行榜第一
2009年7月 VB大版内专家分月排行榜第一
2009年4月 VB大版内专家分月排行榜第一
2009年3月 VB大版内专家分月排行榜第一
2009年2月 VB大版内专家分月排行榜第一
2009年1月 VB大版内专家分月排行榜第一
2008年6月 VB大版内专家分月排行榜第一
2007年12月 VB大版内专家分月排行榜第一
2007年10月 VB大版内专家分月排行榜第一
2007年9月 VB大版内专家分月排行榜第一
Blank
黄花 2016年11月 VB大版内专家分月排行榜第二
2016年1月 MS-SQL Server大版内专家分月排行榜第二
2015年12月 MS-SQL Server大版内专家分月排行榜第二
2015年11月 MS-SQL Server大版内专家分月排行榜第二
2015年5月 MS-SQL Server大版内专家分月排行榜第二
2015年4月 MS-SQL Server大版内专家分月排行榜第二
2015年1月 VB大版内专家分月排行榜第二
2015年1月 MS-SQL Server大版内专家分月排行榜第二
2014年12月 VB大版内专家分月排行榜第二
2014年11月 MS-SQL Server大版内专家分月排行榜第二
2014年9月 MS-SQL Server大版内专家分月排行榜第二
2013年8月 VB大版内专家分月排行榜第二
2013年6月 VB大版内专家分月排行榜第二
2013年5月 VB大版内专家分月排行榜第二
2010年4月 VB大版内专家分月排行榜第二
2010年3月 VB大版内专家分月排行榜第二
2008年12月 VB大版内专家分月排行榜第二
2008年8月 VB大版内专家分月排行榜第二
2008年7月 VB大版内专家分月排行榜第二
2007年11月 VB大版内专家分月排行榜第二
Blank
蓝花 2017年1月 MS-SQL Server大版内专家分月排行榜第三
2015年6月 MS-SQL Server大版内专家分月排行榜第三
2015年3月 MS-SQL Server大版内专家分月排行榜第三
2015年2月 MS-SQL Server大版内专家分月排行榜第三
2014年12月 MS-SQL Server大版内专家分月排行榜第三
2014年10月 VB大版内专家分月排行榜第三
2014年10月 MS-SQL Server大版内专家分月排行榜第三
2014年8月 MS-SQL Server大版内专家分月排行榜第三
2013年9月 VB大版内专家分月排行榜第三
2013年3月 VB大版内专家分月排行榜第三
2012年5月 VB大版内专家分月排行榜第三
2012年4月 VB大版内专家分月排行榜第三
2010年10月 VB大版内专家分月排行榜第三
2010年8月 VB大版内专家分月排行榜第三
2010年7月 VB大版内专家分月排行榜第三
2009年5月 VB大版内专家分月排行榜第三
2008年9月 VB大版内专家分月排行榜第三
2008年4月 VB大版内专家分月排行榜第三
2008年2月 VB大版内专家分月排行榜第三
浮点小数有误差。
金额有专门的类型 Currency（4位定点小数）。
Dim iWKPmoney As Currency

If (CCur(rstB2.Fields("isum")) - CCur(rstB2.Fields("isokpsum"))) >= iWKPmoney Then
只看TA 引用 举报 #1得分 38
更多帖子
私信 空间 博客
舉杯邀明月
本版专家分：60167
Blank
红花 2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
Blank
黄花 2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
Blank
蓝花 2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
我试了一下你的“第1种情况”，没有问题的啊。


我不知道你的 rstB2 是什么对象，也不清楚你的 rstB2.Fields( ) 返回值是什么类型，
但你用了 CDbl( ) 函数，那么一定会是双精度浮点数的结果，减法运算的结果也是双精度的值。
我的测试代码中用“字符串”代替你的  rstB2.Fields( ) 结果，是完全等效的。
如果楼主确定你的代码没有写错（在使用的地方），那么你得确认一下变量iWKPmoney的“取值”来源。

双精度数值进行比较，必须注意“误差问题”，然而很多人却没意识到这个问题。
如果变量iWKPmoney的值是其它的“运算结果”，即使你在调试时“看到”它的值是10480，
　　但“实际值”未必是刚好是那么多，也许会是“微乎其微”的尾数被IDE给你进行了舍入后显示的结果。
（你这儿“不满足条件”，很可能是因尾数被“舍去”了才看到是10480）
如果你的 rstB2.Fields( ) 是“整数的”，并且其值及运算结果不会超过“Long类型”的值域，
　建议你用 CLng( )函数，这样不会有“精度误差”问题带来的影响。

改成这样即可：
If (CLng(rstB2.Fields("isum")) - CLng(rstB2.Fields("isokpsum"))) >= CLng(iWKPmoney) Then
只看TA 引用 举报 #2得分 2
更多帖子
私信 空间 博客
erdong988
本版专家分：406
代码中的列都是金额，和当初一样的数据，我改为 currency 之后，程序运行正确，
应该就是1楼说的浮点误差，可能从数据库中取出来的，看似10480，实际比10480大那么一点点……
只看TA 引用 举报 #3得分 0
收起
收藏 回复
erdong988

等级：

关注 私信 TA的帖子
VB基础语法

VB基础语法知识点

VB6.0经典教程(入门必备)

本教程可以作为初学VB的朋友的入门教程，通俗易懂，易于上手，非常适合初学者。

VB和VB.NET有什么区别

作为VB6.0的后续版本，VB.NET更加稳定，而且完全面向对象。也许你还记得，VB6.0部支持继承、重载和接口，所以不是真正面向对象的。而VB.NET则支持这些面向对象特性。...VB6.0不支持继承，而VB.NET则不...

VB当中的新语法(四)

VB当中的新语法(四) --Lambda <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> 这个世界上很多东西是没有道理的...不知道你是不是也会这样觉得。老实说...

VB当中的新语法(四)

VB当中的新语法(四) -- Lambda 这个世界上很多东西是没有道理的...不知道你是不是也会这样觉得。老实说，过去写程序写惯了的人，一开始看到Lambda表达式会觉得怪怪的，我先讲它的意义，官方说法是，Lambda表达式...

VB百例总结

VB总结 当第一次听到VB这个东西的时候，感觉这个东西好难啊。看到了这个打开的页面，对于我没有接触过的东西，...2、当然，在敲VB百例的时候，会遇到很多不懂，或者运行不出来的，还有就是语法错误，这时候我们就...

.NET的世界里，入门的VB / C#语法转换不该是一个问题。

.NET的世界里，入门的VB / C#语法转换不该是一个问题。 http://www.dotblogs.com.tw/mis2000lab/archive/2008/05/05/3795.aspx 花了很多时间，帮忙回答问题。 我最讨厌遇见的问题，就是：请帮我把 YY程序...

程序员之路——一个老程序员对刚上大学的学弟学妹的忠告

而许多搞不清指针是咋回事的BBS站友眉飞色舞的讨论C#里面可以不用指针等等则让我觉得好笑。 C#就象当年的ASP 一样，“忽如一夜春风来，千树万树梨花开”，结果许多学校的信息学院成了“Web 学院”。 96, 97级的不

VB、VBA、VBS的区别你搞清楚了吗？

《真是想不到系列》每次看大师的东西到了精彩之处，我就会拍案叫绝："哇噻，真是想不到！"。在经过很多次这种感慨之后，我发现只要我们动了脑筋，我们自己也能有让别人想不到的东西。于是想到要把这些想不到的东拿...

Python3.8.0语法汉化规范思路1.0版

一开始想搞一个简单的爬虫，搭建环境测试程序，各种报错各种环境问题、语法问题，研究看看和C#、VB的语法差别很大，一切都是对象，各种类、方法、继承、迭代、复用还是有很大区别的，学习两天后看看语法真是简练，有...

关于学习VB和ASP关系问题

ASP的语言不仅仅只是命令格式差不多，而是包含在之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能，并且以HTML语言整合（HTML负责界面上，ASP则负责功能上）形成...

Python selenium —— selenium与自动化测试成神之路

忽然想谈谈自动化的学习路径，因为发现很多人总是急于求成，不懂该如何学习。在群里总是会遇到很多人问低级问题，写了一个selenium脚本，却执行失败，跑到群里来问，大神，这里为什么会报错？很多都是明显的语法问题...

[VB.NET]请问,VB和VB.net有啥区别和联系?

差的不多，还是相差很多？ 如果想学VB.net，是否需要先学VB？还是直接学VB.net就行? 如果学了VB,对学习VB.net有帮助吗？帮助大吗？ 原帖地址:...

真没想到VB也可以这样用之VB能做什么

而很多VC，DELPHI的程序员都认为VB里搞开发不自由，它让我们做事变容易的同时，也让我们发挥的余地越来越小。的确，简单和功能强大这两者本身就是一对矛盾。那怕一行代码不写，仅仅起动运行一个空窗体这样简单动作，...

VB 程序大揭秘(转载)用VB的不得不看的好东西！

http://cnprogram.myrice.com/article/vb/vb396.html 程联盟--技术文章 VB 程序大揭秘 1.Visual Basic程序概况 我用W32Dasm(Ver 8.93)解开一个比较复杂的VB程序，其中用到了许多API 函数比如...

真是想不到系列之一：VB到底为我们做了什么？

《真是想不到系列》 每次看大师的东西到了精彩之处，我就会拍案叫绝："哇噻，真是想不到！"。在经过很多次这种感慨之后，我发现只要我们动了脑筋，我们自己也能有让别人想不到的东西。于是想到要把这些想不到的东拿...

VB 程序大揭秘

VB 程序大揭秘(转载)用VB的不得不看的好东西！ http://cnprogram.myrice.com/article/vb/vb396.html 程联盟--技术文章 VB 程序大揭秘 1.Visual Basic程序概况 我用W32Dasm(Ver 8.93)解开一个比较复杂的VB程序，其中...

VB.Net 三层登录实例

实现过程因为之前敲了一个C#的登录实例，再敲.net版的时候，语法产生混乱，搞不清，不过还好磕磕绊绊也实现了。下面就和大家分享一下。  三层架构，就是将整个业务应用逻辑上划分为：UI（表现层）、 BLL(业务逻辑...

在学习VB.net过程中遇到的一些问题及解决方案的总结（小菜鸟版）

搞了三个月的VB.net，介绍一下我的环境吧，用的VS2008编译器，运行坏境是WINCE7.0系统，不要问我为什么不选更优的编译器，这是公司比较老的一款产品，但是也需要维护的，所以。。。。。 大体说说身为菜鸟的我的学习...

[py语法]非计算机专业的同学如何半个小时搞懂py3的语法

最近蛮多人在学python，好久没有写过东西，觉得编程语言本身并不难，所以想写写看。主要是写给非计算机专业的同学快速熟悉python这个工具，如果是计算机专业的同学最好掌握好一门语言后再来看python，会有更深刻的...

相关热词 c#对文件改写权限 c#中tostring c#支付宝回掉 c#转换成数字 c#判断除法是否有模 c# 横向chart c#控件选择多个 c#报表如何锁定表头 c#分级显示数据 c# 不区分大小写替换