为什么vfp不能识别的成员COMBOL
opendatabaseD:\企业管理系统\企业.dbcifused("销售表")usein销售表endififempty(thisform.Combol.value)m...
open database D:\企业管理系统\企业.dbc
if used ("销售表")
use in 销售表
endif
if empty(thisform.Combol.value)
messagebox("请选择查找类型","提示")
thisform.grid1.recordsource=""
thisform.grid1.refresh
return
endif
use D:\企业管理系统\销售表.dbf
s1=alltrim(thisform.text1.value)
s2=alltrim(thisform.combol.value)
if s2="产品编号"
select cpbh,xssl,cpmc,mj,mjdz from 销售表 where cpbh=s1 into cursor "temp"
thisform.text2.value=temp.xssl
thisform.text3.value=temp.cpmc
thisform.text4.value=temp.mj
thisform.text5.value=temp.mjdz
else --s2="产品名称"
select t1=cpmc, t2=cpbh, t3=xssl, t4=mj, t5=mjdz from 销售表 where cpmc=s1
endif
运行后说不能识别的成员COMBOL
怎么解决 展开
if used ("销售表")
use in 销售表
endif
if empty(thisform.Combol.value)
messagebox("请选择查找类型","提示")
thisform.grid1.recordsource=""
thisform.grid1.refresh
return
endif
use D:\企业管理系统\销售表.dbf
s1=alltrim(thisform.text1.value)
s2=alltrim(thisform.combol.value)
if s2="产品编号"
select cpbh,xssl,cpmc,mj,mjdz from 销售表 where cpbh=s1 into cursor "temp"
thisform.text2.value=temp.xssl
thisform.text3.value=temp.cpmc
thisform.text4.value=temp.mj
thisform.text5.value=temp.mjdz
else --s2="产品名称"
select t1=cpmc, t2=cpbh, t3=xssl, t4=mj, t5=mjdz from 销售表 where cpmc=s1
endif
运行后说不能识别的成员COMBOL
怎么解决 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询