| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 604 人关注过本帖
标题:求助!关于Grid中对表的操作问题!
只看楼主 加入收藏
yudi1891
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-5-18
收藏
 问题点数:0 回复次数:3 
求助!关于Grid中对表的操作问题!
高手们小弟是新手问题幼稚不要见笑!
我在表单中建了一个grid,通过生成器加入了一个表。我想通过这个grid表格直接删除其中的一行。(我是指点中任意一行,也就是删除了表中的一行)这个删除的命令按钮程序怎么写?
小弟不知道怎么做呀。那位高手教教小弟。小弟感激不尽!多谢!
搜索更多相关主题的帖子: Grid 
2006-05-18 13:46
hdzqs
Rank: 1
等 级:禁止访问
帖 子:218
专家分:0
注 册:2006-4-25
收藏
得分:0 

sele <表格名>
dele *当前记录删除标记

把您的需求变成我们的信息 让我们的信息成为您的财富
2006-05-18 15:39
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
我经常这样做:
(1)在FORM1的INIT中写上这样的命令
CLOSE ALL
USE 表1.DBF
THISFORM.GRID1.RECORDSOURCETYPE=1
THISFORM.GRID1.COLUMNCOUNT=-1
THISFORM.GRID1.RECORDSOURCE="表1"

(2)假如点击表格GRID1中的一行后就执行删除,则在THISFORM.GRID1.AFTERROWCOLCHANGE过程中书写代码:
IF MESSAGEBOX("删除吗",36,"提示")=6
THISFORM.GRID1.RECORDSOURCE=NULL
DELETE
PACK
THISFORM.GRID1.RECORDSOURCE="A"
ENDIF
THISFORM.REFRESH

(3)若需要根据某字段的值且点击删除命令按钮后执行删除,则在该命令按钮的CLICK过程中书写代码:
LOCATE ALL FOR <字段名1>=THISFORM.TEXT1.VALUE
IF EOF()
MESSAGEBOX("无法删除不存在的记录",0,"提示")
ELSE
IF MESSAGEBOX("删除吗",36,"提示")=6
THISFORM.GRID1.RECORDSOURCE=NULL
DELETE
PACK
THISFORM.GRID1.RECORDSOURCE="A"
ENDIF
ENDIF
THISFORM.REFRESH

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-19 00:32
lndsqfyq
Rank: 1
等 级:新手上路
帖 子:232
专家分:0
注 册:2006-1-16
收藏
得分:0 
我也试试,这个问题一直也捆饶着我,我一直也没找到好的办法去解决,索性就没有再用。

2006-05-19 15:15
快速回复:求助!关于Grid中对表的操作问题!
数据加载中...
 
   



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

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