【结】如何实现DATAGRID多行统计**

gaihl

用if DataGrid.Items.Selected then 来判断当前行是否被选中

liubin

procedure TDOC_BILL.DataGridClick(Sender: TObject);
var
  i, j: Integer;
begin
  if DataGrid.SelectedCount > 0 then
    with DataGrid.DataSource.DataSet do
      for i := 0 to DataGrid.SelectedCount - 1 do
      begin
        if DataGrid.Items.Selected then
        begin
          j := j + FieldByName('F_JS').AsInteger;
          edit1.Text := IntToStr(j);
        end;
      end;

end;

还是不对，首先我是在表现形式上的GRID单击事件写的，其次这个变现形式的数据集是从表（主表已经打开，觉得和这个没关系）版本2401

gaihl

直接从DataGrid中取数据试下
  nSum := 0;
  for i := 0 to DataGrid.Count - 1 do
    if DataGrid.Items.Selected then
    begin
      nSum := nSum + DataGrid.ColumnDefs[2].Field.AsInteger;
    end;

liubin

还是不对，点中一条记录数值对，多选数值就不对，我现在怀疑能不能实现啊，您测试下好不好

gaihl

13楼的代码的确有问题。 还是用10楼的代码吧
  nSum := 0;
    if DataGrid.SelectedCount > 0 then
      with DataGrid.DataSource.DataSet do
        for i := 0 to DataGrid.SelectedCount - 1 do
        begin
          Bookmark := DataGrid.SelectedRows;
          nSum := nSum + Fields[2].AsInteger;
        end;

liubin

BookMark是什么类型的？ 干什么用？

gaihl

DataGrid.DataSource.DataSet.BookMark  是书签的意思，用于标记数据集被选中的记录

property Bookmark: string;

liubin

使用13楼的代码，出现个问题  例如有3条记录
1：13
2：33
3：44
选中1条数值正确，如果选中2条就错误，例如选中1，2条，数值总是最后选中那条数值的2倍，既，先选第一条在，多选第2条，统计的就是66

gaihl

用15楼的代码

liubin

OK，结贴