在查询结果中有选择的挑选列值，可以吗？
Dim dr As OracleDataReaderdr = cxcmd.ExecuteReader()
While dr.Read '读取Reader中数据
Select Case dr.Item("ye")
Case 111
zz3y = dr.Item("ye")
Case 112
zz6y = dr.Item("ye")
Case 113
zz1n = dr.Item("ye")
Case 114
zz2n = dr.Item("ye")
Case 115
zz3y = dr.Item("ye")
Case 116
zz5n = dr.Item("ye")
Case 117
zz8n = dr.Item("ye")
Case 121
lz1n = dr.Item("ye")
Case 122
lz3n = dr.Item("ye")
Case 123
lz5n = dr.Item("ye")
Case 0
zye = dr.Item("ye")
Case 2
hq = dr.Item("ye")
End Select
