SELECT CASE e.DataCol.NameCASE "生产数量","额定产量"Dim dcl As Doubledcl=(e.DataRow("生产数量")/e.DataRow("额定产量"))*100e.DataRow("达成率")=Round(dcl,3)End Select
四舍五入dcl,到3位小数是否这么写?Round(dcl,3)