3

我想从选定行的 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;
4

4 回答 4

8

下面的代码解决了您的一些问题。

主要问题是您没有正确初始化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命名的SelectedRow. 要清除当前选择，您需要做的就是调用它的Clear方法，如下所示：

procedure TForm1.btnClearSelectedClick(Sender: TObject);
begin
  DBGrid1.SelectedRows.Clear;
end;

同样，如果要清除 ListBox，只需调用它的Clear方法，如下所示：

procedure TForm1.btnClearListBoxClick(Sender: TObject);
begin
  ListBox1.Clear;
end;

如果您无法让我的代码正常工作，请尝试以下操作：

  1. 在对象检查器中，将 DBGrid Options 属性设置dgMultiSelect为 True。

  2. 在您的表单及其OnClick处理程序调用中放置一个按钮GetSelected。

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

  1. 再次运行应用程序。这次按住Ctrl键，同时单击网格，然后单击按钮。这次选定的行出现在 ListBox 中。在Ctrl按钮仍然向下的情况下，单击网格中的另一行，然后单击按钮。这一次，两行都添加到 ListBox。
于 2017-01-21T12:09:06.040 回答
0

这是我检索密钥的方法

procedure TfrmArticle.Button2Click(Sender: TObject);

开始操作：='M'；

with frmajtArticlee do
  begin
    Edit1.text:=dm.ADOQueryArticle.fieldbyname('ID_prod').Value;
    Edit2.text:=dm.ADOQueryArticle.fieldbyname('ref_art').Value;
    Edit3.text:=dm.ADOQueryArticle.fieldbyname('code_barre').Value;
    Edit4.text:=dm.ADOQueryArticle.fieldbyname('marque').asstring;
    Edit5.text:=dm.ADOQueryArticle.fieldbyname('qts_art').Value;
    Edit6.text:=dm.ADOQueryArticle.fieldbyname('designation').asstring;
    Edit7.text:=dm.ADOQueryArticle.fieldbyname('prix_achats_ht').Value;
    Edit8.text:=dm.ADOQueryArticle.fieldbyname('prix_vente_faciliter').Value;
    Edit9.text:=dm.ADOQueryArticle.fieldbyname('prix_vente_cache').Value;
    val_mod:=dm.ADOQueryArticle.fieldbyname('ID_prod').asstring;

val_mod:string "公开声明"

于 2021-09-13T13:57:00.643 回答
0

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

var colidx : integer; ss : string;

..

ss := DBGrid1.Fields[colidx].AsString;
于 2020-03-23T15:08:13.410 回答
-1

如果您需要了解如何获取 DBGRID 中选定行的数据，我有提示。我使用 DBGRID.SelectedField 来获取选定的字段并将要选择的字段转换为 DB_GRID.SelectedField.DataSet.Bookmark 并使用 DATASET.GOTOBOOKMART 转到 DBGRID DB_DATA.DataSet.GotoBookmark 中的选定记录字段（DB_GRID.SelectedField .DataSet.Bookmark);

于 2020-03-13T12:56:46.980 回答