如何显示从dbgrid到编辑框的记录字段

Question

我已经建立了一个访问数据库并将其与ADOquery和Datasource连接。我已经建立了一个名为BagCost的表，该表的字段名称为bag size和{{1 }}。我已将cost附加到表单中，并将其与“ Bagcost”表链接。 DBgrid具有以下字段：

如何在运行时显示从dbgrid列到不同的Dbgrid的四项费用？

Answer 1

说明：

我希望我能正确理解你。您需要做的是从四个记录中的每一个读取数据。使用First和Next方法更改活动记录，使用Eof方法测试活动记录是否是数据集中的最后一条记录。 （对于大量记录，可以选择使用DisableControls和EnableControls方法来防止每次活动记录更改时数据感知控件都进行更新。

示例：

接下来是一个基本示例，该示例使用AfterOpen事件从查询的每个记录中读取字段值。

procedure TfrmMain.qryAfterOpen(DataSet: TDataSet);
begin
   DataSet.DisableControls;
   try
      DataSet.First;
      if not DataSet.Eof then Edit1.Text := DataSet.FieldByName('cost').AsString else Edit1.Text := 'Record not found';
      DataSet.Next;
      if not DataSet.Eof then Edit2.Text := DataSet.FieldByName('cost').AsString else Edit2.Text := 'Record not found';
      DataSet.Next;
      if not DataSet.Eof then Edit3.Text := DataSet.FieldByName('cost').AsString else Edit3.Text := 'Record not found';
      DataSet.Next;
      if not DataSet.Eof then Edit4.Text := DataSet.FieldByName('cost').AsString else Edit4.Text := 'Record not found';
      DataSet.First;
   finally
      DataSet.EnableControls;
   end{try};
end;