![]() |
|
|
#11
|
|||
|
|||
|
То ли Midas кривой, то ли ClientDataSet
Вот так все работает: Код:
procedure TTypeNumber.Button1Click(Sender: TObject);
var i:integer;
begin
i:=2;
ClientDataSet1.Locate('Cod',i,[]);
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('Flag').Value:=True;
ClientDataSet1.First;
end;
end;А Код:
ClientDataSet1.FieldByName('Flag').NewValue:=True; |