Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
Dim btn As New System.Web.UI.WebControls.Button
Dim dsUserGroup As Bbs.DataAccess.BackGround.ManageForum.ManageUserPower = New Bbs.DataAccess.BackGround.ManageForum.ManageUserPower
If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
Dim EditID As Integer = CInt(e.Item.Cells(0).Text)
dlsGroup = CType(e.Item.Cells(1).FindControl("dslUserGroup"), System.web.UI.WebControls.DropDownList)
Dim dsGroup As DataSet = dsUserGroup.GetGroupListTop5()
Dim drw As DataRow = dsGroup.Tables(0).Rows(0)
dlsGroup.DataSource = dsGroup.Tables(0).DefaultView
dlsGroup.DataTextField = "GroupName"
dlsGroup.DataValueField = "GroupId"
dlsGroup.DataBind()
Dim hlk As System.Web.UI.WebControls.HyperLink
Dim groupid As Integer
groupid = CInt(dlsGroup.SelectedValue)
hlk = CType(e.Item.Cells(1).FindControl("hlk"), System.web.UI.WebControls.HyperLink)
hlk.NavigateUrl = "updBoardPower.aspx?eid=" & groupid
System.web.UI.WebControls.Button)