莱鸟求救！如何能够点击DBGRID后将该行某一字段添加到listbox中？？急等！！！

Question

全部在一个form中，就是想把dbgrid中一字段数据选中，该数据自动添加到listbox中，再选dbgrid另一数据则又在listbox中又加一行，最后点button，listbox中所有数据能加出结果，显示出来。
其实不难，无奈自己太差，该问题已经拖了一周了，盼有人给出全部代码，一旦能用马上送分加谢！！

Answer 1

listbox1.items.append(dbgrid1.datasource.dataset.FieldByName(dbgrid1.Columns[dbgrid1.SelectedIndex].FieldName).AsString);

Answer 2

呵
楼上的经典
你需要的其实就是在DBGrid的onclick中把数据集的当前记录添加到listbox中

Answer 3

加法可以这样！
procedure TForm1.Button1Click(Sender: TObject);
var i,sum:integer;
begin
    sum:=0;
    for i:=0 to listbox1.Count-1 do
    begin
        try
        sum:=sum+strtoint(listbox1.Items[i]);
        except
        end;
    end;
    caption:=inttostr(sum);
end;

Answer 4

无聊君多谢！你的代码完全无误，不过，我描绘的错了一点，我在dbgrid里已经
listbox1.Items.Text:=inttostr(strtoint(db3.text)-strtoint(db2.text))
就是想把某一字段用另几个字段加减后的结果，添加到listbox中，能否盼答！
分已加！！

Answer 5

listbox1.items.append(floattostr(dbgrid1.datasource.dataset.fieldbyname('field1').asfloat+dbgrid1.datasource.dataset.fieldbyname('field2').asfloat+dbgrid1.datasource.dataset.fieldbyname('field3').asfloat));这样就可以了！