方法一:查找,如
Dim pdr As DataRow = DataTables("预算清单").Find("采购计划管理_采购计划编号 = '" & e.DataRow("物资部采购预算编号") & "'")
方法二:直接引用
Dim pdr As DataRow = e.DataRow.getParentRow("预算清单")