以文本方式查看主题

-  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=147753)

--  作者:天一生水
--  发布时间:2020/3/23 14:49:00
--  [注意]帮助中的这句代码是不是有误?
帮助中的这句代码是不是有误?http://www.foxtable.com/webhelp/topics/2222.htm

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


应该这样:
t.Filter = "产品编号 =  \'" &  .Current("产品编号") & "\'"


--  作者:有点蓝
--  发布时间:2020/3/23 15:29:00
--  
帮助中的产品编号是整数列,不是字符列。打开帮助的例子看过吗!