Foxtable(狐表)用户栏目专家坐堂 → [求助] 动态字段的查询


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

主题:[求助] 动态字段的查询

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


加好友 发短信
等级:三尾狐 帖子:630 积分:7196 威望:0 精华:1 注册:2013/11/26 7:49:00
[求助] 动态字段的查询  发帖心情 Post By:2014/3/13 8:17:00 [只看该作者]

 For Each s As String In ns
        If s<> "姓名"  And s<>"单据编号" And s<>"员工编号" Then
           
            With Tables("表D")
                Dim r As Integer
                r = .FindRow(" [" & s & "] > 0" ,0 ,True) '从第一行开始查找
                If r >= 0 Then '如果找到的话
                    MessageBox.Show(.position)'定位到找到的行.
                Else
                End If
            End With
           
        End If
    Next
表D是临时表,字段不确定。请问一下,红色代码有语法错误吗? 如果要实现 r = .FindRow(" [" & ns(0) & "] > 0" and  [" & ns(1) & "] and [" & ns(3) & "]...and [" & ns(ns.count-1) & "])  这样查询符合条件的行,代码要怎么修改啊?

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/13 8:38:00 [只看该作者]

你字符串片接没错.你确定你变量里面的条件正确吗?

你把拼接的字符串 利用messagebox.show 弹出来看看是否符合你要求.

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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/3/13 17:53:00 [只看该作者]

除了注意列名要正确,还有你这些列,确定都是数值型,而不是字符型?

如果是字符型,不能和数字0比较,只能和字符'0'比较。

 

还有提问的时候,最好贴出错误提示,或者直接在错误提示窗口抓图贴上来。

 


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


加好友 发短信
等级:三尾狐 帖子:630 积分:7196 威望:0 精华:1 注册:2013/11/26 7:49:00
  发帖心情 Post By:2014/3/14 11:19:00 [只看该作者]

谢谢狐狸爸爸

 回到顶部