![]() |
#2 |
NavAx
|
Обидно, что ответа так и нет.
На самом деле задача следующая : есть формочка, на которую выведен список накладных, нужно выводить суммарный вес тех накладных, которые юзер помечает (выделяет), в отдельное окошко. Решение я вроде нашел, но через задницу, простите. Повесил обсчет этого дела на OnTimer(). Т.е. написал туда следующее : MyRec - переменная того же типа, что и Rec формы MyRec.RESET; MyRec.COPYFILTERS(Rec); CurrForm.SETSELECTIONFILTER(MyRec); MyRec.MARKEDONLY(TRUE); IF MyRec.FIND('-') THEN BEGIN TotalShipmentWeight := 0; REPEAT TotalShipmentWeight += MyRec."Gross Weight"; UNTIL MyRec.NEXT = 0; END ELSE TotalShipmentWeight := 0; MyRec.CLEARMARKS; CurrForm.TotalWeightIndicator.UPDATE; В итоге в контроле TotalWeightIndicator вес честно отображается, но все-таки мне очень не нравится постоянно обсчитывать это дело через таймер. Господа, может быть, кто-нибудь подскажет более приемлимый вариант? |
|