for ii :=1 to n do begin if DBGrid1.SelectedRows.CurrentRowSelected then begin // do your things end; end;
For I:=0 to DBgrid.SelectedRows.Count-1 do begin DBgrid.DataSource.DataSet.GotoBook(Pointer(DBgrid.SelectedRows.items[i])); DBgrid.DataSource.DataSet.Edit; DBgrid.DataSource.DataSet.FieldByName('').AsString:=; DBgrid.DataSource.DataSet.post; end;
if DBGrid.SelectedRows.Count >0 then begin for i :=0 to DBGrid_xzx.SelectedRows.Count-1 do begin Dbgrid.Datasource.dateset.GotoBook(Pointer (DBGrid.SelectedRows.Items[i])); showMessage(dbgrid.datasource.dataset.fields[0].asstring); end; end
if DBGrid.SelectedRows.Count >0 then begin for i :=0 to DBGrid_xzx.SelectedRows.Count-1 do begin Dbgrid.Datasource.dateset.GotoBook(Pointer (DBGrid.SelectedRows.Items[i])); showMessage(dbgrid.datasource.dataset.fields[0].asstring); end; end ***********************************
谢谢yuanjunjing,是我问的意思!!
都是大同小异阿,察看DELPHI关于DBGRID的SELECTROWS属性的帮助,其中有例子 procedure TForm1.Button1Click(Sender: TObject); var i, j: Integer; s: string; begin if DBGrid1.SelectedRows.Count>0 then with DBGrid1.DataSource.DataSet do for i:=0 to DBGrid1.SelectedRows.Count-1 do begin GotoBook(pointer(DBGrid1.SelectedRows.Items[i])); for j := 0 to FieldCount-1 do begin if (j>0) then s:=s+', '; s:=s+Fields[j].AsString; end; Listbox1.Items.Add(s); s:= ''; end; end;
begin
if DBGrid1.SelectedRows.CurrentRowSelected then
begin
// do your things
end;
end;
begin
DBgrid.DataSource.DataSet.GotoBook(Pointer(DBgrid.SelectedRows.items[i]));
DBgrid.DataSource.DataSet.Edit;
DBgrid.DataSource.DataSet.FieldByName('').AsString:=;
DBgrid.DataSource.DataSet.post;
end;
begin
for i :=0 to DBGrid_xzx.SelectedRows.Count-1 do
begin
Dbgrid.Datasource.dateset.GotoBook(Pointer (DBGrid.SelectedRows.Items[i]));
showMessage(dbgrid.datasource.dataset.fields[0].asstring);
end;
end
begin
for i :=0 to DBGrid_xzx.SelectedRows.Count-1 do
begin
Dbgrid.Datasource.dateset.GotoBook(Pointer (DBGrid.SelectedRows.Items[i]));
showMessage(dbgrid.datasource.dataset.fields[0].asstring);
end;
end
***********************************
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= '';
end;
end;