[求助]刷新同步某些列值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]刷新同步某些列值

共有2777人关注过本帖树形打印复制链接主题：[求助]刷新同步某些列值

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

[求助]刷新同步某些列值 发帖心情

Post By：2015/9/19 18:35:00 [只看该作者]

BUG录入表如果修改了某一行的值，那么同时也应该修改BUG研发表的对应的值（同一个BUG ID）

按照帮助，可是发现msgbox(1)，msgbox(2)，msgbox(3)执行后BUG研发表的值是改了，但是执行到msgbox(4)后就还原为之前的值了。这是什么原因？

BUG录入表的提交按钮click代码如下:

Dim s As String = "BUG_ID = '" & r("BUG_ID") & "'"

Dim fr As DataRow = DataTables("BUG研发表").SQLFind(s)

If fr Is Nothing Then

Dim dr As DataRow = DataTables("BUG研发表").AddNew()

dr("BUG_ID") = r("BUG_ID")

dr.save

MessageBox.show("BUG编号:" & r("BUG_ID") & "此BUG故障已通知研发,请静静的耐心等待牛人研发:" & r("模块维护人") & "解决!","博达BUG综合管理系统")

Else

r.Load()

LockBaseMainForm()

DataTables("BUG研发表").StopRedraw

msgbox(1)

DataTables("BUG研发表").RemoveFor(s)

msgbox(2)

DataTables("BUG研发表").Appendload(s)

msgbox(3)

DataTables("BUG研发表").ResumeRedraw

msgbox(4)

UnLockBaseMainForm()

MessageBox.show("BUG编号:" & r("BUG_ID") & "此BUG故障信息已修改,并通知研发,请静静的耐心等待研发" & r("模块维护人") & "解决!","博达BUG综合管理系统")

End If

msgbox(5)

DataTables("BUG研发表").Save()

DataTables("BUG录入表").Save()

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/20 13:00:00 [只看该作者]

代码没问题，做例子上来测试。

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2015/9/21 16:29:00 [只看该作者]

开发者用户名liujiyong@bdcom.com.cn pwd:liujy

你用户名：libin@bdcom.com.cn pwd:bdcom 测试

在BUG录入系统，先随便构造数据，点击提交，然后修改这BUG ID的某些数据，在BUG研发表看看数据是否已经改过了，我测试了没改过。

请大红袍帮忙看看。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:临时版本跟踪系统1225.rar

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/21 16:58:00 [只看该作者]

bug录入表

Select Case e.DataCol.name
    Case "测试机型","软件版本","现象描述","发现阶段","严重程度","优先级别","怀疑模块","附件","附件目录"
        Dim dr As DataRow = DataTables("BUG研发表").Find("BUG_ID = '" & e.DataRow("BUG_ID") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If

dr.save
End Select