标题：模拟关联表

我按帮助文档里面“用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服务包项目

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")

出现错误
此主题相关图片如下：qq截图20110804113035.png

错误如下，是什么原因啊
此主题相关图片如下：qq截图20110804113035.png

如果服务包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")

 

还是相同的错误。我是两个表控件做的关联，是不是这个缘故啊
此主题相关图片如下：qq截图2011080412263011.png

你发文件上来就不会老给你出错的代码了···

没看到我的代码的红字部分?

问题解决了谢谢