กระทู้เก่าบอร์ด อ.Yeadram
        
           1,372   3		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        เขียน in ใน vb      
    
      เราสามารถเขียน in เหมือนใน query ใน vb ได้หรือเปล่าครับ
Text1 in (1,2,3,4,5)
รูปแบบประโยคเป็นอย่างไร
อย่างเช่น ต้องการตรวจสอบว่า Text1 มีค่า = 1 หรือ 2 หรือ 3 หรือ 5 หรือ 8 หรือ 9 ต้องเขียนอย่างไรครับ
    
  Text1 in (1,2,3,4,5)
รูปแบบประโยคเป็นอย่างไร
อย่างเช่น ต้องการตรวจสอบว่า Text1 มีค่า = 1 หรือ 2 หรือ 3 หรือ 5 หรือ 8 หรือ 9 ต้องเขียนอย่างไรครับ
				3 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R08705    
        
  
      ถ้า Text1 ให้ค่าเป็นอักษรตัวเดียว ก็ใช้แบบนี้ได้
btnSave.Visible = (Text1 Like "[1256]")
ถ้า Text1 ให้ค่ามากกว่าอักษรตัวเดียว และถ้ามีเงื่อนไขเยอะ จะลองวิธีนี้ก็ได้
btnSave.Visible = ( InStr(" 1 2 5 6 11 12 15 16 21 22 25 26", " " & Text1 & " ") <> 0 )
    
  btnSave.Visible = (Text1 Like "[1256]")
ถ้า Text1 ให้ค่ามากกว่าอักษรตัวเดียว และถ้ามีเงื่อนไขเยอะ จะลองวิธีนี้ก็ได้
btnSave.Visible = ( InStr(" 1 2 5 6 11 12 15 16 21 22 25 26", " " & Text1 & " ") <> 0 )
        
    3 @R08721    
        
    
      ขอบคุณครับ...
ตอนแรกผมใช้
Select case Text1
Case 1,2,5,6
End Select
แต่วิธีของคุณสันติสุขก็เก๋ดี ประยุกต์ใช้
แล้วยังมีวิธีอื่นอีกปะครับ แบบพวก array อะไรเนี่ยไม่แน่ใจว่าใช้ได้เปล่าครับ
    
  ตอนแรกผมใช้
Select case Text1
Case 1,2,5,6
End Select
แต่วิธีของคุณสันติสุขก็เก๋ดี ประยุกต์ใช้
แล้วยังมีวิธีอื่นอีกปะครับ แบบพวก array อะไรเนี่ยไม่แน่ใจว่าใช้ได้เปล่าครับ
      Time: 0.4005s
    
      
		
btnSave.Visible =(Text1 = 1 or Text1 = 2 or Text1 = 5 or Text1 = 6)
ใครมีวิธีเขียนให้สั้นกว่านี้ และ สะดวกหากต้องการเพิ่มหรือลดตัวเลข หรือเปล่าครับ