procedure DBctrlgrid1keypress(sender:Tobject) ; begin if key=#13 then begin //复制啥啥的给啥啥,做你想做的。 end; end;具体我没看明白你说的。总可以接到一点分吧。我是沙发啊。
procedure DBctrlgrid1keypress(sender:Tobject) ; begin if key=#13 then begin Adoquery.Insert; .... AdoQuery.Post; end; end;
我用的append貌似不好使- -
而且我在adoquery的beforeinsert 事件里面写的这段新增记录 为什么它就报错。
beforeinsert里面写新增记录的代码, 控制不好就容易发生死循环的,因为会不断的新增...除非你作一个标记可以这样,sbool是全局变量:{keypress事件:}if key=#13 then begin sbool:=true; Adoquery.Insert; end;{beforeinsert事件:}if sbool then begin {字段赋值} adoquery.post; sbool :=False; {如果想新增后,处于编辑的状态,可以加一句adoquery.edit;} end;
第一次用这个Ctrlgird,请问如何新增记录?
我在adoquery的beforeinsert 事件里面写可以嘛?
procedure DBctrlgrid1keypress(sender:Tobject) ;
begin
if key=#13 then
begin
//复制啥啥的给啥啥,做你想做的。
end;
end;具体我没看明白你说的。总可以接到一点分吧。我是沙发啊。
begin
if key=#13 then
begin
Adoquery.Insert;
....
AdoQuery.Post;
end;
end;
我用的append貌似不好使- -
为什么它就报错。
beforeinsert里面写新增记录的代码,
控制不好就容易发生死循环的,因为会不断的新增...除非你作一个标记可以这样,sbool是全局变量:{keypress事件:}if key=#13 then
begin
sbool:=true;
Adoquery.Insert;
end;{beforeinsert事件:}if sbool then
begin
{字段赋值}
adoquery.post;
sbool :=False;
{如果想新增后,处于编辑的状态,可以加一句adoquery.edit;}
end;