乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 88|回复: 2

请问一下,为什么数值之间的大小比较不出来,是变量属性的问题吗?变量及判断结果如图

[复制链接]

4

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
26
发表于 2020-9-23 21:49:00 | 显示全部楼层 |阅读模式
ccccc = rs.Fields(26)
   If (ccccc) = 0 Then
    mohao_y(0) = (a - startmileage) * 240 / onepagemileage + stpp(0): mohao_y(1) = 0 + yl_stpp(1) - height
    mohao_y(2) = (b - startmileage) * 240 / onepagemileage + stpp(0): mohao_y(3) = 0 + yl_stpp(1) - height
    mohao_y(4) = (b - startmileage) * 240 / onepagemileage + stpp(0): mohao_y(5) = 0 + yl_stpp(1) - height
    mohao_y(6) = (a - startmileage) * 240 / onepagemileage + stpp(0): mohao_y(7) = 0 + yl_stpp(1) - height
     Set Ld7(0) = AcadDoc.ModelSpace.AddLightWeightPolyline(mohao_y)
   Else
          If 0  6 Then
   R = 133
   d = 0
   d1 = 117
   End If
    Print ccccc & "       " & RGB_R & "      " & d1 & "     " & d

p33s01p1mcj.png

p33s01p1mcj.png

回复

使用道具 举报

1

主题

18

帖子

4

银币

初来乍到

Rank: 1

铜币
22
发表于 2020-9-23 22:08:00 | 显示全部楼层
VBA语法不支持 If 0 < ccccc <= 1 Then 这种区间比较的形式,改成 If 0 < ccccc And ccccc <= 1 Then 就行了。
回复

使用道具 举报

4

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
26
发表于 2020-9-24 09:56:00 | 显示全部楼层

好的,非常感谢
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2024-11-22 01:29 , Processed in 0.145925 second(s), 61 queries .

© 2020-2024 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表