以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]触发表DataColChanged事件程序自动退出  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48405)
--  作者：wxfjamdc
--  发布时间：2014/3/28 10:35:00
--  [求助]触发表DataColChanged事件程序自动退出
在事件中添加以下代码
If e.DataRow IsNot Nothing AndAlso e.DataRow("类型") = "A" Then
    Dim max As Date
    max = Tables("表A.表B").Compute("Max(时间)")
    If max > "2000-01-01" Then
        Tables("表A.表B").current("时间") = max.AddMonths(Tables("表A.表B").Current("周期"))
    Else
        Tables("表A.表B").current("时间") =Tables("表A").Current("时间")
    End If
End If

触发后直接退出程序，哪里有问题了？
[此贴子已经被作者于2014-3-28 11:04:17编辑过]
--  作者：wxfjamdc
--  发布时间：2014/3/28 10:44:00
--  
还是没找到问题。
[此贴子已经被作者于2014-3-28 11:00:20编辑过]
--  作者：wxfjamdc
--  发布时间：2014/3/28 11:12:00
--  
这是列子。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
--  作者：狐狸爸爸
--  发布时间：2014/3/28 11:12:00
--  

因为：

 

http://www.foxtable.com/help/topics/1522.htm

 
--  作者：菲舍尔
--  发布时间：2014/3/28 11:46:00
--  
死循环，系统崩溃了