|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.02.2012, 21:56 | #1 |
Новичок
Джуниор
Регистрация: 22.02.2012
Сообщений: 2
|
Позиция в DBLookUpComboBox и экспорт в эксель
Ситуация такая: надо сделать что-то вроде расписания
сам "экспорт": Sheet.Cells[idn+1,gpi]:=predmet1.text; Sheet.Cells[idn+2,gpi]:=prepod1.text; что касается расположения дней все работает //if ComboBoxDen.Text='Понедельник' then idn:=1; //if ComboBoxDen.Text='Вторник' then idn:=11; //if ComboBoxDen.Text='Среда' then idn:=21; //if ComboBoxDen.Text='Четверг' then idn:=31; //if ComboBoxDen.Text='Пятница' then idn:=41; //if ComboBoxDen.Text='Суббота' then idn:=51; а вот тут уже проблемка возникает... в DBLookUpComboBox есть группы: КС-2, КС-1 и т.д. if group1.Text='КС-2' then gpi:=3; if group1.Text='КС-1' then gpi:=4; порядок групп идет из БД, т.е. если вначале добавить, например, СТ-1, то он будет заполнять ячейки уже СТ-1, а не КС-2.. т.е. нужно взять позицию из DBLookUpComboBox и указать с какой ячейки начинать.. попытался сделать так: if group1.Text='КС-2' then gpi:=strtoint(inttoStr(strToInt(ado table19.FieldBy Name('ID').AsString)+2)); т.е. выбранная позиция+2 (работает подобно if group1.Text='КС-2' then gpi:=3; ) надо что-то на подобии: if adotable19.FieldByName('ID').AsStri ng (или adotable19.Fields.Fields[1]) then gpi:=strtoint(inttoStr(strToInt(ado table19.FieldBy Name('ID').AsString)+2)); если пятая позиция то 5+2(7-й столбец) при постороении книги группы так же берутся из базы: gp:=3; ADOTable6.First; for gg:=0 to ADOTable6.RecordCount-1 do begin Sheet:=XLApp.Workbooks[1].WorkSheets['Расписание']; Sheet.Cells[1,gp]:=ADOTable6.Fields.Fields[1].AsString; Colum.Columns[gp].ColumnWidth:=20; Sheet.Cells[gp].HorizontalAlignment:=3; Sheet.Cells[gp].Borders.LineStyle:=-4119; Sheet.Cells[gp].Interior.Color:=rgb(230,230,230); Inc(gp); ADOTable6.Next; end; |
24.02.2012, 21:27 | #2 |
Новичок
Джуниор
Регистрация: 22.02.2012
Сообщений: 2
|
спасибо всем решил собственным моском
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Позиция | Bat{CMD}_Men | БД в Delphi | 5 | 16.10.2009 18:32 |
Эксель + Интернет ( экспорт данных) | ShamanK | Microsoft Office Excel | 1 | 16.10.2009 13:23 |
экспорт отчетов аксесс в эксель с полным форматированием | kate158 | Помощь студентам | 1 | 11.03.2009 17:52 |
Экспорт в эксель (использование формул) | sashaslam | Общие вопросы Delphi | 2 | 06.02.2009 12:21 |
Экспорт из Access в Excel, Экспорт из отчётов в таблицу Excel | Kissedbythegod | Microsoft Office Access | 1 | 31.05.2008 22:15 |