Список форумов Акцент Акцент
официальный форум разработчика программы Акцент
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Вопрос по отображению чисел

 
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 7.0
Предыдущая тема :: Следующая тема  
Автор Сообщение
Руслан



Зарегистрирован: 20.06.2014
Сообщения: 40

СообщениеДобавлено: Пт Дек 21, 2018 9:53 am    Заголовок сообщения: Вопрос по отображению чисел Ответить с цитатой

Добрый день. Возник вопрос по отображению чисел в столбце. У меня на форме есть компонент FrmScrollGrid. В одном столбце должны быть числа. Но точность этих чисел может быть до 4 (например) цифр после запятой. А могут быть и целые числа.
Если я укажу формат #.0000, то целое число отобразится с десятичными нулями (например 1.0000). Если число с двумя числами после запятой, то дописываются 2 нуля в конце (например 1.2500). Если я вообще формат не укажу, то программа округляет числа до целого.
Можно ли что-нибуть придумать, чтобы в ячейках не отображались финишные десятичные нули (т.е. чтобы отображались например: 1, 1.25, 1,2568)?
пс. Акцент 6,0
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Юров Ю.С.



Зарегистрирован: 11.03.2005
Сообщения: 379
Откуда: Павлоград

СообщениеДобавлено: Чт Янв 03, 2019 12:51 pm    Заголовок сообщения: Ответить с цитатой

Поставь текстовый формат столбца с выравниванием по правому краю - незначащие нули после запятой отображаться не будут. Чтобы программа формы не вылетела по ошибке при вводе в ячейку нечисловых данных - ставь текстовый формат только перед печатью, в Form_AfterPrint возвращай назад числовой.
Вобще в подобных и многих других случаях Class помогает.
Столбец текстовый, источник данных "crq.RowQty(tbs.BindRow)"
Код:
Dim crq : Set crq=New ClassRowQty
Class ClassRowQty
  Public Property Let RowQty(row,qu)
    If Not IsNumeric(qu) Then Exit Property
    op.Trans(1,row).Qty=qu
  End Property
  Public Default Property Get RowQty(row)
    If row>op.TransList(1).Rows Then Exit Property
    RowQty=CStr(op.Trans(1,row).Qty)
  End Property
End Class
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 7.0 Часовой пояс: GMT + 2
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group