If Forms("采购goodsid").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
Dim t As Table = Tables("采购goodsid_Table1")
With Tables("采购输入_tabel1")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "采购单号 = '" & .Current("采购单号") & "'"
t.Filter = "货号 = '" & .Current("货号") & "'"
End If
End With
End If
原表的PrepareEdit属性设置代码
If e.Col.Name = "数量" Then
e.Cancel = True
Forms("采购goodsid").Open()
End If
在将表做为副本控件后加入前面的代码,点击“数量”列窗口Forms("采购goodsid")不能弹出
给解决下