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
加好友 
发短信
Post By：2017/3/30 17:38:00 [显示全部帖子]
