DDLTitle.Items.Insert(0, "0") '给下拉框添加记录
DDLTitle.Items.Insert(1, "5%")
DDLTitle.Items.Insert(2, "10%")
DDLTitle.Items.Insert(3, "15%")
DDLTitle.Items.Insert(4, "20%")
Dim TitleListItem As ListItem
'StrDDLTitle是下拉框中需要显示的内容
For Each TitleListItem In DDLTitle.Items '遍历下拉框中所有的选项
If TitleListItem.Value = StrDDLTitle Then
TitleListItem.Selected = True
txtTitle.Text = TitleListItem.Text
End If
Next