设置Lable的DataFormat事件:
http://www.foxtable.com/help/topics/0737.htm
代码为:
Dim db As DoubleIf Double.TryParse(e.Value,db) Then e.Value = Format(db, "#,###.00")End If