dr("最高分") = Format(dt.Compute("Max(" & dr("科目") & ")"), "0.00")
http://www.foxtable.com/webhelp/scr/0361.htm