改成
cmd.CommandText = "Select Sum(round(长*宽/26+0.0001,2)) From {出库} Where 客户代码 = '" & e.DataRow("客户代码") & "'" & " And 车号 = '" & e.DataRow("车号") & "'"