dbgrideh如何防止不是数值型就会出错

DBGrideh.SumList.Active:=true;
DBGridEh.FieldColumns[FieldByName('zdlm').Value].Footer.ValueType:=fvtsum


但如果这个字段不能数值型就会报错，我希望不是数值型就显示为0或者不显示，不要报错，怎么办





[解决办法]
if Self.DBGridEh1.Columns[i].Field.DataType in [ftFloat, ftCurrency, ftFloat, ftBCD] then begin