dbf_usr Posted September 15, 2019 Share Posted September 15, 2019 DBGreed - как изменять группировку строк вовремя выполнения программы? И как пересчитывать итоги? Quote Link to comment Share on other sites More sharing options...
Sherzod Posted September 16, 2019 Share Posted September 16, 2019 Здравствуйте, 20 hours ago, dbf_usr said: DBGreed - как изменять группировку строк вовремя выполнения программы? А Вы не пробовали использовать свойство FieldName? UniDBGrid1.Grouping.FieldName := 'xxFieldName'; 20 hours ago, dbf_usr said: И как пересчитывать итоги? Можете уточнить? Quote Link to comment Share on other sites More sharing options...
dbf_usr Posted September 16, 2019 Author Share Posted September 16, 2019 8 hours ago, Sherzod said: Здравствуйте, А Вы не пробовали использовать свойство FieldName? UniDBGrid1.Grouping.FieldName := 'xxFieldName'; Можете уточнить? FieldName - пробовал, но это не привело к результату. Ничего не изменилось. DBGreed.Repaint и DBGreed.Refresh не срабатывает. После изменения группировки нужно пересчитывать итоги Quote Link to comment Share on other sites More sharing options...
Sherzod Posted September 16, 2019 Share Posted September 16, 2019 3 hours ago, dbf_usr said: FieldName - пробовал, но это не привело к результату. Ничего не изменилось. DBGreed.Repaint и DBGreed.Refresh не срабатывает. Какую сборку используете? Можете привести код..? Quote Link to comment Share on other sites More sharing options...
dbf_usr Posted September 18, 2019 Author Share Posted September 18, 2019 Сборка: 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; Quote Link to comment Share on other sites More sharing options...
Sherzod Posted September 18, 2019 Share Posted September 18, 2019 Я не смог воспроизвести... Можете ли Вы обновиться до последней сборки и проверить? Quote Link to comment Share on other sites More sharing options...
dbf_usr Posted September 19, 2019 Author Share Posted September 19, 2019 могу - отпишусь по результатам. Quote Link to comment Share on other sites More sharing options...
Sherzod Posted September 19, 2019 Share Posted September 19, 2019 3 minutes ago, dbf_usr said: могу - отпишусь по результатам. OK, Спасибо. Quote Link to comment Share on other sites More sharing options...
dbf_usr Posted September 24, 2019 Author Share Posted September 24, 2019 Не работает группировка! Версия: 1.90.0.1509 Quote Link to comment Share on other sites More sharing options...
Sherzod Posted September 24, 2019 Share Posted September 24, 2019 1 hour ago, dbf_usr said: Не работает группировка! Версия: 1.90.0.1509 Пожалуйста, прикрепите тестовый случай. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.