DataColChanging事件
If e.DataCol.Name = "第四列" AndAlso e.newvalue <> Nothing Then e.newvalue = format(math.Ceiling(e.NewValue*1000)/1000, "0.000")End If