MultiSelect
在memo中显示选中的记录,但是只能显示一条?
已讲multi select 设为true
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
currentrecord:TBookMark;
dataset:TDataSet;
begin
dbgrid1.SelectedRows.Refresh;
dbgrid1.ReadOnly:=true;
if dbgrid1.SelectedRows.Count=0 then
begin
showmessage('没有选中的记录');
exit;
end;
dataset:=dbgrid1.DataSource.DataSet;
currentrecord:=dataset.GetBookmark;
dataset.DisableControls;
try
memo1.Clear;
for i:=0 to dbgrid1.SelectedRows.Count-1 do
dataset.bookmark:=dbgrid1.SelectedRows.Items[i];
memo1.Lines.Add(dataset.fieldbyname('pass').asstring);
finally
dataset.gotoBookMark(currentrecord);
dataset.enablecontrols;
dataset.freebookmark(currentrecord);
end;
end;