Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.24;
Скачать: CL | DM;

Вниз

странный глюк...   Найти похожие ветки 

 
Элина   (2003-11-05 13:44) [0]

выполняю Table1.Active := TRUE, а мне в ответ исключение "Dataset is not in edit or Insert mode"
или я такая тупая или Дельфин


 
bushmen ©   (2003-11-05 13:47) [1]

А поподробнее ?


 
Элина   (2003-11-05 13:52) [2]

if not Table.Active then
Table.Active := TRUE;
на этой строке Active = False соответственно пытаемся открыть таблицу и возникает исключение
"Dataset is not in edit or Insert mode"
Table.Open дает тот же результат


 
DenK_vrtz ©   (2003-11-05 13:53) [3]

Что висит на событиях таблицы?


 
Элина   (2003-11-05 13:55) [4]

procedure TForm1.Query1CalcFields(DataSet: TDataSet);
var i, temp: LongInt;
begin
with base do
if tbCardCounter_R.Value>=tbCardCounter.Value then
tbCardRun.Value := (tbCardCounter_R.Value- tbCardCounter.Value)
else
begin
//Надо определить разрядность спидометра
temp := tbCardCounter.Value;
i := 0;
While Temp>0 do
begin
temp := temp div 10;
inc (i);
end;
i := round(exp ((i)*ln(10)))+tbCardCounter_R.Value;
tbCardRun.Value := i-tbCardCounter.Value;
end;
Query1Norm_R.Value := Query1Norm.Value*(Query1Run.Value/100);//расход по норме
Query1Rem.Value := Query1Charged.Value+Query1Remainder.Value-Query1Fact.AsInteger;//Остаток
Query1Eco.Value := Query1Norm_R.Value-Query1Fact.Value;
end;


 
Элина   (2003-11-05 14:00) [5]

сразу поясняю последние 4 строки - это вычисляемые поля


 
Незнайка2003   (2003-11-05 14:02) [6]

Поможет отладчик


 
Элина   (2003-11-05 14:06) [7]

Получилось!!! DenK_vrtz © - спасибо тебе


 
DenK_vrtz ©   (2003-11-05 14:11) [8]

:)



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

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

Наверх




Память: 0.48 MB
Время: 0.055 c
14-79120
Fants
2003-11-01 13:57
2003.11.24
Проверка правописания


7-79206
Незнайко
2003-09-13 15:00
2003.11.24
Время копирования


1-78999
Леонид Федьков
2003-11-14 16:40
2003.11.24
DELPHI и MS Word


1-78972
nejest
2003-11-14 15:31
2003.11.24
Определение ширины символа заданного шрифта


3-78770
rFR
2003-11-05 01:56
2003.11.24
MS SQL7 ADO D7 unicode