以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教关于关联的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=164232)

--  作者:weipeng6999
--  发布时间:2021/4/30 13:50:00
--  请教关于关联的问题

老师好!

 

  我现在在一个窗口中有两张表,两张表中没有相同的字段。我想在一张表中“名称”列点击一个单元格后,在另外一张表中能模糊筛选出对应的行,请问思路改怎么做?

 

 

例如:点击一张表中的“华为手机”,另一张表中对应筛选出“手机”


--  作者:有点蓝
--  发布时间:2021/4/30 13:59:00
--  
有没有什么规律?比如:华为手机,小米手机都有手机2个字,如果说单元格就华为2个字就没有办法了,
--  作者:weipeng6999
--  发布时间:2021/4/30 14:05:00
--  
都有手机两个字 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table
 
例如:我点击表A的华为手机,表B筛选出“手机1”、“手机2” ,请问应该在哪个事件里面怎么写?
[此贴子已经被作者于2021/4/30 14:29:05编辑过]

--  作者:有点蓝
--  发布时间:2021/4/30 14:30:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.zip


--  作者:weipeng6999
--  发布时间:2021/4/30 14:37:00
--  
谢谢蓝老师
--  作者:weipeng6999
--  发布时间:2021/5/12 11:25:00
--  
老师!

    我屏蔽elseif后,运行报错误,请教该如何处理。
.NET Framework 版本:4.0.30319.1
Foxtable 版本:2020.5.29.8
错误所在事件:
详细错误信息:
Syntax error: Missing operand after \'Like\' operator.


If e.Table.Current Is Nothing Then \'如果Current为Nothing
    Return \'则返回
End If

Dim s As String
If e.Table.Current("名称") Like "*手机*" Then
s = "\'%手机%\'"
\'ElseIf e.Table.Current("名称") Like "*电脑*" Then
\'s = "\'%电脑%\'"
End If

Tables("表B").Filter = "标准名称 like" & s

--  作者:有点蓝
--  发布时间:2021/5/12 11:40:00
--  
Dim s As String
If e.Table.Current("名称") Like "*手机*" Then
s = "\'%手机%\'"
\'ElseIf e.Table.Current("名称") Like "*电脑*" Then
\'s = "\'%电脑%\'"
End If
if s > "" then
Tables("表B").Filter = "标准名称 like" & s
end if