DBGRIDEH 根据列名找 一定要记住

PrintPurchaseOrderShow_dbgeh.FieldColumns['top_price'].Footer.ValueType := fvtSum;