关于更新 DBGrid 的问题,老提示 can't modify a read-only dataset
我用 Delphi5+SQL2000,连接一个表,前台用 DBGrid 显示数据,我想实现的功能是:单击一个按钮,让其中的字段的值变化,不知道哪里出现错误,请给予帮助,部分代码:
procedure TForm1.Button3Click(Sender: TObject);
begin
if (DataSource1.DataSet.Active) then
begin
with DataSource1.DataSet do
begin
Filter:='sm='''+edtSM.Text+''' and dj='''+edtDJ.Text+''' and cbs='''+edtCBS.Text+'''';
Filtered:=True;
if RecordCount<>0 then
begin
Edit;
FieldByName('sjsl').Value:=edtSJSL.Text;
FieldByName('kcsl').Value:=edtKCSL.Text;
Post;
end;
end;
end;
end;