Select Case e.DataCol.name
    Case "中标情况_招标采购负责人"
        If e.DataRow.IsNull("中标情况_招标采购负责人") Then
            DataTables("采购管理台账").DeleteFor("预算编号=\'" & e.DataRow("预算编号") & "\'")
        Else
            Dim ndr1 As DataRow = DataTables("采购管理台账").Find("采购计划管理_采购计划编号 = \'" & e.DataRow("物资部采购预算编号") & "\'")
            If ndr1 Is Nothing Then
                Dim ndr As Row = Tables("采购管理台账").AddNew
                ndr("采购计划管理_采购计划编号") = e.DataRow("物资部采购预算编号")
                ndr("采购计划管理_招标采购负责人") = e.DataRow("中标情况_招标采购负责人")
                ndr("采购计划管理_需求部门预算编号") = e.DataRow("预算编号")
                ndr("采购计划管理_预算输入时间") = DataTables("预算清单")e.DataRow("招采中心_签收日期")
                ndr("采购计划管理_需求部门") = "辅机事业部"
                ndr("采购计划管理_预算输入部门") = "物资部"
                ndr.Move(0)
            End If
        End If
End Select

这一句

ndr("采购计划管理_预算输入时间") = DataTables("预算清单")e.DataRow("招采中心_签收日期")

要引用父表“预算清单”里的值，要怎么改？

方法一：查找，如

Dim pdr As DataRow = DataTables("预算清单").Find("采购计划管理_采购计划编号 = \'" & e.DataRow("物资部采购预算编号") & "\'")

方法二：直接引用

Dim pdr As DataRow = e.DataRow.getParentRow("预算清单")

谢谢！