Question

delphi里使用DBNavigator的加号键使DBEdit出现数字0

procedure TForm4.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
var
a :Integer;
begin
case button of
nbinsert :
begin
a:=0;
a:=table2.fieldbyname('namee').AsInteger;

end;
end;
end;
应该怎麼改??

Answer 1

不是在这里做的，
在dataset的afterinsert事件里写。

table2.fieldbyname('namee').AsInteger ：= 0 ；

追问

procedure TForm4.Table2AfterInsert(DataSet: TDataSet);
begin
table2.fieldbyname('namee').AsInteger := 0 ;
end;
是这样子改吗??改完然後呢??这样子DBEdit还是没有出现0
不好意思我是新手...

追答

dbedit、 数据导航条要关联到同一个datasource --> dataset