[求助]记录框的状态切换咋就不行了呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]记录框的状态切换咋就不行了呢？

共有2736人关注过本帖树形打印复制链接主题：[求助]记录框的状态切换咋就不行了呢？

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/20 17:52:00 [显示全部帖子]

你的datacolchanging事件有这样一句代码，如果不是录入，就取消选择了

If e.DataCol.name = "状态" Then
    If user.Group<>"录入" Then
        e.cancel=True
    End If
End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/20 18:04:00 [显示全部帖子]

如果你先记录log，两种方法

1、去掉systemReady

            'SystemReady = False
            DataTables("临时版本跟踪表").ReplaceFor("状态", "Confirmed", "需求编号 = '" & r("需求编号") & "'")
            DataTables("临时版本跟踪表").SQLReplaceFor("状态", "Confirmed", "需求编号 = '" & r("需求编号") & "'")
            DataTables("临时版本跟踪表").ReplaceFor("已确认可以发布", "True", "需求编号 = '" & r("需求编号") & "'")
            DataTables("临时版本跟踪表").SQLReplaceFor("已确认可以发布", "True", "需求编号 = '" & r("需求编号") & "'")
            'SystemReady = True
2、在事件里直接给Log列赋值，因为如果用了systemready那么datacolchanged事件是不会触发的

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/20 19:07:00 [显示全部帖子]

[此贴子已经被作者于2014-11-20 19:06:41编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/20 19:09:00 [显示全部帖子]

那你就用方法二，在代码那里，先查找对应的行，然后给log列赋值

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

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/21 9:45:00 [显示全部帖子]

对不对你不会测试下么？

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/21 9:48:00 [显示全部帖子]

Dim dr As DataRow
dr = DataTables("临时版本跟踪表").Find("需求编号 = '" & r("需求编号") & "'")
If dr Is Nothing Then
    dr = DataTables("临时版本跟踪表").SQLFind("需求编号 = '" & r("需求编号") & "'")
End If
If dr IsNot Nothing Then

    If dr.IsNull("Log") = False Then
        dr("log") = User.Name & " " & Date.Now & " " & dr("状态") & vbcrlf & dr("log")
    Else
        dr("log") = User.Name & " " & Date.Now & " " & dr("状态")
    End If
    dr.save
End If

下一主题 >> << 上一主题

主题：[求助]记录框的状态切换咋就不行了呢？