Concatenate 2 strings to make a control name

Hi Experts

How would I concatenate 2 strings to make a form control that I can reference with code.

I have a form with several combo box controls, I want a generic fill routine where I pass in the control name and it gets filled.

Here is my routine:

    Private Sub Lookup_Fill(ByVal strType As String)

        Dim lf As New clsLookups
        Dim dt As DataTable = lf.DoLookup(strType)

        Dim FormControl = strType
        With FormControl
           .DataSource = dt
            .DisplayMember = "LookUpValue"
            .SelectedIndex = 0
        End With

    End Sub

This is how I call:
 Lookup_Fill("Status")

I pass the variable into a proc that return a list (That works OK) I hit a problem when I try to refernce the form control (as a string I guess)

How do  do this?
LVL 3
Andy GreenAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Wayne Taylor (webtubbs)Commented:
Use the Controls.Find method.

Wayne
    Private Sub Lookup_Fill(ByVal strType As String) 
        Dim lf As New clsLookups
        Dim dt As DataTable = lf.DoLookup(strType) 
        Dim ctrls() As Control = Me.Controls.Find(strType, True)
        If ctrls.Length > 0 Then
            If TypeOf ctrls(0) Is ComboBox Then
                Dim FormControl As ComboBox = CType(ctrls(0), ComboBox)
                With FormControl
                    .DataSource = dt
                    .DisplayMember = "LookUpValue"
                    .SelectedIndex = 0
                End With
            End If
        End If 
    End Sub

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Andy GreenAuthor Commented:
Excellent, Cut and paste and it worked first time.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.