数据类型不匹配（不能进行运算）？？》？？

主题：数据类型不匹配（不能进行运算）？？》？？

绝缘子2009 [专家分：50] 发布于 2009-03-23 20:42:00

x1=thisform.text1.value
  x2=thisform.text2.value
  x3=thisform.text3.value
  x4=thisform.text4.value
  x5=thisform.text5.value
  x6=thisform.text6.value

  do case
  case (x3*x5+x4*x5+x6)>1200
   thisform.label8.caption="高度超高,H应小于1200mm"
   thisform.command1.enabled=.f.
  case (x3*x5+x4*x5+x6)<=1200
  thisform.label8.caption="H高度为"+alltrim(str(x3*x5+x4*x5+x6)+"mm"
  thisform.command1.enabled=.t.

  endcase

本帖地址： http://bbs.pfan.cn/post/296512.html

回复列表（共8个回复）

沙发

qjbzjp [专家分：8830] 发布于 2009-03-23 21:21:00

在表单init中：
STORE 0 to thisform.text1.Value ,thisform.text2.value,thisform.text3.Value ,thisform.text4.value,thisform.text5.Value ,thisform.text6.value

板凳

cbl518 [专家分：57140] 发布于 2009-03-23 21:23:00

with thisform
x1=val(.text1.value)
  x2=val(.text2.value)
  x3=val(.text3.value)
  x4=val(.text4.value)
  x5=val(.text5.value)
  x6=val(.text6.value)

  do case
  case (x3*x5+x4*x5+x6)>1200
   .label8.caption="高度超高,H应小于1200mm"
   .command1.enabled=.f.
  case (x3*x5+x4*x5+x6)<=1200
  .label8.caption="H高度为"+alltrim(str(x3*x5+x4*x5+x6))+"mm"
  .command1.enabled=.t.

  endcase
endwith

3 楼

cbl518 [专家分：57140] 发布于 2009-03-23 21:25:00

thisform.label8.caption="H高度为"+alltrim(str(x3*x5+x4*x5+x6)+"mm"

该句缺少）

4 楼

cbl518 [专家分：57140] 发布于 2009-03-23 21:30:00

把字段与文本框直接关联在一起最好了！

5 楼

cbl518 [专家分：57140] 发布于 2009-03-23 21:33:00

with thisform

STORE 0 to .text1.Value ,.text2.value,.text3.Value ,.text4.value,.text5.Value ,.text6.value

endwith

6 楼

绝缘子2009 [专家分：50] 发布于 2009-03-23 23:02:00

谢谢大家
~~
我先去试试！…

7 楼

绝缘子2009 [专家分：50] 发布于 2009-03-23 23:05:00

请问我这个问题是不是赋值语句没起到作用，后面的语句不能掉用呢？？

8 楼

cbl518 [专家分：57140] 发布于 2009-03-24 00:45:00

text 的默认值是字符型的

你把字符型的数据，当做数据型的数据，来运算，当然会发生错误了！

val 函数，是将字符型的数据，转化为数字型的！

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：数据类型不匹配（不能进行运算）？？》？？

回复列表（共8个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：数据类型不匹配（不能进行运算）？？》？？

回复列表 （共8个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共8个回复）