以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求指点，实在不会了。快绝望了！！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101455)
--  作者：sgkyzfh
--  发布时间：2017/5/31 19:57:00
--  求指点，实在不会了。快绝望了！！！
列 起始日期 处理方式 一周后效果 再次处理
列属性 日期型 字符串 字符串 字符串
下拉菜单选项 　 　 　 　
　 　 已经处理 良好 　
　 　 未处理 差 　
　 　 计划修处理 　 　
　 　 　 　 　
急求：如果"起始日期"不为空；"一周后效果"等于”差“时。"再次处理"列在打开表时自动赋值为“需要再次处理”字样

在这里菜鸟先谢谢，大侠的指点了。
--  作者：wei0769
--  发布时间：2017/5/31 20:21:00
--  
增加行 再次处理  默认值 为 “再次处理” ，在datacolchanged 中检测 起始日期 及一周后效果的  值，根据要求改写  再处理字段
--  作者：wyz20130512
--  发布时间：2017/5/31 20:30:00
--  
DataColChanged事件：

Select Case e.DataCol.Name
    Case "一周后效果"
        If e.NewValue = "差" AndAlso e.DataRow.IsNull("起始日期") = False Then
            e.DataRow("再次处理") = "需要再次处理"
        End If
End Select
[此贴子已经被作者于2017/5/31 20:47:44编辑过]
--  作者：有点色
--  发布时间：2017/5/31 20:58:00
--  
DataColChanged事件：

Select Case e.DataCol.Name
    Case "一周后效果", "起始日期"
        If e.datarow("一周后效果") = "差" AndAlso e.DataRow.IsNull("起始日期") = False Then
            e.DataRow("再次处理") = "需要再次处理"
        Else
            e.DataRow("再次处理") = nothing
        End If
End Select
 
AfterOpenProject事件
 
DataTables("表A").DataCols("一周后效果").RaiseDataColChanged()