- 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=11608)
-- 发布时间：2011/8/4 11:54:00
-- 模拟关联表
我按帮助文档里面“用Table控件模拟关联表”的步骤进行操作的。
设置“服务包设置”窗口afterload时间：
Dim t As Table = Tables("服务包设置_Table2")
With Tables("服务包名称")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "服务包ID = " & .Current("服务包ID")
End If
End With
t.OpenView("default")
与帮助文档唯一不同的是我要关联的父表--服务包名称，跟其他两个表做了两个关联：表服务包名称PO服务明细；表服务包名称PO服务包项目
-- 发布时间：2011/8/4 12:06:00
--
Dim t As Table = Tables("服务包设置_Table2")
With Tables("服务包名称")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "服务包ID = " & .Current("服务包ID") & "\'"
End If
End With
t.OpenView("default")
什么意思,不能显示?
-- 发布时间：2011/8/4 12:14:00
--
出现错误
此主题相关图片如下：qq截图20110804113035.png
-- 发布时间：2011/8/4 12:17:00
-- 应用时会出现错误
错误如下，是什么原因啊
此主题相关图片如下：qq截图20110804113035.png
-- 发布时间：2011/8/4 12:17:00
--
如果服务包id列是字符型，应该：
Dim t As Table = Tables("服务包设置_Table2")
With Tables("服务包名称")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "服务包ID = \'" & .Current("服务包ID") & "\'"
End If
End With
t.OpenView("default")
-- 发布时间：2011/8/4 12:28:00
-- 还是相同的错误
还是相同的错误。我是两个表控件做的关联，是不是这个缘故啊
此主题相关图片如下：qq截图2011080412263011.png
-- 发布时间：2011/8/4 12:50:00
--
你发文件上来就不会老给你出错的代码了···
-- 发布时间：2011/8/4 12:52:00
--
没看到我的代码的红字部分?
-- 发布时间：2011/8/4 13:19:00
--
问题解决了谢谢