AXForum  
Вернуться   AXForum > Microsoft Dynamics AX > DAX: Программирование
DAX
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 11.02.2008, 17:39   #10  
kashperuk is offline
kashperuk
Участник
Аватар для kashperuk
MCBMSS
Соотечественники
Сотрудники Microsoft Dynamics
Лучший по профессии 2017
Лучший по профессии 2015
Лучший по профессии 2014
Лучший по профессии 2011
Лучший по профессии 2009
 
4,361 / 2084 (78) +++++++++
Регистрация: 30.05.2004
Адрес: Atlanta, GA, USA
Когда-то написал вот такой код - пытался учесть выделение "внутри" по вертикали/горизонтали. Вроде работает

X++:
void setRangeBorder(BookMark _bookMark,
                    int _lineStyle = 1, // xlContinuous
                    int _lineWeight = 1, // xlContinuous
                    boolean _inside = False, 
                    int _workSheetNumber = 1,
                    container _lines2Draw = [true, true, true, true])
{
    COM         comRange, comBorders, comBorder, comWorkSheet;
    TextBuffer  textBuffer;
    int         fromRow;
    int         toRow;
    ;
    try
    {
        comWorkSheet = this.getWorkSheet(_workSheetNumber);
        comRange     = comWorkSheet.Range(_bookMark);
        if (comRange)
        {
            comBorders = comRange.Borders();
 
            if (conPeek(_lines2Draw, 1))
            {
                comBorder = comBorders.Item(7); // left
                comBorder.Weight(_lineWeight);
                comBorder.LineStyle(_lineStyle);
            }
            if (conPeek(_lines2Draw, 2))
            {
                comBorder = comBorders.Item(8); // top
                comBorder.Weight(_lineWeight);
                comBorder.LineStyle(_lineStyle);
            }
            if (conPeek(_lines2Draw, 3))
            {
                comBorder = comBorders.Item(9); // bottom
                comBorder.Weight(_lineWeight);
                comBorder.LineStyle(_lineStyle);
            }
            if (conPeek(_lines2Draw, 4))
            {
                comBorder = comBorders.Item(10); // right
                comBorder.Weight(_lineWeight);
                comBorder.LineStyle(_lineStyle);
            }
 
            if (_inside)
            {
                textBuffer = new TextBuffer();
                textBuffer.setText(_bookMark);
 
                textBuffer.find('\\:');
                if (textBuffer.matchPos() > 0 && textBuffer.matchLen() == 1)
                {
                    textBuffer.find(@":a+");
                    fromRow = ZCH_ComExcelExportADO::colName2Num(textBuffer.subStr(textBuffer.matchPos(), textBuffer.matchLen()));
 
                    textBuffer.find(@":a+", textBuffer.matchPos() + textBuffer.matchLen());
                    toRow = ZCH_ComExcelExportADO::colName2Num(textBuffer.subStr(textBuffer.matchPos(), textBuffer.matchLen()));

                    if (fromRow < toRow) 
                    {
                        comBorder = comBorders.Item(11); // inside vertical
                        comBorder.Weight(_lineWeight);
                        comBorder.LineStyle(_lineStyle);
                    }
 
                    textBuffer.find(@":d+");
                    fromRow = str2int(textBuffer.subStr(textBuffer.matchPos(), textBuffer.matchLen()));
 
                    textBuffer.find(@":d+", textBuffer.matchPos() + textBuffer.matchLen());
                    toRow = str2int(textBuffer.subStr(textBuffer.matchPos(), textBuffer.matchLen()));

                    if (fromRow < toRow) 
                    {
                        comBorder = comBorders.Item(12); // inside horizontal
                        comBorder.Weight(_lineWeight);
                        comBorder.LineStyle(_lineStyle);
                    }
                }
            }
        }
    }
    catch (exception::Error)
    {
        this.throwError("Ошибка такая-то");
    }
}
Может кому-то пригодится
Теги
ax3.0, excel

 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
Исследование скорости экспорта данных из Axapta в Excel (коллективный эксперимент) Gustav DAX: База знаний и проекты 79 13.02.2014 13:18
gl00mie: Read Excel table via ADO Blog bot DAX Blogs 2 09.04.2010 08:32
[Excel] - Несколько версий Excel на машине клиента Андре DAX: Программирование 11 07.08.2007 13:45
Вызов Item() для коллекций Excel Владимир Максимов DAX: Программирование 15 17.08.2006 19:47
Форматирование Excel-документа из Axapta kostas DAX: Программирование 6 14.04.2004 14:52

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 07:32.