不能通过已删除的行访问该行的信息 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：不能通过已删除的行访问该行的信息