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

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




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!