以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这个代码Foxtable为什么会停止？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51329)
--  作者：zyqzyy
--  发布时间：2014/5/24 15:10:00
--  [求助]这个代码Foxtable为什么会停止？

DataColChanged

 

Select Case e.DataCol.Name
    Case "收发文类型","文件转发"
        If e.DataRow.IsNull("收发文类型") AndAlso e.DataRow("收发文类型") =  "收文"  AndAlso e.DataRow.Isnull("收文部门")  Then
            e.DataRow("文件转发") = True      ‘这一列是逻辑列
        Else
            e.DataRow("文件转发") = False
        End If
End Select
--  作者：Bin
--  发布时间：2014/5/24 15:16:00
--  
死循环.你改变文件转发的值.触发DatacolChange事件 事件里面又改变它的值.死循环
--  作者：lsy
--  发布时间：2014/5/24 15:20:00
--  
If e.DataRow.IsNull("收发文类型") AndAlso e.DataRow("收发文类型") =  "收文"  AndAlso e.DataRow.Isnull("收文部门")  Then
翻译成普通话，就是：如果为空e.DataRow.IsNull("收发文类型") ，并且不为空e.DataRow("收发文类型") =  "收文" 
--  作者：zyqzyy
--  发布时间：2014/5/24 15:40:00
--  

AfterEdit

  ’放在这儿也不行，头短路了，这么简单的事也搞不定

If e.Col.Name = "收发文类型"
        If e.Row.IsNull("收发文类型") AndAlso e.Row("收发文类型") =  "收文"  AndAlso e.Row.Isnull("收文部门")  Then
            e.Row("文件转发") = True
        Else
            e.Row("文件转发") = False
        End If
End If

[此贴子已经被作者于2014-5-24 15:40:33编辑过]
--  作者：zyqzyy
--  发布时间：2014/5/24 15:42:00
--  
休息一会，清醒下脑子！
--  作者：zyqzyy
--  发布时间：2014/5/24 15:46:00
--  
谢谢，明白了！