Foxtable(狐表)用户栏目专家坐堂 → 表副本控件的CurrentChanged属性


  共有9007人关注过本帖平板打印复制链接

主题:表副本控件的CurrentChanged属性

帅哥哟,离线,有人找我吗?
hdf0913
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:50 积分:588 威望:0 精华:0 注册:2012/8/2 16:08:00
表副本控件的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

在将表做为副本控件后加入前面的代码,点击“数量”列窗口Forms("采购goodsid")不能弹出

给解决下

 

 


 回到顶部