|
#1
|
|||
|
|||
помогите
вот код:
Код:
procedure TForm10.Button1Click(Sender: TObject); var tmp: single; begin tmp:=Form8.Table1.FieldByName('ГПП-7_ввод1_показания').Value; Form8.Table1.Insert; Form8.Table1.FieldByName('Дата').AsString:= MaskEdit1.Text; Form8.Table1.FieldByName('ГПП-7_ввод1_показания').AsString:= Edit2.Text; Form8.Table1.FieldByName('ГПП-7_ввод1_показания').Value:=1.8*(StrToFloat(Edit2.T ext)-tmp); lmikle: Пользуемся тегами!!! нужно чтоб из данных которые заносяться в ячейку "ГПП-7_ввод1_показания" вычитались предыдущие данные из этой же ячейки, т.е. из данных сегодняшнего числа данные вчерашнего числа, и умножались на 1,8. Он работает но результат вычисления записывается в эту же калонку, а мне надо сделать так чтоб в этой колонке остались данные которые ввожу а результат записывался в колонку Form8.Table1.FieldByName('ГПП-7_ввод1_результат') |
#2
|
|||
|
|||
Я не совсем понял в чем проблема, но ее решение кроется в последней строке. Зачем ты помещаешь результат туда? Помещай его туда куда тебе надо - Form8.Table1.FieldByName('ГПП-7_ввод1_результат') Ты же сохраняешь в Form8.Table1.FieldByName('ГПП-7_ввод1_показания')
|