急急急急急急~~~~~编程过程中遇到的问题不会修改请各位高手帮一下手
Form1init代码
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属性~~~请各位高手们帮手找下问题~~~~~`在此先说声谢了~~!!