- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125919)
-- 发布时间：2018/10/9 21:10:00
-- [求助]筛选
老师好，录入窗口按钮根据设备窗口单元格字段打开信息窗口并定位筛选。下面代码是根据本窗口按钮打开信息窗口定位筛选的。
e.Form.DropDownBox.CloseDropdown(False)
Dim r As Row = e.Form.Controls("Table1").Table.Current
If r IsNot Nothing Then
Forms("制造商信息完善").Open()
Tables("制造商信息完善_Table1").Filter = "[_Identify] = " & r("_Identify")
End If
此主题相关图片如下：图像 089.png
-- 发布时间：2018/10/9 21:35:00
--
没看懂，是什么问题？
-- 发布时间：2018/10/9 22:04:00
--
窗口2的按钮代码能打开窗口3并根据窗口1_Table1单元格字段在窗口3中筛选出窗口1_Table1的相同字段
e.Form.DropDownBox.CloseDropdown(False)
Dim r As Row = e.Form.Controls("Table1").Table.Current
If r IsNot Nothing Then
Forms("窗口3").Open()
Tables("窗口3_Table1").Filter = "[_Identify] = " & r("_Identify")
End If
-- 发布时间：2018/10/9 22:09:00
--
还是没看懂。
如果不是同一个表，不要使用_Identify做查询，无法对应的
-- 发布时间：2018/10/9 22:32:00
--
窗口2的按钮打开窗口3并根据窗口1单元格的字段在窗口3中筛选出和窗口1相同的字段进行编辑修改。目的是在窗口3中完善客户信息内容。
-- 发布时间：2018/10/9 22:44:00
--
请上传具体实例说明
-- 发布时间：2018/10/10 8:51:00
--
老师，窗口2按钮希望能根据窗口1定位筛选
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:定位筛选.table |
-- 发布时间：2018/10/10 9:09:00
--
e.Form.DropDownBox.CloseDropdown(False)
Dim r As Row = forms("窗口1").Controls("Table1").Table.Current
If r IsNot Nothing Then
Forms("窗口3").Open()
Tables("窗口3_Table1").Filter = "第一列 = \'" & r("第一列") & "\'"
End If
-- 发布时间：2018/10/10 10:30:00
--
老师好，上面代码报错被筛选的表是引用表
此主题相关图片如下：图像 093.png
此主题相关图片如下：图像 094.png
[此贴子已经被作者于2018/10/10 10:32:48编辑过]
-- 发布时间：2018/10/10 11:04:00
--
列名不正确，用了其他表的列名