Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

怎样可以对文本字段进行连接

心静自然成  发表于:2010-10-18 23:01:58  
复制

货号 库位   货号 库位
AC81R62 3-5-13 希望转换成 AC81R62 3-5-13,3-5-14
AC81R62 3-5-14    
 

 

Top
蒋元根 发表于:2010-10-19 11:23:25

合并记录为字符串的一个函数

--------------------------------------------------------------------------------
 按照t小雨老师的文章给你做了个例子,供参考


以下是 t小雨发表于2009-12-3 9:11:41 文章

 


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

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

点击下载此附件

心静自然成 发表于:2010-10-19 12:48:35

谢谢!将老师



心静自然成 发表于:2010-10-19 21:57:07

将老师:在用这个函数时,提示"用户定义类型未定义",请问这个问题下一步要怎样处理呢?



心静自然成 发表于:2010-10-19 22:02:08

点击下载此附件

使用过程中,会出现这样的提示



蒋元根 发表于:2010-10-20 01:04:10

供参考

1.看一下是否完整导入示例数据库中间的模块1

2.看一下查询里面表名和字段名称是否正确.

 

SELECT 表.货号, Count(表.库位) AS 库位计数, DMerge("[库位]","表","货号='" & [货号] & "'") AS 横向显示库位, DMerge("[库位]","表","货号='" & [货号] & "'",Chr(13) & Chr(10)) AS 竖向显示库位
FROM 表
GROUP BY 表.货号;

 

 

点击下载此附件

心静自然成 发表于:2010-10-20 07:37:03

谢谢!将老师,我再核对一下测试一下



心静自然成 发表于:2010-10-20 12:22:36

点击下载此附件

将老师:用你那文件是可能实现这种效果的,但是换另外一个文件就不行了,是不是跟定义变量以及数据类型有关呢?



蒋元根 发表于:2010-10-20 14:31:32
对不起,我没有安装access2007,打不开,你可以请教tx小雨老师或者其他老师.

心静自然成 发表于:2010-10-20 18:15:51

点击下载此附件

将老师:现在我转换成03版了,麻烦你抽空帮我看一下,谢谢!



蒋元根 发表于:2010-10-20 19:30:01

需要新增加引用:Microsoft ActiveX Data Objects 2.1

 

方法:

进入模块1的设计视图,

新增加引用:找出Microsoft ActiveX Data Objects 2.1            在前面的方框内点一下打上勾    再确定   表示引用该控件.

见窗体1

点击下载此附件

心静自然成 发表于:2010-10-20 23:44:59

谢谢蒋老师多次抽出宝贵时间帮我要分析问题并寻找问题解决方法,在此表示衷心的感谢!谢谢蒋老师:你



benhum 发表于:2011-06-11 13:24:24
很好, 不错, 谢谢分享.

总记录:12篇  页次:1/1 9 1 :