有关dbgrid问题 (50分)

银河

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个列,输入数据是按一行一行输入的,
现在要使得回车后,如果在网格中有输入数据,就向下一个网格移动,
假如,该网格中没有输入数据,回车后,则该网格复制同一个列的上一个网格的数据。
请问各位高手,怎样编程才可以实现以上的功能。
 
确认在未进行修改的情况下,搜索上一条记录的值,并对本记录的字段进行修改,...
============ 否则达不到删除数据的效果。
 
就进行数据的输入,不是进行修改的。
只要在输入数据的时候可以满足此功能就行。
 
顶部