procedure TForm1.Button2Click(Sender: TObject);
var
strNew,strOld : string;
begin
if (ADOQuery1.State in [dsBrowse]) then Exit;
if (UpperCase(DBGridEh1.SelectedField.FieldName) = 'CurrencyType') then
begin
strNew := Trim(VarToStr(DBGridEh1.SelectedField.NewValue));
strOld := Trim(VarToStr(DBGridEh1.SelectedField.OldValue));
end;
adoquery1.Post;
end;
为什么STRNEW和STROLD得到的是空值呀,谁能提供相关的资料,高分增给
var
strNew,strOld : string;
begin
if (ADOQuery1.State in [dsBrowse]) then Exit;
if (UpperCase(DBGridEh1.SelectedField.FieldName) = 'CurrencyType') then
begin
strNew := Trim(VarToStr(DBGridEh1.SelectedField.NewValue));
strOld := Trim(VarToStr(DBGridEh1.SelectedField.OldValue));
end;
adoquery1.Post;
end;
为什么STRNEW和STROLD得到的是空值呀,谁能提供相关的资料,高分增给
strNew := Trim(VarToStr(Value));
//showmessage(DBGridEhReceipt.SelectedField.FieldName);
//showmessage(DBGridEhReceipt.SelectedField.Text);
strOld := Trim(VarToStr(DBGridEhReceipt.SelectedField.Text));
就可以了事件是在DBGridEhReceiptColumns10UpdateData里写得。