Форум: "Базы";
Текущий архив: 2003.11.24;
Скачать: [xml.tar.bz2];
Внизстранный глюк... Найти похожие ветки
← →
Элина (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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.015 c