grid多行选择问题急300分(200分)

  • 主题发起人 主题发起人 88888wwwww
  • 开始时间 开始时间
ctrl+ option/dgmultiselect:=true 可以呀?delphi6.0
 
上面那些代码中,若将Listbox1换成DBGrid2又该怎么改呢?
 
dgMultiSelect = True
 


DELPHI的TDBGrid控件主要用来处理数据表,它的属性中有一个dgMultiSelect,若此属性设
定为TRUE,则可以选中多个记录(可用CTRL+鼠标左键选择多个记录)。对选中的多个记录
可以有以下几种处理方式,比较简单的两种是:清除所有的选择记录可用DBGrid1.SelectedRows.Clear语
句;删除所有的选择记录可用DBGrid1.SelectedRows.Delete语句。但如果想获得选中的所有记录的其他信
息,比如,在单独的一个窗体中显示用户选择的记录的第一个字段的内容(如所有选择的姓名)如何处理呢?
这就要使用书签功能了,下面是我编写的一个程序中的过程,来将用户选择的多个记录集中显示在另外一个
窗体中(我使用的是DELPHI5+补丁1),供参考使用
procedure GetSelectedRecord
(DataSet : TDataSet;FieldName : String;
BookmarkList : TBookmarkList;Strings : TStrings);
//这个过程中的参数分别为:数据表、字段名称、书签、用来保存所选字段内容的
//字符串(用于将内容传递到另一个单独窗体中的TLIST控件中)
var
I: Integer;
bm : TBookMark;
begin
Strings.Clear;
with Dataset do begin
DisableControls;
bm :=GetBookMark;
try
//每个选择的记录都有一个书签标志,这就为处理它们提供了条件
for I :=0 to BookmarkList.Count - 1 do begin
Bookmark :=BookmarkList[I];
Strings.Add(DataSet.FindField(fieldname).AsString);
end;
finally
GotoBookMark(bm);
FreeBookMark(bm);
EnableControls;
end;
end;
end;

调用举例:
GetSelectedRecord(Table1, 'NAME', DBGrid1.SelectedRows, Form2.ListBox1.Items);
 
这样的结果不知道是不是你要的,能实现你选择的行进行删除。
dgMultiSelect = True//这个设为真
with dbgrid1.DataSource.DataSet do
begin
first;
while not eof do
begin
if dbgrid1.SelectedRows.CurrentRowSelected then//判断是不是你选择的行
delete//进行删除
else
next;
end;
end;
 
各位,我想楼想要的主要是怎么能让grid可以象execl里的那样用鼠标拖拉选中吧,
怎么删嘛,难度不大.
 
大家大都答非所问,此问题的关键词是“拖拉选中”,不是“删除”。
我看还是直接使用dbgrideh好了,其实何必非要想办法用dbgrid实
现呢?就算真是要研究一下,找ehlib的源码看一下不就得了?!
 
后退
顶部