以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  设置行内容排量改变  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121770)
--  作者：yangwenghd
--  发布时间：2018/7/12 18:35:00
--  设置行内容排量改变
可以在表A的第一列输入已完成，然后表A的第二列与表B的第三列相同字符行的第四列为 已上传。这个应该怎么做啊，感谢 感谢 
--  作者：有点甜
--  发布时间：2018/7/12 19:55:00
--  

自己学习编写代码

 

http://www.foxtable.com/webhelp/scr/1453.htm

 
--  作者：yangwenghd
--  发布时间：2018/7/26 9:51:00
--  
能在帮忙看看这个吗？ 感谢 感谢 就是当 商品管理 表的编辑信息_状态 列，为 已录入 后商管附表 的商管关联号 与商品管理的平台属性_商品编号相同的行的 上传信息_状态 都改为 已经完成，感谢 感谢 
其实就是 商品管理 的编辑信息_状态 列输入 已录入后，然后商管附表 的上传信息_状态都为 已经完成，但只有 商品管理 的平台属性_商品编号列与 商管附表 的商管关联号相同的行，感谢 感谢 

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
--  作者：有点甜
--  发布时间：2018/7/26 9:57:00
--  

If e.DataCol.name = "编辑信息_状态" AndAlso e.DataRow("编辑信息_状态") = "已录入" Then
    Dim crs As List(of DataRow) = e.DataRow.GetChildRows("子表")
    For Each cr As DataRow In crs
        cr("上传信息_状态") = "已经完成"
    Next
End If

[此贴子已经被作者于2018/7/26 9:58:17编辑过]