您好我是VB新手平臺,任何人都可以幫助我理解最後幾行代碼,這裏我最後用加粗來突出顯示,這對我來說是不理解或困惑的。該顯示成員和值的數字是做什麼的?顯示會員和價值會員
.. cmbcust是ComboBox ...
凡客戶表中有以下字段。
**Customer_sname** **Customer_code** **Customer_fname**
nokia 1 nokia corp.
samsung 2 samsung corp.
sony 3 sony corp.
Micromax 4 Micromax India corp.
傳遞custval是諾基亞,三星,索尼
Public Function customfunc(ByVal custval As String) As DataSet
Try
Dim strSQL As String = "select * from customer where cust_sname in (" & custval & ")"
If Conn.State = ConnectionState.Open Then Conn.Close()
Conn.Open()
Dim Adap As New SqlDataAdapter(strSQL, Conn)
Dim Ds As New DataSet
Adap.Fill(Ds, "customer")
ReadINICustomers = Ds
Catch EXP As Exception
MsgBox("Error Connecting to Server :" & EXP.Message, MsgBoxStyle.Critical)
End Try
End Function
Public Sub Fillcustomer()
Dim Lstcust() As String
Dim Lstcust1 As String
Lstcust1 = ""
Lstcust1 = custINIval
Dim Ds As New DataSet
Ds = objData.ReadINICustomers(Lstcust1)
cmbcust.DataSource = Ds.Tables("customer")
cmbcust.DisplayMember = Ds.Tables("customer").Columns.Item("cust_sname").ToString().Trim()
cmbcust.ValueMember = Ds.Tables("customer").Columns.Item("cust_code").ToString().Trim()
End Sub
cmbcust.DisplayMember = Ds.Tables( 「客戶」)。Columns.Item( 「cust_sname」)。的ToString( ).Trim() cmbcust.ValueMember = Ds.Tables( 「客戶」)。Columns.Item( 「CUST_CODE」)。toString()方法。TRIM()
[docs](https://msdn.microsoft.com/en-us/library/system.windows.forms.combobox_properties(v = vs.110).aspx)非常清晰。 ValueMember是控件中項目的實際值,而DisplayMember是UI中顯示的內容。 –
如果有人選擇'sony','ValueMember'會返回3。 – OneFineDay
請注意,您的函數名稱是'funcion',它是VB.Net中的保留字。您不能使用[KeyWords](https://msdn.microsoft.com/en-us/library/ksh7h19t%28v=vs.90%29.aspx)作爲某個名稱。它也會導致編譯器錯誤。 – Eminem