这样就行了。请看 if self.ADOTable1.CanModify then begin self.ADOTable1.Edit; self.ADOTable1.Insert; self.ADOTable1.fieldbyname('产品名称').asstring:='1'; self.ADOTable1.Post; end else begin showmessage('无法写数据库'); end;end;
With AdoDataSet1 Do Begin If CanModify Then Begin Insert ; //Or Edit; FieldByName('标题').AsString:='1'; Post; End Else Showmessage('无法写数据库'); End;ADO已成为趋势和流行,BDE早已成为昨日黄花,我早忘了BDE怎么用了,哎,前尘往事如云烟
begin
self.ADOTable1.Edit;
self.ADOTable1.Insert;
self.ADOTable1.fieldbyname('产品名称').asstring:='1';
self.ADOTable1.Post;
end else
begin
showmessage('无法写数据库');
end;end;
有可能是你的该字段的值不在被lookup的表的限制范围之内.
看一下相关的表里你的赋值是否不存在或超出范围
If CanModify Then Begin
Insert ; //Or Edit;
FieldByName('标题').AsString:='1';
Post;
End Else Showmessage('无法写数据库');
End;ADO已成为趋势和流行,BDE早已成为昨日黄花,我早忘了BDE怎么用了,哎,前尘往事如云烟