用SELECT CASE 判读COMBOBOX里的值

良朋 良朋 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
ComboBox 下拉菜单有7项,我想根据所选给变量CurSelectKey 赋值(之后写在SQL语句中),但我不会用SELECT...CASE...语句, 总不至于让我用IF..THEN..一个一个判读吧!
我的语句如下,哪位能帮我一下啊?
Private Sub CmbBox_Term_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbBox_Term.SelectedIndexChanged
'Select Case CmbBox_Term.Items.Count() '总是7
Select Case CmbBox_Term.Items.IndexOf(CmbBox_Term.Items) '总是-1
Case 0
CurSelectKey = "UserID"
Case 1
CurSelectKey = "ProductNO"
Case 2
CurSelectKey = "OrderNo"
Case 3
CurSelectKey = "ProductBatch"
Case 4
CurSelectKey = "CurDate"
Case 5
CurSelectKey = "Result"
Case 6
CurSelectKey = "FUCK"
End Select
End Sub
...全文
评论 3
收藏 已收藏
分享
返回顶部
良朋
VB 16,718 成员 110,520 内容