作者：惜泽2502852447 | 来源：互联网 | 2024-10-13 18:58
我想在这个字段onchange之前保存下还没改变的值请问要怎么做？procedureTdataModule1.adoquery1UnitIDChange(Sender:TField);b
我想在这个字段onchange之前保存下还没改变的值 请问要怎么做？
procedure TdataModule1.adoquery1UnitIDChange(Sender: TField);
begin
end;
11 个解决方案
在DataSet.BeforeScroll事件中保存吧
其实，只要数据没有Post，可以从OldValue得到
procedure TForm1.ClientDataSet1ClientDataSet1Field1Change(Sender: TField);
var
Save: Variant;
begin
Save := TField(Sender).OldValue;
end;
Sender本身就是Field，还强制转换个啥,晕。
DataSet.BeforeScroll 这个只在第一次打开的时候执行，以后UnitID字段Change的时候就不执行了 不行啊
Save := TField(Sender).OldValue; 这个OldValue值好象永远只存第一次的值 以后的改变了就没存了
----------------
我要的功能是：
假如第一次是 米，然后onchange成公里， 把米存在FOldUnit里，然后再把改变后的公里存在FNewUnit里 就是每一次change的时候把还没change前的Unit保存下来，然后再把change后的Unit也保存下来
你说的没错，BeforeScroll是整个记录改变时触发一次，而OldValue的值肯定只是第一次的值，但是，如果你改变了值，并且保存到数据集后，这个过程又重新开始了。所以，一般情况下，这就足够了。
你上面说的功能我不明白要干什么，为什么改变了以后不保存到数据集？
不过，你要的这个功能也很简单，第一次改变前或者改变时，你从BeforeScroll或者Oldvalue保存到FOldUnit，然后，在Field.OnChange事件中比较Field.Value和FOldUnit，如果不相等，你再重新保存阿，你甚至可以用List保存每一次的改变。
不知道搂住明白我上面的意思没有，就是说，为什么非是改变前保存，而不是改变时保存了？！思路要开拓一点啊！^_^
顺便祝楼主新年好！
祝winxkm(蹩脚的程序员) 新年好！
procedure Tdtmda_CustSpePrice.adsMasterUnitIDChange(Sender: TField);
var
//Column :TColumnEh;
UnitName:string;
exchangeRate:real;
begin
inherited;
if not (adsMaster.State in [dsEdit,dsInsert]) then exit;
if adsMaster.FieldByName('UnitID').AsString='' then exit;
if FOldUnitID <> '' then
exchangerate := getUnitChangeRate(adsMaster.FieldByName('ProductID').AsString,FOldUnitID, Sender.AsString)
else exchangerate := 1;
FOldUnitID:= OldValue; //**************************
OldValue:= adsMaster.FieldByName('UnitID').AsString;//**************************
end;
procedure Tdtmda_CustSpePrice.adsMasterAfterScroll(DataSet: TDataSet);
begin
inherited;
OldValue:= DataSet.FieldByName('UnitID').AsString;
end;
是这个意思 搞定了 谢谢楼上所有的XD， 新年快乐 祝自己安全度过本命年~
京公网安备 11010802041100号