以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查询加载  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170088)
--  作者：seal51
--  发布时间：2021/7/12 11:30:00
--  查询加载
初始产品表只加载100行数据，产品窗口有个模糊查询，代码如下：
Dim txt As String = e.Form.Controls("产品查询").Text
Dim tbl As Table = Tables("产品列表")
If txt = "" Then
tbl.Filter = ""
Else
\'txt = "\'%" & txt & "%\'"
txt = "\'%" & txt.replace("%", "[%]") & "%\'"
tbl.Filter = "产品ID Like " & txt & " Or 缺省供应商 Like " & txt & " Or 销售产品ID Like " & txt & " Or 类别 Like " & txt & " Or 品牌 Like " & txt & "  Or 产品图号 Like " & txt & " Or 产品型号 Like " & txt & " Or 参考代号 Like " & txt & " Or 产品图号 Like " & txt & " Or 产品名称 Like " & txt & " Or 产品材料 Like " & txt & " Or 产品规格 Like " & txt & " Or 备注 Like " & txt
End If
如何查询出未加载的产品？
--  作者：有点蓝
--  发布时间：2021/7/12 11:39:00
--  
参考：http://www.foxtable.com/webhelp/topics/1928.htm
--  作者：seal51
--  发布时间：2021/7/12 16:30:00
--  
使用分页加载产品表，那么如何查询某个产品呢？
--  作者：有点蓝
--  发布时间：2021/7/12 16:36:00
--  
加上条件不就行了

With DataTables("订单")
    .LoadFilter = "产品=\'xxxx\'"
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With
--  作者：seal51
--  发布时间：2021/7/12 16:41:00
--  
比如200个产品，不会写200个加载条件吧， 
可能没说清楚， 如何从后台查询为加载的数据， 如图：

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20210712163956-11111.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2021/7/12 16:54:00
--  
Dim txt As String = e.Form.Controls("产品查询").Text
Dim tbl As Table = Tables("产品列表")
dim filter as string
If txt > "" Then
\'txt = "\'%" & txt & "%\'"
txt = "\'%" & txt.replace("%", "[%]") & "%\'"
filter = "产品ID Like " & txt & " Or 缺省供应商 Like " & txt & " Or 销售产品ID Like " & txt & " Or 类别 Like " & txt & " Or 品牌 Like " & txt & "  Or 产品图号 Like " & txt & " Or 产品型号 Like " & txt & " Or 参考代号 Like " & txt & " Or 产品图号 Like " & txt & " Or 产品名称 Like " & txt & " Or 产品材料 Like " & txt & " Or 产品规格 Like " & txt & " Or 备注 Like " & txt
End If
tbl.datatable.loadFilter = filter 
tbl.datatable.load