Dim pr As DataRow = dr.GetParentrow("订单主表")
这句代码改成也用sqlFind
Dim pr As DataRow = DataTables("订单主表").SQLfind("订单号 = '" & dr("订单号") & "'")