Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Плз помогите. Делаю отчет в word2000 (win98SE) все работает норма   Найти похожие ветки 

← →
SiJack   (2003-10-30 16:14) [0]

льно ставлю программу на winXP word2002 - заполняет половину отчета и пишет "Запрашиваемый номер семейства не обнаружен", причем происходит это при заполнении таблицы подскажите в чем может быть трабл?

---

← →
SiJack   (2003-10-30 16:17) [1]

Код
dm.ADOPosition.First;
while not dm.ADOPosition.eof do
begin
if (dm.ADOPositionPPosition.Value div (stend*10))=1 then
begin
// заполняем номера счетчиков
dm.WD.Content.Tables.Item(1).Cell(2,dm.ADOPositionPPosition.Value-stend*10).Range.Text:=dm.ADOPositionPNumber.Value; //
// заполняем доп тесты
if (dm.ADOPositionPSensitivity.Value<>0) and (dm.ADOTestPSensitivityCB.Value) then
begin
case dm.ADOPositionPSensitivity.Value of
1: s:="Есть";
2: s:="Нет";
end;
// заносим результаты
dm.WD.Content.Tables.Item(1).Cell(dm.ADOTestPoint.RecordCount+3,6+dm.ADOPositionPPosition.Value-stend*10).Range.Text:=s;
// данные теста
dm.WD.Content.Tables.Item(1).Cell(dm.ADOTestPoint.RecordCount+3,1).Range.Text:=IntToStr(dm.ADOTestPoint.RecordCount+1);
dm.WD.Content.Tables.Item(1).Cell(dm.ADOTestPoint.RecordCount+3,2).Range.Text:="ч";
dm.WD.Content.Tables.Item(1).Cell(dm.ADOTestPoint.RecordCount+3,3).Range.Text:=dm.ADOTestPSensitivityU.AsString;
dm.WD.Content.Tables.Item(1).Cell(dm.ADOTestPoint.RecordCount+3,4).Range.Text:=dm.ADOTestPSensitivityI.AsString;
dm.WD.Content.Tables.Item(1).Cell(dm.ADOTestPoint.RecordCount+3,5).Range.Text:="1";
dm.WD.Content.Tables.Item(1).Cell(dm.ADOTestPoint.RecordCount+3,6).Range.Text:=dm.ADOTestPSensitivityT.AsString+decimalS eparator+dm.ADOTestPSensitivityTSec.AsString;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.063 c