Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

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

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

เริ่มหัวข้อใหม่

Jaypang

โพสกระทู้ ( 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)

Date : 2017-01-11 14:21:45

By : jaypang

View : 2198

Reply : 4

No. 1

TOR_CHEMISTRY

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

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

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

TOR_CHEMISTRY

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

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

Jaypang

โพสกระทู้ ( 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

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

Date : 2017-01-11 15:17:05

By : jaypang

No. 4

TOR_CHEMISTRY

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

Date : 2017-01-11 15:32:50

By : lamaka.tor

ค้นหาข้อมูล

แสดงความคิดเห็น

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

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก