- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=35691)
-- 发布时间：2013/6/30 14:28:00
-- [求助]
我要做一个查询的控件 窗口 老是出错 请教高手 错在哪里？？应该怎么改呀
MZHM872B04]4D0AT.jpg)
J3%605M.jpg)
-- 发布时间：2013/6/30 14:49:00
--
把你的项目实例精简后发上来，图片看不见，就是看的见，也不如例子来的快。
-- 发布时间：2013/6/30 16:29:00
-- [求助]
我要做一个 维修数据登记录入 的项目 这俩天刚学 做了一个查询的窗口 现在做出来的查询窗口 导出按钮 维修员 日期查询 有问题
请高手 师兄帮忙 看看什么问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:维修数据登记表.zip |
-- 发布时间：2013/6/30 18:37:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:维修数据登记表.zip |
-- 发布时间：2013/7/20 11:40:00
--
我做了一个查询窗口，老是出错，请高手帮忙解决指导一下，急 我的代码：Dim khmc As String = e.Form.Controls("客户名称").ValueDim jzmc As String = e.Form.Controls("机种名称").Value
Dim tm As String = e.Form.Controls("条码").Value
Dim ksrq,jsrq As Date
If e.Form.Controls("开始日期").Value = Nothing
ksrq = #01/05/1901#
Else
ksrq = e.Form.Controls("开始日期").Value
End If
If e.Form.Controls("结束日期").Value = Nothing
jsrq = #12/25/2099#
Else
jsrq = e.Form.Controls("结束日期").Value
End If
ksrq = ksrq.AddDays(-1)
jsrq = jsrq.AddDays(1)
Dim Filter As String
If jzmc <> ""
Filter = "客户名称 = \'" & khmc & "\'"
End If
If jzmc <> ""
If Filter = ""
Filter = "机种名称 = \'" & jzmc & "\'"
Else
Filter = Filter & " and 机种名称 = \'" & jzmc & "\'"
End If
End If
If tm <> ""
If Filter = ""
Filter = "条码 = \'" & tm & "\'"
Else
Filter = Filter & " and 条码 = \'" & tm & "\'"
End If
End If
If Filter = ""
Filter = "日期 > #" & ksrq & "# and 日期 < #" & jsrq & "#"
Else
Filter = Filter & " and 日期 > #" & ksrq & "# and 日期 < #" & jsrq & "#"
End If
Tables("客户信息表").Filter = Filter
[此贴子已经被作者于2013-7-20 11:42:35编辑过]
-- 发布时间：2013/7/20 11:41:00
--
图挂了
此主题相关图片如下：上传图片请参考这里.gif