一、窗口的AfterLoad事件代码
Dim t As Table = Tables("关联表_Table批发表1")
With Tables("返利合同")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "商品名称 = " & .Current("商品名称")
End If
End With
t.OpenView("default")
二、返利合同表的CurrentChanged事件代码
If Forms("关联表").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
Dim t As Table = Tables("关联表_Table批发表1")
With Tables("返利合同")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "商品名称 = " & .Current("商品名称")
End If
End With
End If
三、批发表1 DataRowAdding事件
If CurrentTable.Name = "关联表_Table批发表1" Then '如果当前表是模拟的关联表
Dim r As Row = Tables("返利合同").Current
If r IsNot Nothing Then
e.DataRow("商品名称") = r("商品名称")
End If
End If
麻烦有点蓝老师看一下，我的哪个代码错了。
加好友 
发短信
Post By：2017/1/25 9:54:00 [显示全部帖子]
此主题相关图片如下：qq截图20170125103314.png
