读书人

临时表的有关问题,附代码.高手帮小弟我

发布时间: 2012-02-26 20:19:44 作者: rapoo

临时表的问题,附代码.高手帮我看看
lcOldAlias=alias()&&保存当前工作区

lcSqlString= "select * from mpcwlcsb where (approval=0 or availability=1) and id = ' "+allt(thisform.t4.value)+ " ' "
if sqlexec(phandle,lcSqlString, "Tmpbjcgrec ")=-1
=messagebox(MSG_CONNECT_ERROR,48,MB_CAPTION)
Select &lcOldAlias
return .f.
ENDIF
select Tmpbjcgrec
if RECCOUNT( )> 0
=messagebox( "此物料对应的供应商已失效! ",48,mb_caption)
return .f.
endif


Select Tmpbjcgrec
Use

sele (iif(empty(lcoldalias),0,lcoldalias))

thisform.lockscreen=.t.
thisform.refresh
thisform.lockscreen=.f.

错误提示,找不到Tmpbjcgrec

[解决办法]
sele (iif(empty(lcoldalias),0,(lcoldalias)))
[解决办法]
你前面

Select Tmpbjcgrec
Use

已经USE关闭了表Tmpbjcgrec,再SELECT (lcoldalias),肯定报错

读书人网 >VFP

热点推荐