Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("窗口1_Table1").DataCols '用表达式列计算库存数据
.Add("户数占比",Gettype(Double), "[公益林户数]/[贫困户数]*100")
.Add("人口占比",Gettype(Double), "[公益林人口]/[贫困人口]*100")
.Add("劳力占比",Gettype(Double), "[公益林劳力]/[贫困劳力]*100")
.Add("面积占比",Gettype(Double), "[贫困公益林]/[公益林面积]*100")
End With
将红色部分转换成百分比