procedure TFormJhd.DBGridEh1ColExit(Sender: TObject);
var
f : Double;
begin
if ClientDataSet1.IsEmpty then
Exit;
if TryStrToVarIsfloat(DBGridEh1.DataSource.DataSet.Fields[5].value, f) then
//
else
begin
DBGridEh1.DataSource.DataSet.Fields[5].value:='';
ShowMessage('非法数据');
end;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024