alter table bys rename   &a  to &w  错在哪？
还有我有一个表单中有40个TEXT文本框，用来显示一个表中的所有字段名称！
use bys  
k=1
go 1
do whil k<=fcount()  
   I="TEXT"+TRANSFORM(k)
   thisform.&i..value=fiel(k)
   k=k+1
endd

现在我想在TEXT中直接修改其相对应的字段名！命令怎么写！谢谢！

[此贴子已经被作者于2016-1-25 17:30编辑过]

vfp9.0 测试 alter table bys rename  &a  to &w，语法没错，但是 a,w 的值本身是否有问题 ？比如数字等等.
“直接修改其相对应的字段名”? 可以在循环内先给 a,w 赋值，再执行此句 alter .. ，试试。

示例：

CREATE CURSOR tt (f1 I, f2 I)
INSERT INTO tt VALUES (1, 2)
? FIELD(1), FIELD(2)
a = "f2"
w = "ff2"
ALTER table tt rename (a) to (w)
? FIELD(1), FIELD(2)

of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as Form
    Top = 100
    Left = 100
    
    ADD OBJECT Text1 as TextBox WITH top=10,left=10
    ADD OBJECT Text2 as TextBox WITH top=40,left=10
    
    PROCEDURE Init
        FOR i = 1 TO FCOUNT()
            sCmd = "thisform.Text"+TRANSFORM(i)+".Value = FIELD("+TRANSFORM(i)+")"
            _VFP.DoCmd(sCmd)
        ENDFOR
    ENDPROC
ENDDEFINE

多谢，多谢！！！ hepingfly,吹水佬

就是修改TEXT的内容！修改之后的内容就是新的字段名！比如说 之前读取出来的字段名显示在TEXT1中的是AAA  我把TEXT1改成AAB  那么之前表中的AAA字段名就变成AAB！

* 假设 text1 默认显示的是 field(1)
* 文本框中的内容必须满足系统对字段名的要求，比如：不能为空，必须以字母、下划线或汉字开头，中间不能有空格等
cOld = field(1)
cNew = allt(THISFORM.text1.Text)
alter table bys rename &cOld to &cNew

同意楼上的话，人工改字段名是需要按VFP要求进行查验的，如果不符合条件应该拒绝修改，要求重新录入新字段名。不能不经查验而直接修改，如果有不符合条件的名字，程序会崩溃。

仅供参考的例子。

多谢各位帮忙！感激不尽！