- 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=145149)
-- 发布时间：2020/1/9 19:47:00
-- 加一个筛选范围：“窗口表”中的“客户名称”列，要与焦点所在行的“客户名称”相同，应该怎么改？
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "客户ID Like " & txt
End If
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框
以上代码是筛选出“窗口表”当前行的“客户ID列”的模糊搜索，
那么，要在这之前加一个筛选范围：“窗口表”中的“客户名称”列，要与焦点所在行的“客户名称”相同，应该怎么改？
[此贴子已经被作者于2020/1/9 19:47:26编辑过]
-- 发布时间：2020/1/10 8:42:00
--
求帮助
-- 发布时间：2020/1/10 9:21:00
--
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "客户ID Like " & txt & " and 客户名称=\'" & e.Form.Droptable.current("客户名称") & "\'"
End If
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框
-- 发布时间：2020/1/10 19:30:00
-- 回复：（有点蓝）Dim txt As String = e.Form.DropDow...
此主题相关图片如下：p@)mnzaz`ye{)za$9gk)g.png
下拉窗口的焦点输入单元格内的值无法更改呢？
每次有改动，都会提示以上错误？
-- 发布时间：2020/1/10 19:35:00
-- 回复：（fengwenliuyan）回复：（有点蓝）Dim txt As ...
ChangeEdit，中出错的代码如下：
If e.Col.Name = "品名规格" Then \'如果编辑的是品名规格列
If e.Col.DroppedDown Then \'如果下拉窗口已经打开
Dim tbl As Table = Tables("下拉窗口_意和表")
If e.Text = "" Then \'如果内容为空
tbl.Filter = "" \'显示所有客户
Else \'否则根据输入内容进行模糊筛选
Dim txt As String = "\'%" & e.Text & "%\'"
\' tbl.Filter = "品名规格 Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
tbl.Filter = "品名规格 Like " & txt & " and 客户=\'" & e.Form.Droptable.current("客户") & "\'"
End If
End If
End If
-- 发布时间：2020/1/10 19:49:00
-- 回复：（fengwenliuyan）回复：（fengwenliuyan）回复...
我做了一个测试项目，放上来了，错误提示也是相同的，求帮助！？
-- 发布时间：2020/1/10 20:00:00
--
求帮助 ？
-- 发布时间：2020/1/10 20:18:00
--
If e.Col.Name = "品名规格" Then \'如果编辑的是品名规格列
If e.Col.DroppedDown Then \'如果下拉窗口已经打开
Dim tbl As Table = Tables("下拉窗口_意和表")
If e.Text = "" Then \'如果内容为空
tbl.Filter = "客户=\'" & e.Row("客户") & "\'" \'显示所有客户
Else \'否则根据输入内容进行模糊筛选
Dim txt As String = "\'%" & e.Text & "%\'"
\' tbl.Filter = "品名规格 Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
tbl.Filter = "品名规格 Like " & txt & " and 客户=\'" & e.Row("客户") & "\'"
End If
End If
End If