方法一:用 Gettype(String)
方法二:直接设置格式
For i As Integer = 0 To Tables("统计_Table1").Rows.Count(True) - 1 dr = Tables("统计_Table1").Rows(i,True) dr("占用") = dr("合计") / dr("部门人数")Next
Tables("统计_Table1").cols("占用").DataCol.SetFormat("0.00%")