近来，在网上找了一些关于VB选择语句的代码样例讲解，不过可惜关于Select case的讲解甚少（可能是查找方向有误），遂，作此，如有不足还望评论去添补

语法

Select Case <指示变量或表达式>



Select Case不是循环语句，是条件选择语句，与IF...ELSEIF...ELSEIF...END IF类似

<默认语句组，以上语句组都因情形不符合实际时执行>End Select其中，表述情形的关键字，有IS和TO，多个情形要并列在一起时，使用逗号(英文)连接。当省略Case Else语句并且语句组都因情形不符合实际时，语句的执行，会直接到达End Select。如果在执行语句的时候，有需要跳过没有必要再执行的语句而直接结束Select Case的情况时，请使用exit select

Option explicit
dim digital,hours,minutes,seconds,dn,ctime

digital = time
hours    =  Hour(digital)
minutes  =  Minute(digital)
seconds  =  second(digital)

Select Case True
Case hours<6
dn= "it is time to dream!"
Case hours>=6
dn= "get up and say good morning!"
Case hours>12 & hours<14
dn= "let's have a rest!"
Case else
	dn="I don't know what to do!"
End Select
msgbox dn


注意在“<指示变量或表达式>”不是True或False关键字时，逻辑运算（And、Or、Not）会没有意义。因为逻辑运算的结果是True或False，不是表述具体情况的值或者范围。

 

 

 

 

楔子
    IDE：VS2013
    语言：VB.NET
Select和SelectAll
select
    功能：在选中文本框的同时，将光标移动到文本框内容的末尾


selectall
    功能：只是选中文本框，且没有明显的提示。




比较
    相对于SelectAll，Select多了一个Focus的功能。
感谢您的宝贵时间，祝生活愉快，谢谢~~
                                           
—joker

我正在使用以下代码试图从两个表中检索数据并使用该信息填充ComboBox。然后，当用户从ComboBox中选择一个值时，我想用从ComboBox的值匹配的数据库中检索到的数据填充表单上的所有控件(仍然没有弄清楚如何做到这一点)。
注：错误中显示的1090是我从InputBox控件收到的帐号，然后将TextboxAccount.Text值设置为它。所以我不确定这是否是我的问题所在。
这是抛出的VB异常：
"You have an error in your SQL syntax; check the manual that
corresponds with your MySQL version for the right syntax to use near
'customer.accountNumber = '1090" at line 1"
这是我的代码：
Private Sub RetrieveMySQLdata()
Try
'FOR MySQL DATABASE USE
Dim dbConn As New MySqlConnection
Dim dbQuery As String = ""
Dim dbCmd As New MySqlCommand
'Dim dbData As MySqlDataReader
Dim dbAdapter As New MySqlDataAdapter
Dim dbTable As New DataTable
If dbConn.State = ConnectionState.Closed Then
'dbConn = New MySqlConnection
dbConn.ConnectionString = String.Format("Server={0};Port={1};Uid={2};Password={3};Database=accounting", FormLogin.ComboBoxServerIP.SelectedItem, My.Settings.DB_Port, My.Settings.DB_UserID, My.Settings.DB_Password)
dbConn.Open()
End If
dbQuery = "SELECT *" & _
"FROM cc_master INNER JOIN customer ON customer.accountNumber = cc_master.customer_accountNumber" & _
"WHERE customer.accountNumber = '" & TextBoxAccount.Text & "'"
With dbCmd
.CommandText = dbQuery
.Connection = dbConn
End With
With dbAdapter
.SelectCommand = dbCmd
.Fill(dbtable)
End With
Dim i As Integer
For i = 0 To dbTable.Rows.Count - 1
ComboBoxCard.ValueMember = "cc_Number"
Next
Catch ex As Exception
MessageBox.Show("A DATABASE ERROR HAS OCCURED" & vbCrLf & vbCrLf & ex.Message & vbCrLf & _
vbCrLf + "Please report this to the IT/Systems Helpdesk at Ext 131.")
End Try
End Sub

 昨天才解决了SELECT中的时间变量语法，今天又碰到了字符串变量的问题。在进行了N次尝试后得出了以下的可以得出正确结果的语法。同时也是一个双重SELECT的语法。
 
        Dim d1, d2 As Date
        d1 = Date_quest_buy_buybl_start.Value.Date
        d2 = Date_quest_buy_buybl_end.Value.Date
        Dim sup As String
        sup = ComboBox_quest_buy_buybl_supplyer.Text
        
        OleDbConnection2.Open()
        OleDb_quest_taobao_buybl.SelectCommand.CommandText = "select * from (select * from buy_bl where   buy_date between #" + d1 + "#  and #" + d2 + "#) where [supplyer] = '" + sup + "'"      *这里的红色部分是关键，字段名要加[]，后面的字符串变量是 一个单引号再加双引号和+ 变量名。[]，'  ', "   "  ， +    + 这4个符号缺一不可。  同时这也是一个双重SELECT的语句。
        OleDb_quest_taobao_buybl.Fill(DataSet_quest_taobao_buybl1)
        OleDbConnection2.Close()