Label26作为查询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4533人关注过本帖树形打印复制链接主题：Label26作为查询

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/12 20:47:00 [显示全部帖子]

报什么错

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/12 20:56:00 [显示全部帖子]

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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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的页面

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/16 20:03:00 [显示全部帖子]

可以用。

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/16 20:08:00 [显示全部帖子]

不可能不能用。

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/16 20:34:00 [显示全部帖子]

以下是引用yangwenghd在2015/3/16 20:19:00的发言：
是我搞错了能用的就是把绑定的表格类型换了SQLTable就无效了感谢感谢

呃，现在是能用还是不能用？弄成SqlTable以后，首先，是要设置sql语句的。

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/18 11:20:00 [显示全部帖子]

呃，你绑定表列了？不然，你为什么要控制它隐藏。

如果绑定了表列，你可以直接用表当前行的数据啊

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/18 11:46:00 [显示全部帖子]

If Tables("企业档案").Current.IsNull("编号") = false Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "基本信息_在职企业号 = '" & Tables("企业档案").Current("编号") & "'"
End If

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/18 12:17:00 [显示全部帖子]

以下是引用yangwenghd在2015/3/18 11:59:00的发言：
感谢你

可以用不可见但是还是有效吗？

感谢感谢因为TextBox7还有其他作用

感谢感谢

可以

下一主题 >> << 上一主题

总数 13 1 2 下一页

主题：Label26作为查询