Select Case e.DataCol.Name
Case "年月店名对账品名对账品类"
Dim dr2 As DataRow = DataTables("盘点总计").Find("年月店名对账品名对账品类 = '" & e.OldValue & "'")
If dr2 Is Nothing Then
dr2 = DataTables("盘点总计").AddNew()
dr2("年月店名对账品名对账品类") = e.DataRow("年月店名对账品名对账品类")
dr2("年") = e.DataRow("年")
dr2("月") = e.DataRow("月")
dr2("店名账号") = e.DataRow("店名账号")
dr2("店名汉字") = e.DataRow("店名汉字")
dr2("对账品名") = e.DataRow("对账品名")
dr2("对账品类") = e.DataRow("对账品类")
Else
dr2("年月店名对账品名对账品类") = e.DataRow("年月店名对账品名对账品类")
End If
Case "对账品名","对账品类" ,"年","月" ,"店名账号","店名汉字"
Dim dr2 As DataRow = DataTables("盘点总计").Find("年月店名对账品名对账品类 = '" & e.DataRow("年月店名对账品名对账品类") & "'")
If dr2 IsNot Nothing Then
dr2(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
子表加一行戓多行
列（年月店名对账品名对账品类 ）=2021071店足金戒指
父表只加一行
列（年月店名对账品名对账品类 ）=2021071店足金戒指
Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
If dr IsNot Nothing Then
dr.Delete()
End If
子表删除行如果不是 列（年月店名对账品名对账品类 ）=2021071店足金戒指 不是最后一行 父表不删除
加好友 
发短信
Post By：2021/7/7 16:28:00 [只看该作者]
此主题相关图片如下：qq浏览器截图20210707173347.png