dropdownlist的datatextfield和datavaluefield

[heimao111]

使用dropdownlist绑定数据库中的表,设置autopostback为true
设置它的datatextfield和datavaluefield为表中不中的两个字段。
添加一个textbox，设置当dropdownlist.selectedindexchanged的时候
textbox.text=dropdownlist.selecteditem.value
这样的话，dropdownlist只能选择前两项，点击其他选项时，选中的不是
第一项就是第二项
这是怎么回事？

[dbx]

代码？？？？

[heimao111]

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not IsPostBack Then
dplkehubind()
ywybind()
dplywy.Items.FindByText(dpl.Items(0).Value).Selected = True
End If
End Sub


Public Sub dplkehubind()
Dim sql As String
sql = "select 名称,业务员 from 客户表"
Dim dap As New OleDbDataAdapter(sql, conn)
Dim dt As New DataTable()

dap.Fill(dt)

dpl.DataSource = dt
dpl.DataTextField = "名称"
dpl.DataValueField = "业务员"
dpl.DataBind()
dap.Dispose()
dt.Dispose()
dap = Nothing
dt = Nothing
End Sub
Public Sub ywybind()
Dim sql As String
sql = "select 姓名 from 职员表 where 岗位='销售部'"
Dim dap As New OleDbDataAdapter(sql, conn)
Dim dt As New DataTable()
dap.Fill(dt)
dplywy.DataSource = dt
dplywy.DataTextField = "姓名"
dplywy.DataBind()
dap.Dispose()
dt.Dispose()
dap = Nothing
dt = Nothing
End Sub

Private Sub dpl_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dpl.SelectedIndexChanged
Dim str As String
str = dpl.SelectedItem.Value
Dim i As Int16
For i = 0 To dplywy.Items.Count - 1
dplywy.Items(i).Selected = False
Next
dplywy.Items.FindByText(str).Selected = True


End Sub

[xinyu_1980]

textbox.text=dropdownlist.items(dropdownlist.selectedindex).value

[heimao111]

不对着呢
因为他根本就选不上除了前两项其他的项
比如它的items为q,w,r,e,,h,g
当你点击r,e,h,g的时候
显示的还是q或者w
根本就不是r,e,h,g,

[liuyong_lll]

Dim str As String
str = dpl.SelectedItem.Value
Dim i As Int16
For i = 0 To dplywy.Items.Count - 1
dplywy.Items(i).Selected = False
Next
dplywy.Items.FindByText(str).Selected = True

你开始dpl.SelectedItem.Value，此时你很明确DPL选择的是那一个吗，如果你确定的话，后边又来确定拥护选择的是什么（plywy.Items.FindByText(str).Selected = True），这是什么意思呢？

[liuyong_lll]

建议你好好调试一下...........

[luochen]

Dim i As Int16
For i = 0 To dplywy.Items.Count - 1
dplywy.Items(i).Selected = False
Next
这个循环有什么用，是没有用的。
最大的问题是：页面刷新的时候，dpl的SelectedItem到底是什么，你可以用一个textbox测试以下
，其他要么就是你数据的问题

[momoguagua]

dpl.DataTextField = "名称"
dpl.DataValueField = "业务员"

这两个不要设为不同的，设为一样的或者DataValueField不设，就没错误啦，表问我为什么，因为我也不知道-_-#

[dongbeiren]

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not IsPostBack Then
dplkehubind()
ywybind()
dplywy.Items.FindByText(dpl.Items(0).Value).Selected = True
End If
End Sub

有问题

[dongbeiren]

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not IsPostBack Then
dplkehubind()
ywybind()

else
dplywy.Items.FindByText(dpl.Items(0).Value).Selected = True
End If

End Sub
试试