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

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

在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

 

 

 

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

 应该是一些小细节的问题，用msgbox()定位出错的位置。

 弄不好的话，就联系客服QQ

看来要和客服联系了  现在发现这段代码一会能执行 一会不执行 真是郁闷 不知道是不是BUG

不可能是bug的，应该是一些细微的东西影响了。联系客服。

经过几个小时的折腾 找到问题了  是腾讯的微云引起的  我设置了开发文件夹自动同步到远程服务器  微云在后台上传的时候会导致一些DLL文件锁定 所以每次我保存了代码 都是被锁住了 程序无法运行最新的代码  唉 引以为鉴啊

 哦哦，现在好多云哦，看来是个趋势了。

一片乌云.

那看来还是金山快盘靠谱点