以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码冲突  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102021)
--  作者：yangwenghd
--  发布时间：2017/6/12 8:51:00
--  代码冲突
能帮忙看看这个吗 ？
为什么我把红色代码加入后 在 表格输入 字符会自动关闭项目呢 感谢 感谢 

Dim t As Table = Tables("单词")
For Each r As Row In t.Rows
    If r("目录_状态") = "学习中" Then
        r("目录_起学时间") = Date.Now
        r("目录_完成日期") = Nothing
    Else
        If r("目录_状态") = "已完成" Then
            \'r("目录_完成日期") = Date.Now
        End If
    End If
Next
--  作者：有点色
--  发布时间：2017/6/12 9:25:00
--  

 去看看你的datacolchanged事件

 

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