因为只能修改一条如果要修改多条可有循环:
FOR I:=0 TO DM。KFYD_TABLE.RECORDCOUNT-1 DO
BEGIN
dm.kfyd_table.Edit;
dm.kfyd_table.FieldByName('ffbz').AsInteger := 1;
///dm.kfyd_table.Post;
DM.KFYD_TABLE.NEXT;
END;
或者用SQL语句写也可以的
FOR I:=0 TO DM。KFYD_TABLE.RECORDCOUNT-1 DO
BEGIN
dm.kfyd_table.Edit;
dm.kfyd_table.FieldByName('ffbz').AsInteger := 1;
///dm.kfyd_table.Post;
DM.KFYD_TABLE.NEXT;
END;
或者用SQL语句写也可以的
While Not dm.kfyd_table.Eof Do
Begin
dm.kfyd_table.FieldByName('ffbz').AsInteger := 1;
dm.kfyd_table.Next;
End;
dm.kfyd_table.Post;
用导航条连一个表,试一下就知道了