I have a combbox and want to stop manual data entry.
Code as follows:
Dim d As String
d = cn.ConnectionString
Dim ds As DataSet = New DataSet
Dim da As New SqlClient.SqlDataAdapter("select CompanyCode,Name from MtCM where del='0' order by CompanyCode", d)
da.SelectCommand.CommandType = CommandType.Text
da.Fill(ds,
"ComID")
cmbCompany.DataSource = ds.Tables(
"ComID")
cmbCompany.DisplayMember =
"Name"
cmbCompany.ValueMember =
"CompanyCode"