以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  反向检索  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161201)

--  作者:hitzfeld
--  发布时间:2021/3/9 17:35:00
--  反向检索
程序界面是个窗口,上半截显示主表,下半截显示父表对应的子表(父表.子表)
通过textbox控件要检索并显示的是子表,同时加载父表内容没办法。比如下面代码:
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("订单明细")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "单号 Like "& txt  
End If

其中订单明细是子表,单号是属于子表的字段,但是输入单号系统没有任何反应,要怎么才能加载?

--  作者:有点蓝
--  发布时间:2021/3/9 17:49:00
--  
Dim txt As String = e.Form.Controls("TextBox1").Text
If txt = "" Then
    dataTables("订单明细").LoadFilter = ""
Else
    txt = "\'%" & txt & "%\'"
    dataTables("订单明细").LoadFilter = "单号 Like "& txt  
End If
dataTables("订单明细").Load