Private Sub SearchCardID(ByVal score As Integer) Dim scoreCardID As String(,) Try scoreCardID = New String(,) {{"1", "1000000001"}, {"4", "1234567890"}, {"6", "1005001234"}} Dim cardID = From i In Enumerable.Range(0, scoreCardID.GetLength(0)) _ Where scoreCardID(i, 0) = score.ToString _ Select scoreCardID(i, 1) Debug.Print("Score=" & score & ";CardID=" & cardID(0)) Catch ex As Exception MsgBox(ex.ToString) End Try End Sub
More tips from stackoverflow.com.
Comments