这句
DataTables("统计表1").DataCols.Add("平均单价",Gettype(Single),"应收金额 / iif(数量=0,null,数量)")
改成
DataTables("统计表1").DataCols.Add("平均单价",Gettype(Single),"Convert((应收金额 / iif(数量=0,null,数量)) * 100, 'System.Int64') / 100")