Foxtable(狐表) → 用户栏目 → 专家坐堂 → Label26作为查询


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

主题：Label26作为查询
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		Label26作为查询  发帖心情 Post By：2015/3/12 16:46:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("Label26")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "基本信息_在职企业号 = " & .Value    '此处内容自行修改
    End If
End With

能帮忙看看这个是那里不对吗 
感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/12 16:47:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("Label26")
    If .Text<> Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "基本信息_在职企业号 = '" & .Text & "'"    '此处内容自行修改
    End If
End With
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2015/3/12 20:46:00 [只看该作者]

谢谢 谢谢 
为什么连起后会报警呢？麻烦了
'Dim Filter As String
'With e.Form.Controls("Label26")
    'If .Text<> Nothing Then
        'If Filter > "" Then
            'Filter = Filter & " And "
        'End If
        'Filter = Filter & "基本信息_在职企业号 = '" & .Text & "'"    '此处内容自行修改
    'End If
'End With '用Label控件做为查询基础
'If Filter > "" Then
    'DataTables("企业档案窗口_Table2").LoadFilter = Filter
    'DataTables("企业档案窗口_Table2").Load
'End If
'Forms("企业档案窗口").Controls("TabControl1").SelectedIndex = 0  '点击后立刻显示TabControl的页面
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/12 20:47:00 [只看该作者]

报什么错
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2015/3/12 20:52:00 [只看该作者]


错误所在事件：加载[企业档案窗口_Table2]失败!
详细错误信息：
标准表达式中数据类型不匹配。
 感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/12 20:56:00 [只看该作者]

 此段代码不可能报错，若报错，就是你日期条件的问题，日期列，分隔符改成 #日期#

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2015/3/12 22:51:00 [只看该作者]

感谢 感谢 
能在帮我看看吗 ？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:查询测试.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/12 22:54:00 [只看该作者]

代码没有问题

 

Dim Filter As String
With e.Form.Controls("Label1")
    If .Text<> Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "第一列 = '" & .Text & "'"    '此处内容自行修改
    End If
End With '用Label控件做为查询基础
If Filter > "" Then
    Tables("窗口1_Table1").DataTable.LoadFilter = Filter
    Tables("窗口1_Table1").DataTable.Load
End If
'Forms("企业档案窗口").Controls("TabControl1").SelectedIndex = 0  '点击后立刻显示TabControl的页面
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2015/3/12 22:58:00 [只看该作者]

好的 我在检查检查  谢谢 早点休息

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2015/3/14 11:07:00 [只看该作者]

还是要报警 能在帮忙看看吗 感谢 感谢 

 回到顶部
总数 31 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询