Office中国论坛/Access中国论坛

标题: 一个难死人的查询问题，不信你看看！ [打印本页]

作者: fawkes 时间: 2012-12-5 17:23
标题: 一个难死人的查询问题，不信你看看！
如何实现一个查询，具体问题在附件窗体描述上，谢了，大侠们！

作者: ynjxw 时间: 2012-12-5 17:25
请参考论坛相关例子。

作者: fawkes 时间: 2012-12-5 19:43
找不到呢？
能否提供链接？

作者: fawkes 时间: 2012-12-5 19:53
不好意思，不好表达，请帮忙解决一下，老师

作者: 咱家是猫 时间: 2012-12-5 20:00
自己都懒得描述问题,我更懒得下载看.

作者: fawkes 时间: 2012-12-5 20:06
主要是通过查询，将相同产品的不良描述及不良数量汇集到一个文本中！可以看看数据库的表，通过查询达到窗体上的那个效果！谢了各位！

作者: hustnzj 时间: 2012-12-5 22:19

fawkes 发表于 2012-12-5 20:06
主要是通过查询，将相同产品的不良描述及不良数量汇集到一个文本中！可以看看数据库的表，通过查询达到窗体 ...

在Excel中会，换到Access中就不会了

作者: wufeng980114 时间: 2012-12-5 22:22
本帖最后由 wufeng980114 于 2012-12-5 22:24 编辑

我用了个笨办法给你解决了，你看看吧，请高手优化下。

作者: hustnzj 时间: 2012-12-6 06:53

wufeng980114 发表于 2012-12-5 22:22
我用了个笨办法给你解决了，你看看吧，请高手优化下。

不错，学习了

作者: hustnzj 时间: 2012-12-6 06:53
厉害，学习了。。。

作者: ynjxw 时间: 2012-12-6 08:51
Public Function DMerge(Exps As String, Domain As String, _
Optional Criteria As String, Optional Separator As String = "、") As String

'函数功能：  合并指定记录集指定字段值为一个字符串
'参数说明：
'  expr :       要合并的字段
'  domain :    来源表或查询
'  criteria :    可选,限制记录的条件表达式
'  Separator : 可选,合并记录的分隔符,默认为分号(;)
'
'调用示例：  DMerge("姓名","人员表","性别='" & [性别] & "'",Chr(13) & Chr(10))
'             以上示例在查询中，使用了换行分隔符，返回换行显示的姓名
'作    者：  t小雨
'创建时间：  2009/11/25

On Error Resume Next
Dim rst As New ADODB.Recordset
Dim strSql As String
Dim temp As String

strSql = "Select " & Exps & " From " & Domain
If Criteria <> "" Then strSql = strSql & " Where " & Criteria
rst.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdText

If Not rst.EOF Then
temp = rst.GetString(adClipString, , , Separator)
DMerge = Left(temp, Len(temp) - 1)
End If
rst.Close
Set rst = Nothing
End Function

作者: aslxt 时间: 2012-12-6 08:54
看了，确实是难“死人”的查询问题！

作者: wufeng980114 时间: 2012-12-6 18:50

ynjxw 发表于 2012-12-6 08:51
Public Function DMerge(Exps As String, Domain As String, _
Optional Criteria As String, Optiona ...

学习了

作者: hustnzj 时间: 2012-12-6 20:14

ynjxw 发表于 2012-12-6 08:51
Public Function DMerge(Exps As String, Domain As String, _
Optional Criteria As String, Optiona ...

太牛了，成功了，多谢。
[attach]50860[/attach]

作者: seanone 时间: 2012-12-7 08:51
这算什么,这是想让别人帮你顶贴,无聊!!

作者: fawkes 时间: 2012-12-7 19:48

wufeng980114 发表于 2012-12-5 22:22
我用了个笨办法给你解决了，你看看吧，请高手优化下。

感谢高手帮助，你的帮助让我解决了这个难题，真高兴，太感谢了！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)