银
银河
Unregistered / Unconfirmed
GUEST, unregistred user!
对于dbgrid,我们在回车的时候让它的光标向后移,可以编程如下:
procedure TForm1.DBGrid1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
with TDbgrid(ActiveControl) do
begin
if Selectedindex<(FieldCount-1) then
Selectedindex:=Selectedindex+1
else
begin
dbgrid1.DataSource.DataSet.Next;
Selectedindex:=0;
end
end;
end;
但现在,dbgrid有10个列,输入数据是按一行一行输入的,
现在要使得回车后,如果在网格中有输入数据,就向下一个网格移动,
假如,该网格中没有输入数据,回车后,则该网格复制同一个列的上一个网格的数据。
请问各位高手,怎样编程才可以实现以上的功能。
procedure TForm1.DBGrid1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
with TDbgrid(ActiveControl) do
begin
if Selectedindex<(FieldCount-1) then
Selectedindex:=Selectedindex+1
else
begin
dbgrid1.DataSource.DataSet.Next;
Selectedindex:=0;
end
end;
end;
但现在,dbgrid有10个列,输入数据是按一行一行输入的,
现在要使得回车后,如果在网格中有输入数据,就向下一个网格移动,
假如,该网格中没有输入数据,回车后,则该网格复制同一个列的上一个网格的数据。
请问各位高手,怎样编程才可以实现以上的功能。