我从数据库里面读出来的值,绑定到datalist.正常显示,不需要任何的RadioButtonList。我希望在Edit的时候,将值绑定到RadioButtonList上。RadioButtonList的选项是固定的,只有(是,否)对应的值是(1,0)数据库返回对应的 enable 值为True或False.我希望在EditCommand的时候,把enable得值绑定到RadioButtonList上,请问,该如何解决?

解决方案 »

  1.   

    可以用DropDownList代替啊。
    Private Sub myDataGrid_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles myDataGrid.ItemDataBound
    If e.Item.ItemType = ListItemType.EditItem Then
                '-----------------------------------下拉菜单处理--------------------------------
                Dim myDrList As New DropDownList
                myDrList = e.Item.FindControl("edit_FParent")
                Dim sqlstr As String            '*******************类别级数,如果flag的值为空,或者当初始页面时候显示第一层类别的名称*****************
                Dim myFlag As String
                If Request.QueryString("Flag") = "" Or Request.QueryString("Flag") = 1 Or Request.QueryString("Flag") = 0 Then
                    'myFlag = 1
                    Dim myListItem As New ListItem
                    myListItem.Value = "0"
                    myListItem.Text = "总类"
                    myDrList.Items.Insert(0, myListItem)
                Else
                    myFlag = CType(CType(Request.QueryString("Flag"), Integer) - 1, String)
                    sqlstr = "Select CName,ID From ProClass Where Flag='" + myFlag + "'order by id"
                    Dim MyCom As New SqlCommand(SqlStr, myConn)
                    '*********************捆绑下拉菜单*****************************
                    myConn.Open()
                    myDrList.DataSource = MyCom.ExecuteReader
                    myDrList.DataTextField = "CName"
                    myDrList.DataValueField = "ID"
                    myDrList.DataBind()
                    Dim myListItem As New ListItem
                    myListItem.Value = "0"
                    myListItem.Text = "总类"
                    myDrList.Items.Insert(0, myListItem)            End If
                Dim drv As DataRowView = e.Item.DataItem
                Dim SelectedValue = drv("FParent").ToString()
                myDrList.SelectedIndex = myDrList.Items.IndexOf(myDrList.Items.FindByValue(SelectedValue))
            End If         myConn.Close()
    End Sub