Form1
init代码


thisform.edit1.enable=.f.
thisform.txt答案.enable=.f.
 
load代码
sele shiti
set multilocks on &&允许尝试锁定一组记录

控件1
append blank






thisform.edit1.enabled=.t.
thisform.txt答案.enabled=.t.

控件2
set delete on
 dele
 cz=messagebox("确实要删除这条记录吗?",4+32+256,"删除确认")
 do case
 case cz=6
        =tableupdate(.t.)
 case cz=7
        recall
 endcase
 thisform.refresh
控件3






thisform.edit1.enabled=.t.
thisform.txt答案.enabled=.t.
控件4
n=recno()&&存放当前添加或编辑的记录号
sele shiti
dele for len(alltrim(shiti.试题))=0.or.;
len(alltrim(shiti.答案))=0&&删除试题或答案无内容的记录
i=0
loca for alltrim(shiti.试题)==alltrim(thisform.edit1.value)
do while.not.eof()
i=i+1
continue
enddo
if i>1
messagebox("这道题已经出现过,刚刚输入或编辑的信息已被删除.",0,"提示!")
go n
dele
endif
=tableupdate(.t)






thisform.edit1.enabled=.f.
thisform.txt答案.enabled=.f.
控件5
=tablerevert(.t.)






thisform.edit1.enabled=.f.
thisform.txt答案.enabled=.f.
控件6
??chr(7)
result=messagebox("是否退出?",4+48+256,"信息窗口")
if result=6
use
  use date\shiti excl
  set excl on
  pack
  set excl off
  use
  thisform.release
  endif
控件7
sele shiti

if.not.bof()
skip -1
thisform.refresh
else
messagebox("已经是第一条记录",0,"记录情况")
this.enabled=.f.
endif
if deleted()
thisform.text1.value='*'
else
thisform.text1.value=''
endif
thisform.refresh

控件8
sele shiti

if.not.eof()
skip
thisform.refresh
else
messagebox("已经是最后一条记录!",0,"记录情况")
this.enabled=.f.
endif
if deleted()
thisform.text1.value='*'
else
thisform.text1.value=''
endif
thisform.refresh

做完运行时~~~说找不到enable属性~~~请各位高手们帮手找下问题~~~~~`在此先说声谢了~~!!

查查看，就在开头几句 的 “thisform.edit1.enabled=.f.”  写成“ thisform.edit1.enable=.f.”

thisform.edit1.enable=.f.
这句错了.是enabled

[[it] 本帖最后由 光辉情天 于 2008-5-19 08:56 编辑 [/it]]