主题：下拉列表，不显示重复的行！！

'项目代码TextChanged
e.Form.Controls("项目代码").text = e.Form.Controls("项目代码").value .replace("┆","|")

上面的代码改为:

Dim d As String = e.Form.Controls("项目代码").value
d = d.SubString(0,d.IndexOf("┆"))
e.Form.Controls("项目代码").text = d

是这个意思吗？