挺笨的,简单问题就是解决不了,找不到别名问题,请高手 指教!
下面是非常简单问题,但执行后总是出现没有找到别名 区域名称 ,不知怎回事?
SET TALK OFF
IF THISFORM.COMBO1.value<>' '
A1=TRIM(THISFORM.COMBO1.value)
thisform.combo1.rowsource=''
AA=messagebox(" 确认要删除 &A1 区域吗 !",48+1,'修改、删除区域模块')
IF AA=1 THEN
Use 区域名称辅助表
do while .t.
if 区域名称=A1
DELE
PACK
USE
ELSE
SKIP
IF EOF()
EXIT
ENDIF
endif
enddo
Use
ENDIF
ENDIF
SET TALK ON
RETURN
[解决办法]
A1=TRIM(THISFORM.COMBO1.value)
换成
A1=ALLT(THISFORM.COMBO1.value)
看看
[解决办法]
*-- 改为:
Set Talk Off
If Thisform.COMBO1.Value<>' '
A1=Trim(Thisform.COMBO1.Value)
Thisform.combo1.RowSource=''
If 6=Messagebox(" 确认要删除 &A1 区域吗 !",4+32+256,'修改、删除区域模块')
Use 区域名称辅助表 Again In Select('区域名称辅助表') Alias 区域名称辅助表
Select 区域名称辅助表
Delete All For Rtrim(区域名称)==A1&& 确保 区域名称辅助表 中有字段名为:区域名称
Pack
Use
Endif
Endif
Set Talk On
Return