Albee_J
asked on
Assign Drop Down list value to textbox Visual Basic
I have an ad sales application that has a series of checkboxes. One checkbox asks the sales rep if the order is a multiple company listing. If it is the following information fires: I need to somehow get the value of the dropdown list ddMultipleRate.SelectedVal ue = "47" to also show in the textbox ( txtMultipleRate.text )
Protected Sub txtMultiple_CheckedChanged (ByVal sender As Object, ByVal e As System.EventArgs) Handles txtMultiple.CheckedChanged
If txtMultiple.Checked = True Then
lblSecondary.Text = "Secondary Company Name:"
lblSecondary.ToolTip = "Enter in Secondary company name as it is to be shown in directory/web"
lblMultipleIn.Visible = True
txtMultipleIn.Visible = True
lblMultipleRate.Visible = True
ddMultipleRate.Visible = True
ddMultipleRate.SelectedVal ue = "47"
txtMultipleRate.Visible = True
lblMultipleOverride.Visibl e = True
txtMultipleRateOverride.Vi sible = True
Else
lblSecondary.Text = "Other Advertiser:"
lblSecondary.ToolTip = "Not Exhibiting or sharing a booth, list company name"
lblMultipleIn.Visible = False
txtMultipleIn.Visible = False
lblMultipleRate.Visible = False
ddMultipleRate.Visible = False
txtMultipleRate.Visible = False
lblMultipleOverride.Visibl e = False
txtMultipleRateOverride.Vi sible = False
End If
End Sub
Protected Sub txtMultiple_CheckedChanged
If txtMultiple.Checked = True Then
lblSecondary.Text = "Secondary Company Name:"
lblSecondary.ToolTip = "Enter in Secondary company name as it is to be shown in directory/web"
lblMultipleIn.Visible = True
txtMultipleIn.Visible = True
lblMultipleRate.Visible = True
ddMultipleRate.Visible = True
ddMultipleRate.SelectedVal
txtMultipleRate.Visible = True
lblMultipleOverride.Visibl
txtMultipleRateOverride.Vi
Else
lblSecondary.Text = "Other Advertiser:"
lblSecondary.ToolTip = "Not Exhibiting or sharing a booth, list company name"
lblMultipleIn.Visible = False
txtMultipleIn.Visible = False
lblMultipleRate.Visible = False
ddMultipleRate.Visible = False
txtMultipleRate.Visible = False
lblMultipleOverride.Visibl
txtMultipleRateOverride.Vi
End If
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.