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
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
博客代码展示了给下拉框添加记录的操作,依次插入不同百分比选项。还通过For Each循环遍历下拉框所有选项,当选项值等于指定内容时,将该选项设为选中状态,并把选项文本显示在文本框中。
121

被折叠的 条评论
为什么被折叠?



