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
|