dbgrid的多项选择问题?(100分)

  • 主题发起人 主题发起人 chinanbzxx
  • 开始时间 开始时间
C

chinanbzxx

Unregistered / Unconfirmed
GUEST, unregistred user!
在使用dbgrid时,发现如果不用鼠标点击dbgrid,用selectrow属性就不会被选中,不管你如何
操纵数据库,请问除用鼠标选取以外,还有没有其他办法,另外选取热键如何改变,选取颜色和
当前记录颜色如何改变,如何使当前记录被选中?
 
试试设置dbgrid的SelectedRows属性
要改变颜色,自己在OnDrawDataCell里面画
 
TDBGrid控件中对多个记录的处理
2000-06-16· -·中国计算机世界出版服务公司

--------------------------------------------------------------------------------

  DELPHI的TDBGrid控件主要用来处理数据表,它的属性中有一个dgMultiSelect,若此属性设定为TRUE,则 可以选中多个记录(可用CTRL+鼠标左键选择多个记录)。对选中的多个记录可以有以下几种处理方式,比较简单的两种是:清除所有的选择记录可用DBGrid1.SelectedRows.Clear语句;删除所有的选择记录可用DBGrid1.SelectedRows.Delete语句。但如果想获得选中的所有记录的其他信息,比如,在单独的一个窗体中显示用户选择的记录的第一个字段的内容(如所有选择的姓名)如何处理呢?这就要使用书签功能了,下面是笔者编写的一个程序中的过程,用来将用户选择的多个记录集中显示在另外一个窗体中(笔者使用的是DELPHI4), 供参考使用。


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;
Strings.Add(DataSet.FindField(fieldname).AsString);
end;
finally
GotoBookMark(bm);
FreeBookMark(bm);
EnableControls;
end;
end;
end;

调用举例:
GetSelectedRecord(Table1, 'NAME', DBGrid1.SelectedRows, Form2.ListBox1.Items);


 
ehlib1.60即可解决!
颜色编程画。
 
改用ehlib吧,功能强大
下载网址:用sina搜索关键词: ehlib
 
多人接受答案了。
 
后退
顶部