我用的是外部SQL数据库，table1绑定tables("招标信息")并为副本，table2绑定tables("项目联系人")并为副本，类型为Normal，主要是二个副本做一个模拟关联表。
事件中代码：
''在不同表之间同时选定一个项目名称
If e.Table.Current IsNot Nothing Then '如果Current为Nothing
Return '则返回
Else
If e.Table.Name = "招标信息" Then
'''=======台帐模拟关联表1:招标信息与项目联系人===========
If Forms("招标信息台帐").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
Dim t As Table = Tables("招标信息台帐_Table2")
With Tables("招标信息台帐_Table1")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "系统编号 = '" & .Current("系统编号") & "'"
End If
End With
End If
End If
''=========在不同表之间同时选定一个项目名称===========
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("抽签入围").Find("[系统编号] = '" & Tables("开标记录").Current("系统编号") & "'")
If dr IsNot Nothing Then
wz = Tables("抽签入围").FindRow(dr)
If wz >= 0 Then
Tables("抽签入围").Position = wz
End If
End If
End If
[此贴子已经被作者于2018/8/6 21:13:18编辑过]
加好友 
发短信
Post By：2018/8/5 20:52:00 [只看该作者]
此主题相关图片如下：66619.png
