请问一下，为什么数值之间的大小比较不出来，是变量属性的问题吗？变量及判断结果如图
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 06 Then
R = 133
d = 0
d1 = 117
End If
Print ccccc & " " & RGB_R & " " & d1 & " " & d
VBA语法不支持 If 0 < ccccc <= 1 Then 这种区间比较的形式，改成 If 0 < ccccc And ccccc <= 1 Then 就行了。
好的，非常感谢
页:
[1]