以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表副本控件的CurrentChanged属性  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23399)
--  作者：hdf0913
--  发布时间：2012/9/11 11:49:00
--  表副本控件的CurrentChanged属性

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")不能弹出

给解决下

 

 
--  作者：blackzhu
--  发布时间：2012/9/11 12:28:00
--  
f e.Col.Name = "数量" Then
    e.Cancel = True
    Forms("采购goodsid").Open()
End If    放在单击事件里面   然后在表属性中的自定义项目  设置三个点  ...




 Else
            t.Filter = "采购单号 = \'" & .Current("采购单号") & "\'And 货号 =\'" & .Current("货号") & "\'"   这儿改一下.
--  作者：czy
--  发布时间：2012/9/11 12:36:00
--  
我测试可以啊。