| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2462 人关注过本帖
标题:vfp删除按钮的问题,现在只能标记,不能删除,pack命令不知道放哪
取消只看楼主 加入收藏
zjy2016
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2016-9-12
结帖率:71.43%
收藏
已结贴  问题点数:18 回复次数:4 
vfp删除按钮的问题,现在只能标记,不能删除,pack命令不知道放哪

        a=Trim(Thisform.txt教师编号.Value)
Locate For Alltrim(教师表.教师编号)=Alltrim(a)
If Eof()
    Messagebox("没有找到指定的学号!")
Else
    If Messagebox("确认要删除吗?",36,"系统提示!")=1
        Dele
        Messagebox("删除成功!")
        
   
        
    Endif
Endif
thisform.Refresh   
搜索更多相关主题的帖子: 教师 
2016-09-25 17:30
zjy2016
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2016-9-12
收藏
得分:0 
回复 2楼 tlliqi
还是没有删除啊,数据还在
2016-09-25 18:37
zjy2016
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2016-9-12
收藏
得分:0 
回复 2楼 tlliqi
a=Trim(Thisform.txt教师编号.Value)
Locate For Alltrim(教师表.教师编号)=Alltrim(a)
If Eof()
    Messagebox("没有找到指定的学号!")
Else
    If Messagebox("确认要删除吗?",36,"系统提示!")=1
        DELETE
        pack
        Messagebox("删除成功!")
        
    Endif
Endif
thisform.Refresh
删除不了,数据还在
2016-09-25 18:41
zjy2016
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2016-9-12
收藏
得分:0 
回复 6楼 吹水佬
还是不可以
2016-09-25 19:31
zjy2016
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2016-9-12
收藏
得分:0 
回复 7楼 zjy2016
我的是自由表,这样有关系吗
2016-09-25 19:34
快速回复:vfp删除按钮的问题,现在只能标记,不能删除,pack命令不知道放哪
数据加载中...
 
   



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

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