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("招采中心_签收日期")
要引用父表“预算清单”里的值,要怎么改?