Question

vfp连编后不能查询

程序如下:
set talk off
set safety off
ss=allt(thisform.combo1.value)
sele 销售表
go top
locate all for allt(销售表.名称)==ss
if found()
close all
dele file 商品查询.dbf
sele * from 销售表 where allt(销售表.名称)==ss;
into dbf 商品查询.dbf
sele 商品查询
thisform.grid1.recordsourcetype=0
with thisform.grid1
.columnCount = -1
.recordsource='商品查询'
.init
.setfocus
endwith
thisform.refresh
else
messagebox("该商品无销售记录！",64,"提示")
endif
set safety on
set talk on

问题是连编之前一切正常,grid1也能正确显示查到的结果,但是连编后即使"销售表"中有记录,程序只执行

messagebox("该商品无销售记录！",64,"提示")

这条命令,到底哪里出问题了?

Answer 1

ss=allt(thisform.combo1.value) 改为ss=allt(thisform.combo1.displayvalue)