下拉菜单数据绑定(vb.net)
怎么样把数据绑定 代码如下 请大家添上

Dim strsql2 As New StringBuilder( " ")
strsql2.Length = 0
strsql2.Append( "select ")
strsql2.Append( "VAL01 from ")
strsql2.Append( "HDAW_M_SYSTEMCTL ")
strsql2.Append( "where ")
strsql2.Append( " KEY_NO= ")
strsql2.Append( " ' ")
strsql2.Append( "A06 ")
strsql2.Append( " ' ")
dim ds as dataset
ds = DataCenter.GetDataSet(strsql2.ToString())
If Not IsPostBack Then

控件名字叫selGhion请大家帮忙


End If

[解决办法]
selGhion.datasource=ds
selGhion.databind
[解决办法]
dt = mydb.GetDataTable( "usp_renwuml_list ", CommandType.StoredProcedure)
mydb.CloseConn()
dv = dt.DefaultView

If dt.Rows.Count > 0 Then
dv.Sort = "lujing "
End If

dgmulu.DataSource = dv
dgmulu.DataBind()
[解决办法]
dgmulu.DataTextField = "显示字段 ";
dgmulu.DataValueField = "值字段 ";
dgmulu.DataSource = dv
dgmulu.DataBind()

[解决办法]
Dim strsql2 As New StringBuilder( " ")
strsql2.Length = 0
strsql2.Append( "select ")
strsql2.Append( "VAL01 from ")
strsql2.Append( "HDAW_M_SYSTEMCTL ")
strsql2.Append( "where ")
strsql2.Append( " KEY_NO= ")
strsql2.Append( " ' ")
strsql2.Append( "A06 ")
strsql2.Append( " ' ")
dim ds as dataset
ds = DataCenter.GetDataSet(strsql2.ToString())
If Not IsPostBack Then

selGhion.DataSource=ds.Tables(0)
selGhion.DataTextField= "字段1 "
selGhion.DataValueField= "字段2 "
selGhion.DataBind()
End If