Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
ВнизОшибка Invalid Variant Operation ! Найти похожие ветки
← →
sudiv (2002-03-26 13:36) [2]Да, большое спасибо за ответ, но он неверен.
Как я писал, все контролы (и эдиты) заполнены корректно => д.б. корректны и их преобразования.
Проблема оказывается несколько в другом:
В таблице есть вычисляемые поля, они соответственно, вычисляются
в OnCalcFields, т.е.
procedure TForm1.TableCalcFields(DataSet: TDataSet);
begin
end;
Прога была написана в D4, нормально компилилась и работала в D5 c таким OnCalc"ом
procedure TForm1.TableCalcFields(DataSet: TDataSet);
begin
DataSet["SUMM"] := DataSet["COUNT"] * DataSet["PRICE"]
end;
а вот в D6 эта конструкция не работает, выдает сабж,
переделал на
procedure TForm1.TableCalcFields(DataSet: TDataSet);
begin
TableSUMM.Value := TableСOUNT.Value * TablePRICE.Value;
end;
TableSUMM : TFloatField; { calculated }
TableCOUNT, TablePRICE : TFloatField;
Стало работать.
Странно все это, но факт.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c