以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用Table控件模拟关联表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28212)
--  作者：东方孟德
--  发布时间：2013/1/22 16:06:00
--  用Table控件模拟关联表
 

按案例 用Table控件模拟关联表

窗口中的TABLIf Forms("账户收入明细窗口").Opened() \'一定要判断用于模拟关联表的窗口是否已经打开
Dim t As Table = Tables("账户收入明细窗口_账户收入明细Table")
With Tables("账户收入信息")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "收入单号 = " & .Current("收入单号")

End If
End With
End If

出现：

无法在 System.String 和 System.Int32 上执行“=”操作。

封掉这句： t.Filter = "收入单号 = " & .Current("收入单号") 后不出现，父子表中列 “收入单号”均为STRING
--  作者：迷狐
--  发布时间：2013/1/22 16:20:00
--  
试试 t.Filter = "收入单号 = \'" & .Current("收入单号") & "\'"
--  作者：lin_hailun
--  发布时间：2013/1/22 16:30:00
--  
 嗯嗯，二楼正解。

http://www.foxtable.com/help/topics/1284.htm
--  作者：东方孟德
--  发布时间：2013/1/22 16:37:00
--  

多谢！ t.Filter = "收入单号 = \'" & .Current("收入单号") & "\'" ， 从案列搬下来，没动脑。这个对了