过滤 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有3432人关注过本帖树形打印复制链接主题：过滤

nbsugu_z

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：408 积分：3642 威望：0 精华：0 注册：2017/4/8 8:59:00

过滤

Post By：2020/5/20 11:21:00 [显示全部帖子]

Tables("订单_table2").Filter = "[bz3] = 'd'"

为什么订单窗口中表无法过滤？

nbsugu_z

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：408 积分：3642 威望：0 精华：0 注册：2017/4/8 8:59:00

Post By：2020/5/20 12:10:00 [显示全部帖子]

老师，其实我要在同一个窗口中显示二个table 都是绑定同一个关联表的如：产品_订单

现在要做的是：第一个table1 显示产品_订单中收款标志列为1的内容，第二个table2显示产品_订单中收款标志列为2的内容

在窗口afteload代码中要如何写？

Tables("订单_table1").Filter = "[bz3] = '1'"

Tables("订单_table2").Filter = "[bz3] = '2'"

[此贴子已经被作者于2020/5/20 14:05:40编辑过]

nbsugu_z

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：408 积分：3642 威望：0 精华：0 注册：2017/4/8 8:59:00

Post By：2020/5/20 14:22:00 [显示全部帖子]

老师，删掉一个就可以了，为什么不能同时显示关联表呢？

Tables("订单_table1").Filter = "[bz3] = '1'"

Tables("订单_table2").Filter = "[bz3] = '2'"

以上都绑定同一个关联表的。删掉上面任意一行就可以的。又不能设置成副本（开关没反应的）

nbsugu_z

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：408 积分：3642 威望：0 精华：0 注册：2017/4/8 8:59:00

Post By：2020/5/20 15:30:00 [显示全部帖子]

无法在 System.String 和 System.Int32 上执行“=”操作。是什么原因引起？

nbsugu_z

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：408 积分：3642 威望：0 精华：0 注册：2017/4/8 8:59:00

Post By：2020/5/20 15:45:00 [显示全部帖子]

帮助中的产品编号是整数。我的是字符。应该如何转换

t.Filter = "产品编号 = " & .Current("产品编号")

e.DataRow("产品编号") = r("产品编号")

问题应该出在这里

[此贴子已经被作者于2020/5/20 15:51:50编辑过]

nbsugu_z

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：408 积分：3642 威望：0 精华：0 注册：2017/4/8 8:59:00

Post By：2020/5/20 16:05:00 [显示全部帖子]

窗口afteraoad代码

Dim t As Table = Tables("费用_Table2")

With Tables("wy_khb")

If .Current Is Nothing Then

t.Filter = "False"

Else

t.Filter = "khbh = " & .Current("khbh")

End If

End With

t.OpenView("default")

费用明细CurrentChanged事件代码

If Forms("费用").Opened() '一定要判断用于模拟关联表的窗口是否已经打开

    Dim t As Table = Tables("费用_Table2")
    With Tables("wy_khb")
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            t.Filter = "khbh = " & .Current("khbh")
        End IF
    End With
End If

费用明细的DataRowAdding事件代码设置为：

If CurrentTable.Name = "费用_Table2" Then '如果当前表是模拟的关联表
   Dim r As Row = Tables("wy_khb").Current
   If r IsNot Nothing Then
        e.DataRow("khbh") = r("khbh")
   End If
End If