| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

странный глюк... [D3, Paradox]

Элина ©   (2003-11-05 13:44:00) 

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

---

DenK_vrtz   (2003-11-05 14:11:00) [1]

:)

---

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

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

---

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

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

---

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

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

---

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

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;

---

DenK_vrtz   (2003-11-05 13:53:00) [6]

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

---

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

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

---

bushmen   (2003-11-05 13:47:00) [8]

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

---

Наверх