hide string

[Elhassan]

Hello guys,

I have a simple question. I'm wondering if I could do a string search and only display part of the result... hiding the rest from the user. I'm displaying the search result in a combo box.

Something like:

cboCandName.Clear
Do While Not records.EOF
cboCandName.AddItem records.Fields("AIZLTX").Value & " " & "(" & _
records.Fields("AIBSCD").Value & " " & records.Fields("AIA8TX").Value & " " & _
records.Fields("AIDRCD").Value & " " & records.Fields("AIB2NB").Value & ")"
records.MoveNext
cboCandName.ListIndex = 0
Loop


I only want to display whatever "AIZLTX" correponds to. Thanx.

[Hack]

Dump the results off to another variable, then parse the portion that you want to show, and just display that.

[Elhassan]

Show me how, would you. Thanks

[Static]

try something like this

'global declarations
Dim data() As String
'-----------
cboCandName.Clear 
x = 0
Do While Not records.EOF 
cboCandName.AddItem records.Fields("AIZLTX").Value
Redim preserve data(x)
data(x) = "(" & records.Fields("AIBSCD").Value & " " & records.Fields("AIA8TX").Value & " " & records.Fields("AIDRCD").Value & " " & records.Fields("AIB2NB").Value & ")" 
x = x + 1
records.MoveNext 
cboCandName.ListIndex = 0 
Loop 
 
' to recall other data
'on cbo click event for example put this
Msgbox cboCandName.text & " " & data(cboCandName.listindex)

see if that works

[Elhassan]

Still looking for an answer guys.....

Thanks geoff_xrx and Hack, you guys are wonderful. It worked fine. Now the part which I'm not displaying is the following:


ReDim Preserve Data(x)
Data(x) = records.Fields("geocode").Value
x = x + 1

The "geocode" is a primary key in a database. My question is can I use or pass it to let say cboCandName_Change or cboCand_Click to bring up say a map. This is the whole idea behind doing this search. Thanks a mill.

[Elhassan]

Hey Hach, what's up?

Forget about the map and let us concentrate on the following. I do a subroutine that goes like this:

Private Sub SearchGeocode()

Dim expGeocode As String

expGeocode = "geocode = '" & txtGeocode.Text & " '"
Set records = Map1.Layers("prclplgn").SearchExpression(expGeocode

End Sub

If the string I'm displaying (check the previous posts above) in the combo box has a part that the use does not see (hidden) which is called "geocode" which is a pk in the database. My question is can I pass just that part and not the whole string in this case it is data(x) to the SearchGeocde subroutine?, and how?