[求助]等待时间一过，弹出登录窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用有点甜在2014-9-30 12:06:00的发言：

你在临时版本跟踪表的CurrentChanged事件加入了下面的代码，会动态加载对一个的表数据的

If e.Table.Current IsNot Nothing Then
    If DataTables("需求明细表").Find("需求编号 = '" & e.Table.Current("需求编号") & "'") Is Nothing Then
        DataTables("需求明细表").AppendLoad("需求编号 = '" & e.Table.Current("需求编号") & "'")
    End If
End If

对，是有这段代码，这段代码主要是用来在临时版本跟踪表选中某一行，然后在关联表加载需求明细表的数据。

但是呢他加载的是需求编号相等的需求明细录入数据。和刷新同步后多出来一行有关系吗？

有什么办法可以解决一下？

刷新的时候，你也重新加载了临时版本表，会触发这段代码的。

以下是引用有点甜在2014-9-30 15:00:00的发言：
刷新的时候，你也重新加载了临时版本表，会触发这段代码的。

触发就触发呗。有什么办法可以解决刷新之后加载别人的数据呢？

什么意思？你写什么代码，就做什么事啊，你要写了加载，那肯定就加载了。

以下是引用有点甜在2014-9-30 10:19:00的发言：
代码没有问题啊，如果有问题，就是你的逻辑错了，你自己msgbox看一下条件，再对比一下你的数据。

我发现只要把刷新同步代码增加如下就可以了。就是最后filter一次，等到自己想要的数据即可。

Dim druser As DataRow = DataTables("技术支持信息表").SqlFind("name = '" & user.name & "'")
    If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
        Tables("需求明细表").Filter = ""
    Else
        Select Case user.Group
            Case "录入"
                If druser.Isnull("新负责人邮箱") Then
                    Tables("需求明细表").Filter = "技术支持邮箱 = '" & User.Name.trim() & "'"
                Else
                    Tables("需求明细表").Filter = "技术支持邮箱 = '" & User.Name.trim() & "' or 技术支持邮箱 in ('" & druser("新负责人邮箱").Trim().Replace(",", "','") & "') "
                End If
            Case "审核"
                Tables("需求明细表").filter = "流程 = '" & user.Group & "'"
        End Select
    End If

Tables("需求明细表").Sort = "需求编号 DESC"

主题：[求助]等待时间一过，弹出登录窗口