| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何编写查询代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84894) |
| -- 作者：zhangning -- 发布时间：2016/5/12 16:31:00 -- 如何编写查询代码 我建立了一个窗口 其中的查询条件是：查询姓名，部门别，分类，开始日，结束日 我写了以下开始查询按键代码，不对，请各位帮看看哪里出问题了，谢谢！ Dim cxxm As WinForm.Label = e.Form.Controls("查询姓名") Dim ssbm As WinForm.Label = e.Form.Controls("所属部门") Dim cqxx As WinForm.ComboBox = e.Form.Controls("出勤选项") Dim ksrq As WinForm.DateTimePicker = e.Form.Controls("开始日期") Dim jsrq As WinForm.DateTimePicker = e.Form.Controls("结束日期") Tables"出勤信息表".filter = "查询姓名 = \'" & cxxm.text & "\'And 部门别 = \'" & ssbm.text & "\'And 分类 = \'" & cqxx.text & "\'And 开始日 = \'" #ksrq# &"\'And 结束日 = \'"#jsrq#"\'"
|
| -- 作者：zhangning -- 发布时间：2016/5/12 16:38:00 -- 请各位给看看，很着急，非常感谢了 |
| -- 作者：zhangning -- 发布时间：2016/5/12 16:42:00 -- 想要达到的目的： 1.在开始日和结束日期间内，输入姓名人员的出勤类别信息 要显示出来 2.或在开始日和结束日期间内，输入部门名称的出勤类别信息 要显示出来 |
| -- 作者：大红袍 -- 发布时间：2016/5/12 16:42:00 -- Dim cxxm As WinForm.Label = e.Form.Controls("查询姓名") [此贴子已经被作者于2016/5/12 16:55:36编辑过]
|
| -- 作者：大红袍 -- 发布时间：2016/5/12 16:42:00 -- 正确的代码这样做
http://www.foxtable.com/help/topics/1058.htm
|
| -- 作者：zhangning -- 发布时间：2016/5/12 16:46:00 -- 非常感谢，我刚才运行了一下，出现运行错误：表达式包含无效的日期常量“#2016/5/12\'”。 |
| -- 作者：zhangning -- 发布时间：2016/5/12 16:48:00 -- 啊呀，我就想弄成这样的，我马上试试，谢谢！ |
| -- 作者：大红袍 -- 发布时间：2016/5/12 16:55:00 -- Tables("出勤信息表").filter = "查询姓名 = \'" & cxxm.text & "\' And 部门别 = \'" & ssbm.text & "\' And 分类 = \'" & cqxx.text & "\' And 开始日 >= #" & ksrq.Value &"# And 结束日 <= #" & jsrq.Value & "#" |
| -- 作者：大红袍 -- 发布时间：2016/5/12 16:56:00 -- 尽量参考3楼的代码去写。 |
| -- 作者：zhangning -- 发布时间：2016/5/13 5:54:00 -- 大红袍老师，您好，我按照筛选的日期代码： With e.Form.Controls("StartDate") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "事件开始日 >= #" & .Value & "#" End If End With With e.Form.Controls("EndDate") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "事件开始日 <= #" & .Value & "#" End If End With 来筛选，出现以下错误提示： 该字符串未被识别为有效的 DateTime。有一个从索引 10 处开始的未知字。 请老师帮我看看，问题出在哪里？谢谢！
|