Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,036

HOME > .NET Framework > Forum > Get ValueMember ใน Combobox,Listbox ทั้งหมด เป็น String



 

Get ValueMember ใน Combobox,Listbox ทั้งหมด เป็น String

 



Topic : 125996



โพสกระทู้ ( 46 )
บทความ ( 0 )



สถานะออฟไลน์




Code (VB.NET)
    Public Function fnDivCode(ByVal formName As ComboBox) As DataTable
        Dim dtDivCode As DataTable = selSQL("SELECT DIVCODE AS DIVCODE ,DIVDESCRIPTION FROM	HRM_DIVISION_MST ORDER BY DIVCODE ASC").Tables(0)
        formName.DataSource = dtDivCode
        formName.DisplayMember = "DIVDESCRIPTION"
        formName.ValueMember = "DIVCODE"
        Return dtDivCode
    End Function


Code (VB.NET)
cbDivCode.DataSource = fnDivCode(Me.cbDivCode)

ตอนนี้ผมเขียน Function ไว้สำหรับ Assign ค่าที่ Query มาใส่ Combobox เพื่อให้ง่ายต่อการใช้งาน Form อื่นๆ และสามารถใช้งานได้ปกติ

ทีนี้ผมมีไอเดียว่า ถ้าผมกด Button1 แล้ว
ถ้า cbDivCode เป็นค่าว่าง ผมต้องการจะ วนลูป เอาค่า cbDivCode.ValueMember มาต่อเป็น String
ผมไม่ทราบว่าจะใช้คำสั่งใดได้บ้างครับ
Combobox
'SelectedIndex ได้ Index ใน Combo
'SelectedValue ได้ค่าใน Combo ก็จริง แต่เป็น ค่าที่ถูก Select อยู่ จะให้เลื่อน select เป็น index ถัดไปก็ไม่ทราบว่าจะต้องใช้คำสั่งใด

ส่งที่ต้องการประมาณนี้ครับ
'ADM','EXE','PD','QA','SA','TE' (cbDivCode.ValueMembe ทั้งหมดที่อยู่ใน Combobox นี้)



Tag : .NET, Ms SQL Server 2012, VB.NET, VS 2012 (.NET 4.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2017-01-11 14:21:45 By : jaypang View : 2180 Reply : 4
 

 

No. 1



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

โค้ดถูก แต่ผิดหลักการนะครับ

Code (VB.NET)
cbDivCode.DataSource = fnDivCode(Me.cbDivCode)
Public Function fnDivCode(ByVal formName As ComboBox) As DataTable
    Dim dtDivCode As DataTable = selSQL("SELECT DIVCODE AS DIVCODE ,DIVDESCRIPTION FROM	HRM_DIVISION_MST ORDER BY DIVCODE ASC").Tables(0)
    formName.DataSource = dtDivCode 'cbDivCode มันรับ DataSource  ไปเรียบร้อยแล้วไม่จำเป็นต้องรับอีกรับ
    formName.DisplayMember = "DIVDESCRIPTION"
    formName.ValueMember = "DIVCODE"
    Return dtDivCode
End Function



ควรจะเป็นแบบนี้น่าจะเหมาะกว่าครับ

Code (VB.NET)
cbDivCode.DataSource = fnDivCode(Me.cbDivCode)
Public Sub fnDivCode(ByVal formName As ComboBox)
    Dim dtDivCode As DataTable = selSQL("SELECT DIVCODE AS DIVCODE ,DIVDESCRIPTION FROM	HRM_DIVISION_MST ORDER BY DIVCODE ASC").Tables(0)
    formName.DataSource = dtDivCode 'cbDivCode รับ DataSource  ไปใช้งานได้เลย
    formName.DisplayMember = "DIVDESCRIPTION"
    formName.ValueMember = "DIVCODE"
End Sub







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-01-11 14:39:53 By : lamaka.tor
 


 

No. 2



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

Code
ถ้า cbDivCode เป็นค่าว่าง ผมต้องการจะ วนลูป เอาค่า cbDivCode.ValueMember มาต่อเป็น String ผมไม่ทราบว่าจะใช้คำสั่งใดได้บ้างครับ

ไม่รู้ผมเข้าใจถูกไม๊ว่าให้เอา cbDivCode.ValueMember ทั้งหมดมาต่อกัน หรือ เอา cbDivCode.ValueMember มาต่อกับ cbDivCode.DisplayMember นั้นรึครับ

Code
'SelectedIndex ได้ Index ใน Combo 'SelectedValue ได้ค่าใน Combo ก็จริง แต่เป็น ค่าที่ถูก Select อยู่ จะให้เลื่อน select เป็น index ถัดไปก็ไม่ทราบว่าจะต้องใช้คำสั่งใด

งงกับคำถามครับ จะให้เลื่อน select เป็น index ถัดไป??
อย่างผมเลือก Admin... จะให้เลื่อน select เป็น index ของ Exe.. แบบนี้รึครับ

Code
ส่งที่ต้องการประมาณนี้ครับ 'ADM','EXE','PD','QA','SA','TE' (cbDivCode.ValueMembe ทั้งหมดที่อยู่ใน Combobox นี้)

สามารถ loop เอามาดูเลยก็ได้ครับว่าที่ทำถูกต้องรึป่าวครับ

Code (VB.NET)
cbDivCode.DataSource = fnDivCode(Me.cbDivCode)
Dim Str As String
'วนตรงนี้เอาไปใช้งานได้เลยครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-01-11 14:51:57 By : lamaka.tor
 

 

No. 3



โพสกระทู้ ( 46 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 2 เขียนโดย : lamaka.tor เมื่อวันที่ 2017-01-11 14:51:57
รายละเอียดของการตอบ ::
ทำได้แล้วครับ หามานาน พอมาโพสต์แล้วก็หาเจอซะงั้น
Code (VB.NET)
 Dim a As String = ""
        Dim table As DataTable = DirectCast(Me.cbDivCode.DataSource, DataTable)
        If cbDivCode.Text = "" Then
            For i As Integer = 0 To table.Rows.Count - 1
                Dim valueItem As String = table.Rows(i)(cbDivCode.ValueMember).ToString()
                a = a & "'" & valueItem & "',"
            Next
            MsgBox(a.Substring(0, a.Length - 1))
        End If


1

เวลาเอาไปใช้จะได้ง่ายๆ ครับ เช่น
where cbDivCode in (a)



แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-01-11 15:17:05 By : jaypang
 


 

No. 4



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-01-11 15:32:50 By : lamaka.tor
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : Get ValueMember ใน Combobox,Listbox ทั้งหมด เป็น String
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 03
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่