主题：项目做不下去！ 各位同志这错误提示到底是咋回事啊？增加了例子，请大家帮忙！

愁死了，哪位同志可以帮助解答一下，不胜感激！

这是啥情况啊，疯了！

 

 

此主题相关图片如下：2untitled.png


此主题相关图片如下：3untitled.png

附件中的CCLT项目管理平台有若干个表，其中表“CCLTControlWells”和表“productiondata”之间建立了关联，关联列是“井号”，生成关联表选的是“无”，在表“CCLTControlWells”中建立“窗口1”，绑定了表“productiondata”，接着在表“CCLTControlWells”的表属性的currentchanged中加代码：

If Forms("窗口1").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
    Dim t As Table = Tables("窗口1_Table1")
    With Tables("CCLTControlWells")
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            t.Filter = "WellNumber = " & .Current("WellNumber")

 End If
    End With

End If

 

我要大的目的是：模拟关联，之后在根据关联的表生成图表，这样我可以实现点击一下表“CCLTControlWells”中的某一行，图表就自动生成一次。但是到了模拟关联这一步就停止了，我用foxtable中自带的模拟关联该好了，单是自己的项目上就是提示出错！不知道什么情况，请帮忙看看！谢谢了！

 

对了，附件是我改好的，请看。

点击产品表中的某一行，则下面的图表实现实时更新。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.zip

没人知道么？看来是周日的缘故

是的，4楼的是正常的，我用狐表自带的例子改的，但是我用同样的方法修改自己的项目的时候就出现了一楼图片所示的错误提示。

出错的例子东西太多了，发是发不上来了，我找了别的办法。

 

那就是：例如在表A的表属性里面的currentchanged加代码，每次选中不同行，表B的filter就根据表A选中的行进行筛选，再根据筛选的结果生成统计表，再根据统计表生成图表。

问题是解决了，但是感觉代码效率太低，每次选不同的行时，屏幕就闪。

万分同意！

憋得头疼。

平时工作太忙，现在搞这个，感觉狐表很好，我想开发出个使用的东西，再介绍给单位领导，这样其他项目组也可以配置这样的软件平台，也算对老狐狸的一种支持

 

你觉得我的方法有没有改进的的可能：

 

例如在表A的表属性里面的currentchanged加代码，每次选中不同行，表B的filter就根据表A选中的行进行筛选，再根据筛选的结果生成统计表，再根据统计表生成图表。

问题是解决了，但是感觉代码效率太低，每次选不同的行时，屏幕就闪。