挺笨的，简单有关问题就是解决不了，找不到别名有关问题，请高手 指教

挺笨的，简单问题就是解决不了，找不到别名问题，请高手 指教！

下面是非常简单问题，但执行后总是出现没有找到别名 区域名称 ，不知怎回事？




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

------解决方案--------------------------------------------------------
千万不要拿foxbase或foxpro的书来学习VFP!