Dim pzl As String = Format(DataTables("应付款项").Compute("Sum(装载量)") / DataTables("应付款项").Compute("Sum(体积)"), "0.00%")
------
Dim pzl As String = Format(DataTables("应付款项").Compute("Sum(装载量 / 体积)), "0.00%")