Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有3202人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
起个好名
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:14 积分:161 威望:0 精华:0 注册:2017/6/20 12:22:00
[求助]  发帖心情 Post By:2017/6/23 22:43:00 [只看该作者]

求助  在类别组合框下拉选择类别,在另一个文本框控件输入相应类别,然后查询,但是出现

.NET Framework 版本:2.0.50727.8745
Foxtable 版本:2017.3.18.1
错误所在事件:加载[人员信息表]失败!
详细错误信息:
语法错误 (操作符丢失) 在查询表达式 '(编号 = '姓名'and姓名 = '张')' 中。



Dim nms() As String={"Comxiangmu","Texneirong"}
Dim sps() As String={"'","'"}
Dim BJF() As String={" = ", " = "}
Dim fds() As String = {"编号","姓名","职务","学历","性别"}
Dim Filter As String
For i As Integer = 0 To nms.length - 1
  If e.Form.controls(nms(i)).value IsNot Nothing Then
     If filter >"" Then
         filter=filter & "and"
     End If
     filter= filter & fds(i) & bjf(i) & sps(i) & e.Form.controls(nms(i)).value & sps(i)
   End If
Next
DataTables("人员信息表").loadfilter = filter
DataTables("人员信息表").load()

 回到顶部
帅哥哟,离线,有人找我吗?
wyz20130512
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1249 积分:9480 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2017/6/23 22:48:00 [只看该作者]

传实例

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/23 23:06:00 [只看该作者]

加上必要的空格,不要全部挤到一起

filter=filter & "  and  "

 回到顶部
帅哥哟,离线,有人找我吗?
起个好名
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:14 积分:161 威望:0 精华:0 注册:2017/6/20 12:22:00
  发帖心情 Post By:2017/6/23 23:07:00 [只看该作者]

这就是实例,但是图片上传不了。实例就是   
   有一个人员信息表,设置查询功能,先选择查询类别,如,姓名,学历等,然后在输入具体的姓氏或学历,代码如上,有错,但不知道咋改

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/23 23:10:00 [只看该作者]

看3楼

 回到顶部
帅哥哟,离线,有人找我吗?
起个好名
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:14 积分:161 威望:0 精华:0 注册:2017/6/20 12:22:00
  发帖心情 Post By:2017/6/23 23:33:00 [只看该作者]

提示错误信息 人员信息表加载失败,是代码有错吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/24 8:44:00 [只看该作者]

改之后的代码和错误提示重新发上来

 回到顶部
帅哥哟,离线,有人找我吗?
起个好名
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:14 积分:161 威望:0 精华:0 注册:2017/6/20 12:22:00
  发帖心情 Post By:2017/6/24 10:31:00 [只看该作者]

.NET Framework 版本:2.0.50727.8745
Foxtable 版本:2017.3.18.1
错误所在事件:加载[人员信息表]失败!
详细错误信息:
至少一个参数没有被指定值。


Dim nms() As String={"Comxiangmu","Texneirong"}
Dim sps() As String={"'","'"}
Dim BJF() As String={" = ", " = "}
Dim fds() As String = {"编号","姓名","职务","学历","性别"}
Dim Filter As String
For i As Integer = 0 To nms.length - 1
  If e.Form.controls(nms(i)).value IsNot Nothing Then
     If filter >"" Then
         filter=filter & "and "
     End If
     filter= filter & fds(i) & bjf(i) & sps(i) & e.Form.controls(nms(i)).value & sps(i)
   End If
Next
DataTables("人员信息表").loadfilter = filter
DataTables("人员信息表").load()

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/24 10:45:00 [只看该作者]

前后都加上空格啊

filter=filter & "          and              "

msgbox(filter)弹出完整筛选条件看看

 回到顶部