如何创建按钮以添加DBGrid Delphi 7中的每一行

Question

如何在delphi 7上创建按钮以对dbgrid delphi中的所有数据执行加法运算。 例如我有在dbgrid中显示3列的数据库表，

[CODE_NUMBER][ITEMS NAME][STOCK][NEW_STOCK]
 001          Rackets       1         5
 002          Sports Shoes  2         5
 003          Golf Hat      3         5 
 ... etc

单击时如何创建按钮，然后dbgrid开始添加

[STOCK] = [STOCK]+[NEW_STOCK]

在第一行计数之后，移至第二行进行相同的加法，依此类推，直到dbgrid中的记录结束，然后删除[NEW_STOCK]列中的数据。 我已经尝试过

if dbgrid1.fieldbyname('Code').value <> 0 then
begin
dbgrid1.fieldbyname('Stock').value := dbgrid1.fieldbyname('Stock').value + dbgrid1.fieldbyname('NEW_STOCK').value;
dbgrid1.next;

但只影响第一行，dbgrid的下几行什么都没有发生

Answer 1

要更改dbgrid中的数据，应使用其对应的数据集，即：

with dbgrid1.DataSource.DataSet do begin
  Edit;
  Fields.fieldbyname('Stock').value := Fields.fieldbyname('Stock').value + Fields.fieldbyname('NEW_STOCK').value;
  Post;
  Next;
end;

Answer 2

更有效的方法是在数据库上执行此操作

发送到数据库的更新语句非常简单：

update yourtable set Stock = Stock + newStockValue where Code <> 0

然后只需刷新您的查询或表组件。