采购计划表 DataColChanged
Select Case e.DataCol.Name
Case "预付金额","合同性质","结算方式","单据类别","付款日期","合同类型","收货单位","付款方式","订货单位","中转港","收货部门","交货日期","专用线","需方代表","交货方式","登记机构","登记部门","供方代表","签订地点","审核日期","审核人","操作员","备注"
Dim Filter As String = "[合同号码] = '" & e.DataRow("合同号码") & "'"
DataTables("采购计划明细表").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)
End Select
采购计划明细表 DataColChanged
If e.DataCol.Name= "合同号码" Then
If e.NewValue Is Nothing Then
e.DataRow("项目名称")= Nothing
e.DataRow("预付金额")= Nothing
e.DataRow("合同性质")= Nothing
e.DataRow("结算方式")= Nothing
e.DataRow("单据类别")= Nothing
e.DataRow("付款日期")= Nothing
e.DataRow("合同类型")= Nothing
e.DataRow("收货单位")= Nothing
e.DataRow("付款方式")= Nothing
e.DataRow("订货单位")= Nothing
e.DataRow("中转港")= Nothing
e.DataRow("收货部门")= Nothing
e.DataRow("交货日期")= Nothing
e.DataRow("专用线")= Nothing
e.DataRow("需方代表")= Nothing
e.DataRow("交货方式")= Nothing
e.DataRow("登记机构")= Nothing
e.DataRow("登记部门")= Nothing
e.DataRow("供方代表")= Nothing
e.DataRow("签订地点")= Nothing
e.DataRow("审核日期")= Nothing
e.DataRow("审核人")= Nothing
e.DataRow("操作员")= Nothing
e.DataRow("备注")= Nothing
Else
Dim dr As DataRow
dr = DataTables("采购计划表").Find("[合同号码]= '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("项目名称")= dr("项目名称")
e.DataRow("预付金额")= dr("预付金额")
e.DataRow("合同性质")= dr("合同性质")
e.DataRow("结算方式")= dr("结算方式")
e.DataRow("单据类别")= dr("单据类别")
e.DataRow("付款日期")= dr("付款日期")
e.DataRow("合同类型")= dr("合同类型")
e.DataRow("收货单位")= dr("收货单位")
e.DataRow("付款方式")= dr("付款方式")
e.DataRow("订货单位")= dr("订货单位")
e.DataRow("中转港")= dr("中转港")
e.DataRow("收货部门")= dr("收货部门")
e.DataRow("交货日期")= dr("交货日期")
e.DataRow("专用线")= dr("专用线")
e.DataRow("需方代表")= dr("需方代表")
e.DataRow("交货方式")= dr("交货方式")
e.DataRow("登记机构")= dr("登记机构")
e.DataRow("登记部门")= dr("登记部门")
e.DataRow("供方代表")= dr("供方代表")
e.DataRow("签订地点")= dr("签订地点")
e.DataRow("审核日期")= dr("审核日期")
e.DataRow("审核人")= dr("审核人")
e.DataRow("操作员")= dr("操作员")
e.DataRow("备注")= dr("备注")
End If
End If
End If
采购计划明细表有三条明细数据后 再修改采购计划表的数据 采购计划明细表对应的字段数据只有第三行更新了 第一行和第二行没更新是空数据
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:1018.png
[此贴子已经被作者于2021/10/18 12:24:34编辑过]