Jump to content

DBGreed - как изменять группировку вовремя выполнения программы


dbf_usr

Recommended Posts

Здравствуйте,

20 hours ago, dbf_usr said:

DBGreed - как изменять группировку строк вовремя выполнения программы?

А Вы не пробовали использовать свойство FieldName?

UniDBGrid1.Grouping.FieldName := 'xxFieldName';

 

20 hours ago, dbf_usr said:

 И как пересчитывать итоги?

Можете уточнить?

Link to comment
Share on other sites

8 hours ago, Sherzod said:

Здравствуйте,

А Вы не пробовали использовать свойство FieldName?


UniDBGrid1.Grouping.FieldName := 'xxFieldName';

 

Можете уточнить?

FieldName - пробовал, но это не привело к результату. Ничего не изменилось. DBGreed.Repaint и DBGreed.Refresh  не срабатывает.

После изменения группировки нужно пересчитывать итоги

Link to comment
Share on other sites

3 hours ago, dbf_usr said:

FieldName - пробовал, но это не привело к результату. Ничего не изменилось. DBGreed.Repaint и DBGreed.Refresh  не срабатывает.

Какую сборку используете? Можете привести код..? 

Link to comment
Share on other sites

Сборка: 1.90.0.1505

код:

 

procedure TUniOperations.UniComboBox1Change(Sender: TObject);
begin
// Group by Day  Group by Firm  Group by Partner  Group by Teg
  if UniComboBox1.ItemIndex=0 then UniDBGrid1.Refresh;   //showmessage('Group by Day');
  if UniComboBox1.ItemIndex=1 then UniDBGrid1.Refresh;   //showmessage('Group by Firm');
end;

procedure TUniOperations.UniDBGrid1ColumnSort(Column: TUniDBGridColumn;
  Direction: Boolean);
begin
 if UniComboBox1.ItemIndex=0 then
 begin
   UniDBGrid1.Grouping.FieldName:= 'Period';
   if SameText(Column.FieldName, 'Period') then
       UniMainModule.PgOperations.IndexFieldNames := 'Period';
 end;
 if UniComboBox1.ItemIndex=1 then
 begin
   if SameText(Column.FieldName, 'Firm') then
       UniDBGrid1.Grouping.FieldName:= 'Firm';
       UniMainModule.PgOperations.IndexFieldNames := 'Firm';
 end;
end;

 

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...