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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不能通过已删除的行访问该行的信息  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98487)

--  作者：有点蓝
--  发布时间：2017/3/30 17:38:00
--
窗口表的关系都是怎么样的？都绑定的什么表？是否是副本？

--  作者：有点色
--  发布时间：2017/3/30 17:38:00
--
If e.Table.Current Is Nothing Then \'如果Current为Nothing

    Return \'则返回

Else
    If e.Table.name = "代理招标信息" Then
        \'代理-模拟关联表:代理招标信息录入与项目联系人表的关联1
        If Forms("代理招标信息录入").Opened() Then
            Dim dlt As Table = Tables("代理招标信息录入_Table1")
            With Tables("代理招标信息")
                dlt.Filter = "项目编号 = \'" & .Current("项目编号") & "\'"
            End With

        End If

        \'\'代理-模拟关联表1:代理招标信息台帐与代理项目联系人表

        If Forms("代理招标信息台帐").Opened() Then

            Dim dlt1 As Table = Tables("代理招标信息台帐_Table2")

            With Tables("代理招标信息台帐_Table1")
                dlt1.Filter = "项目编号 = \'" & .Current("项目编号") & "\'"
            End With

        End If
        \'\'代理-模拟关联表1:代理招标信息台帐与代理任务分配表

        If Forms("代理招标信息台帐").Opened() Then

            Dim dlt2 As Table = Tables("代理招标信息台帐_Table3")

            With Tables("代理招标信息台帐_Table1")
                dlt2.Filter = "项目编号 = \'" & .Current("项目编号") & "\'"
            End With
        End If
    End If

End If

--  作者：有点色
--  发布时间：2017/3/30 19:13:00
--

进行什么操作的时候报错？看看你那种操作导致触发了什么其它事件代码。加入msgbox调试哪句代码出错。

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

--  作者：有点色
--  发布时间：2017/3/30 22:34:00
--

beforeDeleteDataRow事件

vars("stop") = true

DataRowDeleted事件

vars("stop") = false

CurrentChanged事件

If vars("stop") = true Then Return

--  作者：有点蓝
--  发布时间：2017/3/31 8:53:00
--
9楼不都已经写明是哪个事件了吗

--  作者：有点蓝
--  发布时间：2017/3/31 22:58:00
--
上例子测试，应该是各个表事件有冲突

--  作者：有点蓝
--  发布时间：2017/4/4 9:11:00
--
所有和窗口表有关的表的事件全部注释掉，逐一取消注释测试

--  作者：有点蓝
--  发布时间：2017/4/4 16:16:00
--
按什么步骤操作会出错？

--  作者：有点蓝
--  发布时间：2017/4/4 18:03:00
--

If e.Table.Current Is Nothing Then \'如果Current为Nothing
Return \'则返回
Else
\'代理-模拟关联表:代理招标信息录入与项目联系人表的关联1
If Forms("代理招标信息录入").Opened() Then
Dim dlt As Table = Tables("代理招标信息录入_Table1")
With Tables("代理招标信息")
If .Current Is Nothing Then
dlt.Filter = "False"
Else
dlt.Filter = "项目编号 = \'" & .Current("项目编号") & "\'"
End If
End With
End If
If Forms("代理招标信息台帐").Opened() Then
Dim dlt1 As Table = Tables("代理招标信息台帐_Table2")
Dim dlt2 As Table = Tables("代理招标信息台帐_Table3")
With e.Table
If .Current Is Nothing Then
dlt1.Filter = "False"
dlt2.Filter = "False"
Else
dlt1.Filter = "项目编号 = \'" & .Current("项目编号") & "\'"
dlt2.Filter = "项目编号 = \'" & .Current("项目编号") & "\'"
End If
End With
End If
End If