Question

我想从TDBGrid中检索选定行的值，我该怎么办？

procedure TForm7.Button2Click(Sender: TObject);
    var
      i, j: Integer;
      s: string;
    begin
      if DBGrid1.SelectedRows.Count>0 then
        with DBGrid1.DataSource.DataSet do
          for i:=0 to DBGrid1.SelectedRows.Count-1 do
          begin
            GotoBookmark(DBGrid1.SelectedRows.Items[i]);
            for j := 0 to FieldCount-1 do
            begin
              if (j>0) then s:=s+', ';
              s := s + FindField(Fields.Fields[j].FieldName).AsString;
            end;
            Listbox1.Items.Add(s);
            s:= '';
          end;
    end;

Answer 1

以下代码修复了您的一些问题。

主要问题是您没有正确初始化s，而且您获取所选行字段的方式存在缺陷。

对DataSet.Disable/EnableControls和ListBox1.Items.BeginUpdate/EndUpdate的调用是为了加快这一过程。

另外，避免像瘟疫这样的with构造。正如您所看到的，我使用本地DataSet变量代替了最少的额外输入，并避免了使用with时可能出现的各种意外问题。

procedure TForm1.GetSelected;
var
  i,
  J : Integer;
  s : String;
  DataSet : TDataSet;
begin
  if DBGrid1.SelectedRows.Count>0 then begin
    DataSet := DBGrid1.DataSource.DataSet;
   //  with DBGrid1.DataSource.DataSet do
   try
     ListBox1.Items.BeginUpdate;
     DataSet.DisableControls;
     for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        DataSet.GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
        s := '';
        for j := 0 to DataSet.FieldCount - 1 do
        begin
          if (j>0) then s:=s+', ';
          s := s + DataSet.Fields[j].AsString;
          //s := s + FindField(Fields.Fields[j].FieldName).AsString;
        end;
        Listbox1.Items.Add(s);
        //s:= '';
      end;
    finally
      DataSet.EnableControls;
      ListBox1.Items.EndUpdate;
    end;
  end;
end;

**更新：**

您可以将当前网格行设置为此选择

DBGrid1.SelectedRows.CurrentRowSelected := True;

更新＃2

网格的选定行存储在名为TBookmarkList的{{1}}中。要清除当前选择，您只需调用其SelectedRow方法，如下所示：

Clear

同样，如果要清除ListBox，只需调用其procedure TForm1.btnClearSelectedClick(Sender: TObject); begin DBGrid1.SelectedRows.Clear; end;方法，如：

Clear

如果您无法使我的代码生效，请尝试以下操作：

在对象检查器中，将DBGrid选项属性procedure TForm1.btnClearListBoxClick(Sender: TObject); begin ListBox1.Clear; end;设置为True。
在表单上的dgMultiSelect处理程序调用{{1}}中放置一个按钮。

编译并运行。单击网格中的一行，然后单击按钮。什么都没发生。原因是单击该按钮会使焦点远离DBGrid，因此就其而言，没有选择任何行。然后尝试第3步。

再次运行该应用。这次按住 Ctrl 键，同时单击网格然后单击按钮。这次所选行出现在ListBox中。在 Ctrl 按钮仍然按下的情况下，单击网格中的另一行，然后单击按钮。这次，两行都被添加到ListBox。

Answer 2

如果您需要查找如何在DBGRID中获取选定行的数据，我有提示。我使用DBGRID.SelectedField来获取所选字段并转换要通过DB_GRID.SelectedField.DataSet.Bookmark选择的字段并使用DATASET.GOTOBOOKMART转到DBGRID中的选定记录字段DB_DATA.DataSet.GotoBookmark（DB_GRID.SelectedField.DataSet.Bookmark）;

Answer 3

当您知道列号时，只需一个行调用即可检索值。系统会自动从网格列表中的当前行或最后单击或双击的行返回值。

var colidx : integer; ss : string;

..

ss := DBGrid1.Fields[colidx].AsString;

Delphi TDBGrid选择了行获取值

3 个答案: