ACCESS怎么样合并行?

GLW

参看七楼

hqh21

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


语法
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

这里的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

yk188cm

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

misaiee

knenko

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

freeexcelhome

不错，思路非常好

lbhluntan

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

HUANGHAI

七楼正解，学习了!!