| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 858 人关注过本帖
标题:急急急急急急~~~~~编程过程中遇到的问题不会修改请各位高手帮一下手
只看楼主 加入收藏
kakawen
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-5-14
收藏
 问题点数:0 回复次数:2 
急急急急急急~~~~~编程过程中遇到的问题不会修改请各位高手帮一下手
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属性~~~请各位高手们帮手找下问题~~~~~`在此先说声谢了~~!!

5.jpg (65.01 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: thisform txt set dele 
2008-05-16 01:48
午丁
Rank: 1
等 级:新手上路
威 望:1
帖 子:71
专家分:0
注 册:2008-3-19
收藏
得分:0 
thisform.edit1.enable=.f. ????
查查看,就在开头几句 的 “thisform.edit1.enabled=.f.”  写成“ thisform.edit1.enable=.f.”
2008-05-18 18:03
光辉情天
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2008-4-11
收藏
得分:0 
thisform.edit1.enable=.f.
这句错了.是enabled

[[it] 本帖最后由 光辉情天 于 2008-5-19 08:56 编辑 [/it]]
2008-05-19 08:55
快速回复:急急急急急急~~~~~编程过程中遇到的问题不会修改请各位高手帮一下手
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019252 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved