你把行拉高一些就能看到了吧?是不是第一行是回车字符了?
dr1("下一工序") = dr1("下一工序") & vbcrlf & "订单总重量:" & dr1("订单重量") & "计划总重量:" & dr1("计划重量")
要改成
dr1("下一工序") = iif(dr1.IsNull("下一工序"), "", dr1("下一工序") & vbcrlf) & "订单总重量:" & dr1("订单重量") & "计划总重量:" & dr1("计划重量")