以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多表查询代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161611)
--  作者：qinlao666
--  发布时间：2021/3/24 11:56:00
--  多表查询代码

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20210324120337.jpg
图片点击可在新窗口打开查看


老师求代码，在线等！谢谢

 


    
[此贴子已经被作者于2021/3/24 12:05:13编辑过]
--  作者：有点蓝
--  发布时间：2021/3/24 12:04:00
--  
没看懂，请详细描述一下，要做什么功能达到什么效果
--  作者：qinlao666
--  发布时间：2021/3/24 12:39:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


上传简单列子，不知道是否能描述清楚
--  作者：有点蓝
--  发布时间：2021/3/24 13:49:00
--  
只能做加载，无法做筛选，比如

\'\'\'
DataTables("表B").LoadFilter = "流量=\'1\' and exists (select * from {表A} as a where a.用途=\'润滑\' and \'、\' + a.系列 + \'、\' like \'%、\' + {表B}.系列 + \'、%\')"
DataTables("表B").Load

使用sql表示就是
select * from {表B} where 流量=\'1\' and exists (select * from {表A} as a where a.用途=\'润滑\' and \'、\' + a.系列 + \'、\' like \'%、\' + {表B}.系列 + \'、%\')
--  作者：qinlao666
--  发布时间：2021/3/24 16:37:00
--  


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20210324155230.jpg
图片点击可在新窗口打开查看

老师，如果我把表A,调整上图的模式，能不能实现筛选功能

[此贴子已经被作者于2021/3/24 16:38:03编辑过]
--  作者：有点蓝
--  发布时间：2021/3/24 16:43:00
--  
可以这样处理,分2次

Dim s As String = DataTables("表A").GetComboListString("系列","用途=’点火‘")
Tables("表B").Filter = “流量=\'1\' and 系列 in (\'" & s.replace("|","\',\'") & "\')”
[此贴子已经被作者于2021/3/24 16:42:41编辑过]
--  作者：qinlao666
--  发布时间：2021/3/24 18:12:00
--  

谢谢老师，麻烦再帮我看一下下面的代码，哪里有问题？

If e.Form.Controls("用途").Text Is  Nothing Then
    Tables("表B").Filter = "流量=\'"& e.Form.Controls("流量").Text & " \'"
Else
    Dim s As String = DataTables("表A").GetComboListString("系列","用途= \'"& e.Form.Controls("用途").Text & " \'")
    Tables("表B").Filter = "流量=\'"& e.Form.Controls("流量").Text & " \' and 系列 in (\'" & s.replace("|","\',\'") & "\')"  
End If

 

这个判断语句 用途为空值时，执行不了
--  作者：有点蓝
--  发布时间：2021/3/25 8:13:00
--  

If e.Form.Controls("用途").Text = "" Then
    Tables("表B").Filter = "流量=\'"& e.Form.Controls("流量").Text & "\'"
Else
    Dim s As String = DataTables("表A").GetComboListString("系列","用途= \'"& e.Form.Controls("用途").Text & "\'")
    Tables("表B").Filter = "流量=\'"& e.Form.Controls("流量").Text & "\' and 系列 in (\'" & s.replace("|","\',\'") & "\')"  
End If