如何实现在dbgrid中自动求和?
snf 2003-07-19 09:14:43 加入一个dbgrid 表格有字段
学生学号,学生姓名,语文,英语,总分
如何在你输入完学生学号,学生姓名,语文,英语之后总分自动添加语文和英语之和? 我开始是这么写的:
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
var
j,i,sco:integer;
begin
if dbgrid1.DataSource=cjsj.DataSource4 then
begin
i:=dbgrid1.FieldCount;
if i> 4 then
begin
for j:=0 to i-4 do
begin
sco:=sco+dbgrid1.Fields[j+2].AsInteger;
end;
dbgrid1.Fields[i].AsInteger:=sco;
end;
end; 是不是事件选错了??我应该怎么改??请高手指点!
end;