ACCESS怎么样合并行?

GLW · 发表于 2008-11-23 19:48

参看七楼

hqh21 · 发表于 2008-11-27 16:48

这是我搜到的讲解,但不太一样?

语法
GetStr(SourceStr,StrBegin,StrEnd,IsCut)
参数
名称数据类型描述

--------------------------------------------------------------------------------

返回值 String 必需。检索结果，返回空串表示找不到

--------------------------------------------------------------------------------

SourceStr String 必需。源字符串

--------------------------------------------------------------------------------

StrBegin String 必需。起始标记

--------------------------------------------------------------------------------

StrEnd String 可选。结束标记

--------------------------------------------------------------------------------

IsCut Boolean 可选。设定是否在获取后将源字符串中被检索到的字符串及起始及结束标记部分截掉

--------------------------------------------------------------------------------

示例
strAnyone = "1中在中山一路28号"
?GetStr(strAnyone, "1中在", "28号", False)
中山一路
?GetStr(strAnyone, "", "28号", False)
1中在中山一路
?GetStr(strAnyone, "中山", "", False)
一路28号
?strAnyone
1中在中山一路28号
?GetStr(strAnyone, "1", "在", True)
中
?strAnyone
中山一路28号

zez · 发表于 2008-11-27 19:29

这里的getstr是GLW的自定义函数:
Function getstr(str1 As String) As String
Dim mydb As DAO.Database
Dim myrst As DAO.Recordset
Dim str As String
Set mydb = CurrentDb
Set myrst = mydb.OpenRecordset("SELECT " & str1 & " ,定制产品 from 表一 where 会员卡号='" & str1 & "'")
myrst.MoveFirst
Do While Not myrst.EOF
str = str & myrst(1) & "/"
myrst.MoveNext
Loop
getstr = Left(str, Len(str) - 1)

End Function

GLW · 发表于 2008-11-27 20:54

yk188cm · 发表于 2008-11-28 02:23

学习了，谢谢~~~！！！

misaiee · 发表于 2009-8-11 09:48

knenko · 发表于 2009-12-27 21:39

我也正在找类似的功能，学习下，看看能不能用得上。谢谢

freeexcelhome · 发表于 2010-5-10 15:16

不错，思路非常好

lbhluntan · 发表于 2010-12-22 10:42

学习学习，这问题不好解决

HUANGHAI · 发表于 2010-12-22 11:25

七楼正解，学习了!!

		自动登录	找回密码
密码			免费注册

ACCESS怎么样合并行?

回复 10楼 purity0401 的帖子

请GLW详解下这个函数,你的参数好像少二个?

回复 12楼 hqh21 的帖子

回复 13楼 zez 的帖子

回复 13楼 zez 的帖子

11