主题：筛选

 

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

点击浏览该文件:产品.foxdb

这个项目可心了，我把相同代码复制到另外一项目中，怎么就不行了呢，代码如下：

If e.Table.Current IsNot Nothing Then
    If DataTables.Contains("公司_Table1") Then
        Dim Filter As String = "账号 = '" & e.Table.Current("账号") & "'"
        DataTables("公司_Table1").LoadFilter = Filter
        DataTables("公司_Table1").Load
    End If
End If

这是什么原因呀？

在窗口中也是sqltable，数据源、select语句也都写了，格式也是一样的，这是为什么呢

窗口中可以用按钮上下页来实现切换，把相同格式的代码做到另外一个项目中就不行了

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

点击浏览该文件:产品2.zip

上面的项目没有问题啊。

 

 

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

点击浏览该文件:产品.foxdb

但是不知道为什么到其他项目就不行了呢?

 

那上传不行的项目。

复制以下账项，你帮我看一下是否还有遗漏：

1、窗口添加table控件类型为sqltable，并设置数据源、select语句；

2、在父表的currentchange事件设置上述代码；

3、通过窗口控件选择当前数据行。

其他的还有吗？完全是按上述设置，怎么就不行呢，真奇怪

 

项目不能上传

加入msgbox，弹出条件看是否正确。再有就是表名是否写对