DBGrideh1.RowDetailPanel.Active :=True;
设计界面出现一个面板
在这个面板中添加一个PageControl控件里面可以再添加一个Grid表格
可以事件 OnRowDetailPanelShow 中添加如果代码控制
procedure TForm1.DBGridEh1RowDetailPanelShow(Sender: TCustomDBGridEh;
var CanShow: Boolean);
begin
if PageControl1.ActivePageIndex = 0 then
Sender.RowDetailPanel.ActiveControl :=DBGridEh1 //DBGridEh2
else
Sender.RowDetailPanel.ActiveControl :=DBGridEh1; //DBEditEh1;
end;