- 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=56324)
-- 发布时间：2014/9/3 10:58:00
-- 未找到列 的问题
我的表里明明有开发采购员这一项的，怎么会弹出未找到列 【开发采购员】，不解，望赐教。
此主题相关图片如下：qq图片20140903105539.jpg
-- 发布时间：2014/9/3 11:13:00
--
要把文件发上来才能知道怎么回事.
显示详细信息,至少勾上截图出来看看.
错误对应事件的代码发出来看看.
总之,提供的信息越多,越容易,越快帮你解决问题. 反之越慢
-- 发布时间：2014/9/3 11:30:00
--
这个是查询按钮中click事件代码。
Dim dq As WinForm.ComboBox = e.Form.Controls("地区")
Dim dj As WinForm.ComboBox = e.Form.Controls("供应商等级")
Dim lb As WinForm.ComboBox = e.Form.Controls("供应商类别")
Dim tj As WinForm.TextBox = e.Form.Controls("搜索条件")
Dim filter As String = GYS_Filter
\'如果地区为空,则不进行搜索
If dq.value IsNot Nothing Then
filter=filter & " and "
filter=filter & "地区=\'" & dq.value & "\'"
End If
\'如果供应商等级为空,则不进行搜索
If dj.value IsNot Nothing Then
filter=filter & " and "
filter=filter & "供应商等级=\'" & dj.value & "\'"
End If
\'如果供应商类别为空,则不进行搜索
If lb.value IsNot Nothing Then
filter=filter & " and "
filter=filter & "供应商类别=\'" & lb.value & "\'"
End If
\'如果搜索内容为空,则不进行搜索
If tj.value IsNot Nothing Then
Filter = Filter & " And "
Dim kh As String
kh = "*" & tj.text & "*"
filter=filter & cexp("供应商全称 like \'{0}\' or 电话 like \'{1}\' or 供应商主营 like \'{2}\' or 供应商编号 like \'{3}\'" , kh , kh , kh, kh )
End If
Tables("客户").Filter=Filter
此主题相关图片如下：qq截图20140903112650.png
此主题相关图片如下：qq图片20140903105539.jpg
项目属性loaduser事件代码为：
GYS_Filter="开发采购员 = \'" & user.name & "\'" \'定义全局变量,用于客户的筛选的初始内容.
-- 发布时间：2014/9/3 11:32:00
--
表结构是这样的，有这个开发采购员的这一列
此主题相关图片如下：qq截图20140903113152.png
-- 发布时间：2014/9/3 11:36:00
--
点击查询按钮就报错? Messagebox.SHOW(FILTER) 弹出Filter看看 你拼接出来的条件
-- 发布时间：2014/9/3 11:58:00
--
你最后筛选的表是【客户】表，你确定你的客户表有这一列？
Tables("客户").Filter=Filter
-- 发布时间：2014/9/3 12:48:00
--
问题就出在这儿了，那边表名没改过来
-- 发布时间：2014/9/3 12:49:00
--
我太粗心了
感谢ing！！！！