呵呵,这样好点:
Select e.DataCol.Name Case "双精度小数列"
e.DataRow(e.DataCol.Name) = Math.Floor(e.DataRow(e.DataCol.Name))
End Select