dbgrid是操作数据库表的,你不连数据集你直接添加一行是不行的,下面那个用stringgrid.代码写在DBGRID的DBGrid1CellClick事件 procedure TForm1.DBGrid1CellClick(Column: TColumn); var I: Integer; begin StringGrid1.RowCount := StringGrid1.RowCount + 1; for I := 1 to DBGrid1.Columns.Count do begin StringGrid1.Cells[I,StringGrid1.RowCount-4] := DBGrid1.Fields[I-1].AsString; end; end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
I: Integer;
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
for I := 1 to DBGrid1.Columns.Count do
begin
StringGrid1.Cells[I,StringGrid1.RowCount-4] := DBGrid1.Fields[I-1].AsString;
end;
end;