select
A.GroupSeq,
replace(( select name as [data()]
from Table
where A.GroupSeq=GroupSeq
for xml path(”)),’ ‘,’,’) as Member
from [Table] as A
group by GroupSeq
VBA二次元配列
Public Function theSuccessTest()
Dim Str As String
Str = “a,b,c,d,e,f,g”
Dim Ary() As String
Ary = Split(Str, “,”)
Debug.Print UBound(Ary, 1)
Dim Ary2() As String
ReDim Ary2(0, 3)
Ary2(0, 0) = “a”
Ary2(0, 1) = “b”
Ary2(0, 2) = “c”
ReDim Preserve Ary2(1, 3)
Ary2(1, 0) = “d”
Ary2(1, 1) = “e”
Ary2(1, 2) = “f”
Debug.Print UBound(Ary2, 1)
Debug.Print UBound(Ary2, 2)
End Function
こういう風に今までやってきたのだが検索すると
二次元の順番が逆?? 混乱
Public Function theFailureTest()
Dim Str As String
Str = “a,b,c,d,e,f,g”
Dim Ary() As String
Ary = Split(Str, “,”)
Debug.Print UBound(Ary, 1)
Dim Ary2() As String
ReDim Ary2(3, 0)
Ary2(0, 0) = “a”
Ary2(1, 0) = “b”
Ary2(2, 0) = “c”
ReDim Preserve Ary2(3, 1)
Ary2(0, 1) = “d”
Ary2(1, 1) = “e”
Ary2(2, 1) = “f”
Debug.Print UBound(Ary2, 1)
Debug.Print UBound(Ary2, 2)
End Function
いやいやこっちはなぜかできない
イメージはExcelの経時表
Accessのテーブルをイメージしたらだめ・・なのか?