主题：发现一个奇怪的问题

我在一个窗口里设计了一个模拟关联表

在afterload事件中添加如下代码

Dim t1 As Table = Tables("供应商信息_Table1")
Dim t2 As Table = Tables("供应商信息_Table2")
Dim t3 As Table = Tables("供应商信息_Table3")
Dim t4 As Table = Tables("供应商信息_Table4")
Dim t5 As Table = Tables("供应商信息_Table5")

With Tables("供应商信息_table1")
    If .Current Is Nothing Then
        t2.Filter = "False"
        t3.Filter = "False"
        t4.Filter = "False"
        t5.Filter = "False"
    Else
        Dim s As String=.current("供应商编号")
        t2.Filter = "供应商编号 = " & s
        t3.Filter = "供应商编号 = " & s
        t4.Filter = "供应商编号 = " & s
        t5.Filter = "供应商编号 = " & s
    End If
End With

执行的时候总是提示找不到列[供应商编号]对应的数据  我用同样的代码 做了个例子 准备发上来 却一点问题都没有  搞不懂