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

[xlj2000]

下面程序不执行也不报错，不知哪有问题，有人说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

[wwwwb]

在DO CASE中加入
WAIT WIND ‘123’之类的，看看是否执行

and与.and.是一致的

[lc_apple]

[Quote=引用楼主 xlj2000 的回复:]
下面程序不执行也不报错，不知哪有问题，有人说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

[/Quote]
do case语句这样写可不是好习惯，建议改成：
If Allt(Thisform.combo1.Value)=="人保寿险康宁人生终身寿险" And Allt(Thisform.combo2.Value)=="趸缴"
Do Case
Case Allt(Thisform.combo3.Value)="直销"
zs=(Thisform.text1.Value)*0.035*0.6
Thisform.text2.Value=zs

Case Allt(Thisform.combo3.Value)="中介"
zs1=(Thisform.text1.Value)*0.035*0.3
Thisform.text2.Value=zs1
Otherwise
=Messagebox('case错误')
Endcase
Else
=Messagebox('if错误')
Endif