下面的查询如何实现，请高人指点

olderdream2007@

下面的查询如何实现，请高人指点？

如何通过查询（或其它方式） 把“表1”变为“表2： 。谢谢

todaynew

写一个自定义函数，返回字符串即可。

yanwei82123300

搜索合并文本框

olderdream2007@

todaynew 发表于 2013-3-23 16:30
写一个自定义函数，返回字符串即可。

请高人指点如何写自定义函数？非常感谢

netguestcn

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

On Error Resume Next
    Dim rst As New ADODB.Recordset
    Dim strSql 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 Dmerge = rst.GetString(adClipString, , , Separator)
    rst.Close
    Set rst = Nothing
End Function

netguestcn

一个不用循环实现的合并记录为字符串的函数,可在查询中调用

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

On Error Resume Next
    Dim rst As New ADODB.Recordset
    Dim strSql 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 Dmerge = rst.GetString(adClipString, , , Separator)
    rst.Close
    Set rst = Nothing
End Function

roych

4楼的帖子实例：http://www.office-cn.net/thread-78466-1-1.html
2楼的帖子实例：http://www.office-cn.net/thread-96091-1-1.html

mclly2000

谢谢版主

olderdream2007@

mclly2000 发表于 2013-3-25 09:17
谢谢版主

谢谢各位高人的指点 学习中学习中

5574916

这个案例很不错，学习学习,谢谢大家分享