搜索明细表，列出对应关系 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 搜索明细表，列出对应关系

共有2179人关注过本帖树形打印复制链接主题：搜索明细表，列出对应关系

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/24 12:31:00 [显示全部帖子]

这个意思？

Dim d As Table = Tables("到货物检_table1")

txt = "'%" & txt & "%'"

tbl.Filter = "到货单据号 = '" & d.Current("到货单据号") & "' and 物供号 Like " & txt

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/24 16:16:00 [显示全部帖子]

1、CurrentChanged 事件的代码不能写。

2、参考代码

Dim t As Table = Tables("到货物检_table2")
Dim str = t.DataTable.GetComboListString("到货物检单号", "物供号='1001'")
str = str.replace("|", "','")
t.Filter = "到货物检单号 in ('" & str & "')"

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/25 9:37:00 [显示全部帖子]

具体实例发上来测试。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/25 13:19:00 [显示全部帖子]

Dim txt As String = Forms("到货物检").Controls("TextBox2").Text
Dim tbl As Table = Tables("到货物检_Table2")
Dim tbl1 As Table = Tables("到货物检_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    Dim str = tbl.DataTable.GetComboListString("到货单据号", "适用款号 Like " & txt & " or convert(物供号, 'System.String') Like " & txt & " or 采购单号 Like " & txt)
    str = str.replace("|", "','")
    tbl.Filter = "到货单据号 in ('" & str & "')"
End If

下一主题 >> << 上一主题

主题：搜索明细表，列出对应关系