- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- Label26作为查询 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65269)
-- 发布时间：2015/3/12 16:46:00
-- Label26作为查询
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
能帮忙看看这个是那里不对吗
感谢 感谢
-- 发布时间：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
-- 发布时间：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的页面
-- 发布时间：2015/3/12 20:47:00
--
报什么错
-- 发布时间：2015/3/12 20:52:00
--
错误所在事件：加载[企业档案窗口_Table2]失败!
详细错误信息：
标准表达式中数据类型不匹配。
感谢 感谢
-- 发布时间：2015/3/12 20:56:00
--
此段代码不可能报错，若报错，就是你日期条件的问题，日期列，分隔符改成 #日期#
-- 发布时间：2015/3/12 22:51:00
--
感谢 感谢
能在帮我看看吗 ？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:查询测试.table |
-- 发布时间：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的页面
-- 发布时间：2015/3/12 22:58:00
--
好的 我在检查检查 谢谢 早点休息
-- 发布时间：2015/3/14 11:07:00
--
还是要报警 能在帮忙看看吗 感谢 感谢