|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#16
15.10.2012, 10:11
|
|||
|
|||
Вставил код, ругается на вот эту строчку.
Код:
RangeE: Excel2000.Range; |
|
#17
15.10.2012, 11:28
|
||||
|
||||
|
Цитата:
Или если ты вместо модуля Excel2000 используешь модуль ExcelXP, то обрати внимание, что в нём Range заменили на ExcelRange, видимо чтобы не было путаницы с другим Range из модуля Word2000/WordXP. |
|
#18
15.10.2012, 11:36
|
|||
|
|||
|
в uses все добавлено. А если ворд 10?
|
|
#20
15.10.2012, 12:06
|
|||
|
|||
|
все ошибка пропала, но теперь тут ругается
Код:
RangeE.Value:=Query1.Fields[i].DisplayLabel; Прошу прощения за свое нубство я мало что понимаю пока в БД Последний раз редактировалось Andrej-zhe, 15.10.2012 в 12:16. |
|
#21
15.10.2012, 13:35
|
||||
|
||||
|
Цитата:
|
|
#22
15.10.2012, 14:21
|
|||
|
|||
|
ну вот что пишет
[DCC Error] Unit1.pas(55): E2029 '[' expected but ':=' found [DCC Error] Unit1.pas(55): E2010 Incompatible types: 'Procedure' and 'string' [DCC Error] Unit1.pas(61): E2010 Incompatible types: 'AnsiString' and 'TBytes' |
|
#23
15.10.2012, 15:01
|
||||
|
||||
|
Цитата:
|
| Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Andrej-zhe (15.10.2012)
| ||
|
#24
15.10.2012, 16:17
|
|||
|
|||
|
Использую Value2 роде все работает только пришлось закоментировать
Код:
//Bookmark := Query1.Bookmark; так как не нашел как исправить то, что он ругается на нее. И вот еще какой момент. Что сделать чтобы в некоторых полях впереди не обрезались 0. |
|
#25
15.10.2012, 17:15
|
||||
|
||||
|
Цитата:
Там в принципе можно вместо закладки сохранять номер текущей записи (aDataSet.RecNo), а в конце восстанавливать. А можно и ничего не сохранять и не восстанавливать, тогда после экспорта текущей записью окажется последняя запись, а не та которая была до экспорта. Цитата:
Код:
RangeE.NumberFormat := '@'; |
|
#26
18.10.2012, 11:12
|
|||
|
|||
|
Подскажите еще вот такой момент.
Удаляя все строки в файле в который выводится информация перед выходом из программы Код:
tblSbor.Close; tblSbor.EmptyTable; tblSbor.Open; Последний раз редактировалось Andrej-zhe, 18.10.2012 в 11:16. |
|
#27
18.10.2012, 11:17
|
||||
|
||||
|
Цитата:
Попробуй после этого кода прочитать количество записей в таблице: Код:
ShowMessage('В таблице осталось записей: ' + IntToStr(tblSbor.RecordCount)); |
|
#28
18.10.2012, 11:29
|
|||
|
|||
|
да 0 записей, а как тогда поступить. Ситуация следующая.
когда я вывожу информацию в dbgrid то при завершении программы эти данные сохраняются в sbor.dbf. При повторном запуске программы и выборе какой либо информации, эта информация дописывается в sbor.dbf. Таким образом пользователь может получить через пол года файл БД размером в несколько Гб. Я делаю удаление всех записей после завершения программы. Но при запуске с очищенным файлом у меня вывод информации отказывается делаться. Код:
Query1.Open;
if Query1.RecordCount>0 //отсюда перепрыгивает
then
begin
tblSbor.TableName:='sbor.dbf';
tblSbor.Open;
while not Query1.Eof do
begin
tblSbor.Insert;
tblSbor.FieldByName('nist').Value:=Query1.FieldByName('nist').Value;
tblSbor.FieldByName('kodn').Value:=Query1.FieldByName('kodn').Value;
tblSbor.FieldByName('name').Value:=Query1.FieldByName('name').Value;
tblSbor.FieldByName('dpo').Value:=Query1.FieldByName('dpo').Value;
tblSbor.FieldByName('otd').Value:=Query1.FieldByName('otd').Value;
tblSbor.FieldByName('fio').Value:=Query1.FieldByName('fio').Value;
tblSbor.FieldByName('date_wz').Value:=Query1.FieldByName('date_wz').Value;
tblSbor.FieldByName('dp').Value:=Query1.FieldByName('dp').Value;
tblSbor.FieldByName('dw').Value:=Query1.FieldByName('dw').Value;
tblSbor.Post;
Query1.Next;
end;
end
else
ShowMessage('Укажите период, за который необходимо показать данные по операциям'); //сюдаусловие не выполняется |
|
#29
18.10.2012, 11:42
|
||||
|
||||
|
Цитата:
Цитата:
|
|
#30
18.10.2012, 11:46
|
|||
|
|||
|
Так хорошо а что надо придпринять чтобы данные из файла sbor были удалены, а условие
Код:
if Query1.RecordCount>0 |
Линейный вид
