कैसे सेटअप करने के लिए एक Combox , हमेशा जाएगा के साथ एक ही डेटा, के रूप में एक उपयोगकर्ता को नियंत्रित करने के लिए इस्तेमाल किया जा सकता पर कई रूपों

आप कर सकते हैं डाल दिया, एक छोटे से Class Examiner

Public Class Examiner
    Public Property Examiner_ID As Integer
    Public Property Last_Name As String
    Public Sub New(ID As Integer, lname As String)
        Examiner_ID = ID
        Last_Name = lname
    End Sub
End Class

फिर, जब पहले फार्म भार, प्राप्त डेटा एक सूची में घोषित एक मॉड्यूल में तो यह पहुँचा जा सकता है से किसी भी रूप में आवेदन. बेशक, आप हो सकता है अन्य बातों में मॉड्यूल.

Module Module1
    Public ExaminerData As New List(Of Examiner)
End Module

Private Sub MyWinform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    FillExaminerList()
    ComboBoxExaminer.ValueMember = "Examiner_ID"
    ComboBoxExaminer.DisplayMember = "Last_Name"
    ComboBoxExaminer.DataSource = ExaminerData
End Sub

किसी भी अन्य रूप की जरूरत है कि डेटा को भरने के लिए एक कॉम्बो बॉक्स का उपयोग कर सकते हैं ExaminerData. आप केवल कॉल FillExaminerList एक बार शुरुआत में के आवेदन पत्र है । वहाँ है केवल एक ही हिट पर एक डेटाबेस है ।

Private OPConStr As String = "Your connection string."

Private Sub FillExaminerList()
    Dim dt As New DataTable
    Using cn As New SqlConnection(OPConStr),
            cmd As New SqlCommand("MyStoredProcedure", cn)
        cmd.Parameters.Add("@ExaminerType", SqlDbType.Int).Value = 3
        Using reader = cmd.ExecuteReader
            dt.Load(reader)
        End Using
    End Using
    For Each row As DataRow In dt.Rows
        Dim ex As New Examiner(CInt(row("Examiner_ID")), row("Last_Name").ToString)
        ExaminerData.Add(ex)
    Next
End Sub