Question

用vfp6.0做的一个表单~运行后text框是灰色不能输入文字~求大侠指导

就是这样了
另外有个保存数据的按钮的代码是这个：是代码的问题么？IF Len(AllTrim(ThisForm.Txt名字.Value))=0
MESSAGEBOX("名字不能为空，请重新输入",46+2,"添加管理员")
thisform.Txt名字.setfocus
ELSE
*-- 将临时表中的记录追加到正式表中
SELECT 管理员
APPEND FROM 管理员temp
*-- 清空临时表，再次在临时表中插入一条临时记录
SELECT 管理员temp
ZAP
APPEND Blank
MESSAGEBOX("添加成功，请继续输入",64,"添加成功")
ENDIF
thisform.Refresh

Answer 1

text1.enabled = .f. && 不让输入 显示成灰色
text1.enabled = .t. && 可以输入 不显示成灰色

text1.readonly = .t. && 不让输入 不显示成灰色

text1.readonly = .f. && 正常输入 不显示成灰色

追问

已经是这个了~text1.readonly = .f. 但还是不行~

Answer 2

设置text的enable和readonly属性。
看了下你的代码，与代码没有任何关系