主题：[求助]

每日统计表中，怎么做到在审核那里打对勾，下面关联表里的 回款审核 中自动填入 已审核 ？把对勾去掉的话，回款审核 里也自己删除？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:复件 复件 实验 4.14宇航空白.foxdb

此主题相关图片如下：m}d}e_wgnj7o@bk5zn207h.jpg

 

DataColChanged

If e.DataCol.Name = "审批" Then '如果是审批列的内容变动
    If e.NewValue = True Then '而且变动后的值是True(已勾选)
        Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("安阳输入")
        For Each dr As DataRow In drs
            dr("回款审核")="已审核"
        Next
       
    Else
        Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("安阳输入")
        For Each dr As DataRow In drs
            dr("回款审核")=""
        Next
    End If
   
End If

DataColChanged

If e.DataCol.Name = "审批" Then '如果是审批列的内容变动
    If e.NewValue = True Then '而且变动后的值是True(已勾选)
        Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("安阳输入")
        For Each dr As DataRow In drs
            dr("回款审核")="已审核"
        Next
       
    Else
        Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("安阳输入")
        For Each dr As DataRow In drs
            dr("回款审核")=""
        Next
    End If
   
End If