请VFP大虾帮忙，先谢了。

[rzg]

select g5
locate for alltrim(组别名称)=alltrim(This.parent.Text1.value)
if !found()
append blank
repl 组别名称 with alltrim(This.parent.Text1.value)
else
messagebox("该组已存在，不用再添加！",48,"信息提示")
endif
1：为什么执行结果老提示找不到别名‘g5‘，该怎么改？为什么？
2：用append blank
repl追加记录时为什么不是在表的最后的记录后追加而是隔了一条空白记录后再追加上去的呢？

[nononono]

这是你其他程序的问题, 这段程序正确.

[westbulls]

用单步调试查看,看看g5所在工作区是不是已经关闭,看看什么时候新增的记录.

[da_ming]

程序没问题！
看看其它程序吧

建议:
append blank
repl 组别名称 with alltrim(This.parent.Text1.value)
这两条语句改为insert into g5 (组别名称) values (alltrim(This.parent.Text1.value))

[rzg]

找不到别名是怎么一回事啊

然后我在select g5前回一句use g5它就又可以执行了，如果再执行一次，就有提示说文件正在使用，然后删了use g5就又可以执行了为什么啊
我就执行这一个程序呀

[lj_lt]

把‘select g5’换成下列语句：

if used('g5')
select g5
else
use g5
endif

[rzg]

问题是解决了
但书上的例子都是只有select g5的
然后再帮我分析分析原先为什么会引起那样的错误好不好，谢谢！！

[LUJUN]

'什么执行结果老提示找不到别名'
你程序肯定有关闭g5的操作或g5工作区被别的表覆盖了

[rzg]

不可能啊
我关了foxpro后重新运行，并就运行这个程序，还是找不到别名啊。

[rzg]

没人能帮我吗？

[LUJUN]

'关了foxpro后重新运行，并就运行这个程序',你的g5没有打开，怎能select g5？

[LUJUN]

这样更好：
if !used('g5')
use g5 in 0
endif
select g5