Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c