[Electronic_Arts]

Почему не получается ставить первую вертикальную линию


Вроде по человечески написано

Код:

Sheet.Range[Sheet.Cells[4,1],Sheet.Cells[index-1, 10]].Borders[11].LineStyle := 1;

Поставить вертикальную линию - начиная с 4 строки 1 колонны до последней строки 10 колонки

почему тогда первая не рисуется??

[lmikle]

Ну, вариантов много.
Либо надо с 0, либо просто на превью ее не видно - распечатай и проверь, либо какие-то компоненты ее закрывают - вот она в итоге и не печатается.

[Electronic_Arts]

C 0 не получится так как счет колонок начинается с 1 - 0 выдает ощибку в Excel-е

А вот вовремя печати его тоже нету - дело в том что потом в Excel -е эту линию можно ставить в ручную но почему не получается программно даже не знаю

Есть еще вариантов?

[Страдалецъ]

Обшибочка у вас. Вы неправилный параметр передаете в Borders. Вот такие там константы:

Код:

  xlEdgeLeft = 7;
  xlEdgeTop = 8;
  xlEdgeBottom = 9;
  xlEdgeRight = 10;

В вашем случае xlEdgeLeft = 7

[Electronic_Arts]

7 ставит только на первую - а как с остальными -
выше указанном коде - она ставит на все колонки кроме первой

[Electronic_Arts]

Да да да - только что посмотрел в Макросе - ч не обратил внимание на то что 11 значение INSIDE
Все все спасибо огромное

и еще одна тупость - как сделать чтоб DBDateTimePicker сразу добавлял свое значение в базу
я сделал так чтоб при нажатии на кнопку Добавить

Код:

DBDateTimePicker.Date:=date();

но проблема в том что если теперь все равно если самому не выбрать дату
то она не добавиться в базу

можно такое сделать?

[Electronic_Arts]

Да можно проблема решена!

Спасибо !!! всем кто не спит ..всем спокойной ночи!! Ура решились все проблемы

[Страдалецъ]

В общем, как я понял вам на самом деле нужно вот это:

Код:

Query1.FieldByName('UserDate').DefaultExpression := DateToStr(Now);

Т.е. в случае добавления новой записи при незаданном значении UserDate будет автоматом проставлена текущая дата.