能在帮忙看看这个吗? 感谢 感谢 就是当 商品管理 表的编辑信息_状态 列,为 已录入 后商管附表 的商管关联号 与商品管理的平台属性_商品编号相同的行的 上传信息_状态 都改为 已经完成,感谢 感谢
其实就是 商品管理 的编辑信息_状态 列输入 已录入后,然后商管附表 的上传信息_状态都为 已经完成,但只有 商品管理 的平台属性_商品编号列与 商管附表 的商管关联号相同的行,感谢 感谢
If e.DataCol.name = "编辑信息_状态" Then
Dim pr As DataRow = e.DataRow.GetParentRow("商管附表")
If pr IsNot Nothing Then
Dim crs As List(of DataRow) = pr.GetChildRows("商品管理")
Dim cnt As Integer
For Each cr As DataRow In crs
If cr("编辑信息_状态") = "已上传" Then
cnt = cnt + 1
End If
Next
'pr("上传信息_状态") = iif(crs.Count = cnt, "已完成","已上传")
pr("上传信息_状态") = "已经完成"
End If
End If