SOS SOS SOS!!

Question

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
dbgrid1.SelectedIndex:=dbgrid1.SelectedIndex+1;
end;

Answer 1

补充一下，党在最后一个列时，要换到下一行
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  ls:integer;
begin
ls:=dbgrid1.SelectedIndex;
if key=vk_return then
  if ls=dbgrid1.Columns.Count-1 then begin
   datasource1.DataSet.Next;
   dbgrid1.SelectedIndex:=0;
   end
   else
  dbgrid1.SelectedIndex:=dbgrid1.SelectedIndex+1;end;