กระทู้เก่าบอร์ด อ.Yeadram
        
           1,322   6		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        ต้องการแสดงชื่อที่อยู่ในกลุ่มเดียวกัน ไว้บรรทัดเดี      
    
      รบกวนสอบถาม อ.yeadram และผู้รู้ทุกท่านครับ
คือผมมีปัญหาที่ต้องการสอบถามดังนี้ครับ
รหัส ชื่อ
1 A
2 B
2 C
3 D
3 E
3 F
4 G
4 H
4 I
4 J
อยากให้แสดงแบบนี้ใน Query หรือ Form หรือ Report ก็ได้ครับ
รหัส ชื่อ
1 A
2 B, C
3 D, E, F
4 G, H, I ,J
ประมาณนี้ครับ
ขอบคุณมากครับ
    
    
  คือผมมีปัญหาที่ต้องการสอบถามดังนี้ครับ
รหัส ชื่อ
1 A
2 B
2 C
3 D
3 E
3 F
4 G
4 H
4 I
4 J
อยากให้แสดงแบบนี้ใน Query หรือ Form หรือ Report ก็ได้ครับ
รหัส ชื่อ
1 A
2 B, C
3 D, E, F
4 G, H, I ,J
ประมาณนี้ครับ
ขอบคุณมากครับ
				6 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R07972    
        
  
      Function MM(Grp, mStr As String)
Static Md As String
Static Gp
If Gp <> Grp Then Md = ""
Gp = Grp
Md = Md & "," & mStr
MM = Md
End Function
.....
เวลาใช้ ก็สร้าง query ธรรมดาและเพิ่ม field
Transp: MM([รหัส],[ชื่อ])
ก็จะได้ field ใหม่ตามต้องการ
แต่อาจต้องไปสร้าง Query Grouping ต่ออีกที
    
  Static Md As String
Static Gp
If Gp <> Grp Then Md = ""
Gp = Grp
Md = Md & "," & mStr
MM = Md
End Function
.....
เวลาใช้ ก็สร้าง query ธรรมดาและเพิ่ม field
Transp: MM([รหัส],[ชื่อ])
ก็จะได้ field ใหม่ตามต้องการ
แต่อาจต้องไปสร้าง Query Grouping ต่ออีกที
        
    3 @R07973    
        
  
      Query ตามนี้
..............................................
SELECT Tmp.รหัส, Last(Tmp.Transp) AS รายชื่อ
FROM (SELECT *, MM([รหัส],[ชื่อ]) AS Transp FROM Table1) AS Tmp
GROUP BY Tmp.รหัส
    
    
  ..............................................
SELECT Tmp.รหัส, Last(Tmp.Transp) AS รายชื่อ
FROM (SELECT *, MM([รหัส],[ชื่อ]) AS Transp FROM Table1) AS Tmp
GROUP BY Tmp.รหัส
        
    4 @R07977    
        
  
      ขออนุญาติ คุณแดน
ปรับปรุง Function นิดหน่อย
Function MM(Grp, mStr As String)
Static Md As String
Static Gp
If Gp <> Grp Then Md = ""
Gp = Grp
If Md = "" Then 'ตัด , อยู่ข้างหน้า
Md = mStr
Else
Md = Md & "," & mStr
End If
MM = Md
End Function
    
    
  ปรับปรุง Function นิดหน่อย
Function MM(Grp, mStr As String)
Static Md As String
Static Gp
If Gp <> Grp Then Md = ""
Gp = Grp
If Md = "" Then 'ตัด , อยู่ข้างหน้า
Md = mStr
Else
Md = Md & "," & mStr
End If
MM = Md
End Function
        
    5 @R07986    
        
  
      ขอบคุณมากครับ    
    
  
        
    6 @R07988    
        
    
      ยินดีครับ ditasilk
ผมขี้เกียจเองแหละ กะว่า จขกท. น่าจะพอตัดทิ้งเองได้
แต่คุณ ditasilk มาช่วยก็โอเครเลยครับ
    
  ผมขี้เกียจเองแหละ กะว่า จขกท. น่าจะพอตัดทิ้งเองได้
แต่คุณ ditasilk มาช่วยก็โอเครเลยครับ
      Time: 0.5988s
    
      
		
และก็... ถ้ามันยาวไปเรื่อยเปื่อย แบบว่ามีรหัสเดียวกันเยอะ จะให้แสดงอย่างไงหละครับ