表副本控件的CurrentChanged属性 Post By:2012/9/11 11:49:00 [显示全部帖子]
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