Click here to Skip to main content
11,478,902 members (64,722 online)
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB6 Oracle
Private Sub Combo14_LostFocus()
Dim x() As String
x(0) = Split(Text2.Text, " ")
If x(0) <> Empty Then
Combo14.Text = Text2.Text
 
If UBound(Text2.Text, x(0)) Then
Combo14.Text = x(1)
Else
If UBound(x(1)) Then
Combo14.Text = x(2)
End If
End If
End Sub


Errors occurring like
1.Type mismatch
2.Expected array
3.Subscript out of range

Please Help
Posted 27-Dec-12 1:49am
surkhi623
Edited 27-Dec-12 1:54am
v3

1 solution

Rate this: bad
good
Please Sign up or sign in to vote.

Solution 1

See here[^] for how to split a string.
  Permalink  
v2

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 Sergey Alexandrovich Kryukov 200
1 F-ES Sitecore 195
2 Frankie-C 120
3 OriginalGriff 105
4 DamithSL 95
0 Sergey Alexandrovich Kryukov 7,880
1 OriginalGriff 7,341
2 Sascha Lefèvre 3,064
3 Maciej Los 2,491
4 Richard Deeming 2,335


Advertise | Privacy | Mobile
Web04 | 2.8.150520.1 | Last Updated 27 Dec 2012
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100