当前位置: 代码迷 >> VFP >> 一位群友写的程序段不知哪有有关问题
  详细解决方案

一位群友写的程序段不知哪有有关问题

热度:8513   发布时间:2013-02-26 00:00:00.0
一位群友写的程序段不知哪有问题?
下面程序不执行也不报错,不知哪有问题,有人说and改为 .and. 但还是一样的问题。

do case 
  case allt(thisform.combo1.value)=="人保寿险康宁人生终身寿险" and allt(thisform.combo2.value)=="趸缴" and allt(thisform.combo3.value)="直销"
  zs=(thisform.text1.value)*0.035*0.6
  thisform.text2.value=zs

  case allt(thisform.combo1.value)=="人保寿险康宁人生终身寿险" and allt(thisform.combo2.value)=="趸缴" and allt(thisform.combo3.value)="中介"
  zs1=(thisform.text1.value)*0.035*0.3
  thisform.text2.value=zs1

endcase


------解决方案--------------------------------------------------------

thisform.combo1.value 改为 thisform.combo1.displayvalue

thisform.combo2.value 改为 thisform.combo2.displayvalue
------解决方案--------------------------------------------------------
探讨
下面程序不执行也不报错,不知哪有问题,有人说and改为 .and. 但还是一样的问题。

do case
  case allt(thisform.combo1.value)=="人保寿险康宁人生终身寿险" and allt(thisform.combo2.value)=="趸缴" and allt(thisform.combo3.value)="直销"
  zs=(thisform.text1.value)*0.035*0.6
  thisform.text2.value=zs

  case allt(thisform.combo1.value)=="人保寿险康宁人生终身寿险" and allt(thisform.combo2.value)=="趸缴" and allt(thisform.combo3.value)="中介"
  zs1=(thisform.text1.value)*0.035*0.3
  thisform.text2.value=zs1

endcase

  相关解决方案