我用的操作系统是XP，正常安装VFP6后按提示接着安装了MSDN，但不知道为什么，在运行VFP6时帮助菜单下的帮助（F1)是灰色的。请教了。
程序中为了相关联，需要把几个数据库中的“姓名”统一，（因为几数据库中相同姓名有的中间带空格，有的没有空格）如有的是“王洁”，有的是“王 洁”（带一个空格），有的是“王 洁”（带二个空格）。我想用一个程序把所有姓名中的空格全部都去掉，不知道为什么用
y=""
for i=1 to len(rtrim(xm))
if subs(xm,i,1)<>" " then
y=y+subs(xm,i,1)
endif
next
repl xm with y
可以去掉带一个空格的姓名中的空格，而不能去掉带两个空格姓名中的空格。
用?subs(xm,3,1)<>" "时，对带一个空格的姓名时是.F.，对带二个空格的姓名时是.T.
请教了。

老兄，错了。alltrim(xm)只是把字符串左右的空格去掉，不能把中间的空格去掉。

请songyuyu版主先自己在机上试过后再回答
use cj09g1x
do while not eof()
y=""
for i=1 to len(rtrim(xm))
if subs(xm,i,1)<>" " then
y=y+subs(xm,i,1)
endif
next
repl xm with y
skip
endd
use
retu
此程序就是不能去掉中间带两个空格的字符串,我才在此提问.
晕,
public y
y=""
for i=1 to len(rtrim(xm))
if subs(xm,i,1)<>" " then
y=y+subs(xm,i,1)
endif
next
repl all xm with y
thisform.Refresh
怎么能用repl all xm with y,这把所有xm都替换成第一个姓名了.

还有关于帮助菜单成灰的问题,不知道有请教了

谢谢wzxc帮助我解决了运行VFP时帮助菜单变灰的问题。