Delphi上DBCtrlGrid中的行数

时间:2014-08-17 17:23:46

标签: delphi

当我使用DBCtrlGrid Delphi组件时,将RowCount属性设置为5,例如,它将始终在组件上显示5行,即使该表只有3条记录。我需要知道如何隐藏其他行并仅显示我的表有记录的行。

1 个答案:

答案 0 :(得分:2)

您可以使用连接到DBCtrlGrid的数据集的AfterScroll事件来设置其RowCount:

procedure TForm1.qApplsAfterScroll(DataSet: TDataSet);
begin
  DBCtrlGrid1.RowCount := DataSet.RecordCount;
end;

请注意,并非所有类型的Delphi数据集都为其RecordCounts返回有意义的数字。如果你没有,你需要做一些事情,比如在AfterScroll事件中运行“SELECT COUNT(*)...”查询,以获得设置RowCount所需的值。

顺便说一下,数据集'AfterScroll事件的主要用途是允许你做这样的事情,当数据集的光标移动时需要采取一些动作。