ADO连接正常
DBgrid显示资料也OK 每次点击DBgrid中一行资料 则该行高亮显示了
表如下：
班级 姓名
1 A君
1 B君
2 C君
2 D君
3 E君
3 F君
4 G君
4 H君
4 I君
请问 如何实现 点击时 班级相同的行 一起高亮显示？如 我点击A君 怎样实现A君和B君的行一起高亮显示？点G君 则G君 H君 I君三行一起高亮显示？

谢谢大家

編輯記錄

在 DBGrid 的 On_Cell_Click 事件，但有一點點小BUG待自行修正
<textarea class="delphi" rows="10" cols="60" name="code"> procedure TForm1.DBGrid1CellClick(Column: TColumn); var Saveplace : TBookMark; CurrentID: Integer; begin DBGrid1.SelectedRows.Clear; with DBGrid1.DataSource.DataSet do begin if Active then begin CurrentID := FieldByName('id').AsInteger; DisableControls; Saveplace := GetBookmark; try First; while not eof do begin if FieldByName('id').AsInteger = CurrentID then begin DBGrid1.SelectedRows.CurrentRowSelected := True; Application.ProcessMessages; end; Next; end; GotoBookmark(SavePlace); finally FreeBookmark(SavePlace); EnableControls; end; end; end; end; </textarea>

------
Fishman

多谢Fishman回复
代码执行无问题 但仍然只能高亮其中一行
即不能实现 点击时 班级相同的行 一起高亮显示

我想关键是不是在这里
if FieldByName('id').AsInteger = CurrentID then
begin
DBGrid1.SelectedRows.CurrentRowSelected := True;
//这里？还是dbgrid默认每次循环时高亮只显示一行 当再次循环时 先前高亮的一行就被后来高亮的一行代替了？
Application.ProcessMessages;
end;

这里 是不是 始终和查找行相比较 自己和自己比较 是否是这样的原因


不知如何调整
感谢

編輯記錄

DBGrid1.Options 的 dgRowSelect  及 dbMultiSelect  設為 True 再試試！

------
Fishman

 dbMultiSelect  没有设为 True  惭愧 

多谢Fishman大大