以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  模拟关联出错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122418)

--  作者:lfz123
--  发布时间:2018/7/25 9:42:00
--  模拟关联出错
我在 用Table控件模拟关联表 第四步的时候预览出错 谢谢!
图片点击可在新窗口打开查看此主题相关图片如下:模拟关联提示.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/7/25 9:44:00
--  

修改红色代码

 

Dim t As Table = Tables("窗口1_Table1")
With Tables("产品")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "产品编号 = \'" & .Current("产品编号") & "\'"
    End If
End With