Private Sub Dg_ItemDataBound(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)
If e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item Then ' Or e.Item.ItemType = ListItemType.EditItem Then
'************************************ checkbox
Dim mycheckbox As CheckBox
mycheckbox = e.Item.FindControl("tcb")
Response.Write(mycheckbox.Text)
If mycheckbox.Checked Then
mycheckbox.Text = "Male"
Else
mycheckbox.Text = "Female"
End If
'************************************
'******************************************* DropDownList
Dim myLst As DropDownList = CType(e.Item.FindControl("tddl"), DropDownList)
Dim myRow As DataRowView = CType(e.Item.DataItem, DataRowView)
Dim lbl As RadioButton = CType(e.Item.FindControl("rdo"), RadioButton)
myLst.DataTextField = "birthday"
myLst.DataValueField = "birthday"
myLst.DataSource = GetRoles(lbl.Text)
myLst.DataBind()
'*******************************************
'****************** labelradiobutton
Dim myLbl As Label
myLbl = e.Item.FindControl("lblRad")
myLbl.Text = "<input type=radio name='myradiogroup' value=" & e.Item.ItemType & ">"
'******************
End If
'********************************* We only want to run this code for items in edit mode
If (e.Item.ItemType = ListItemType.EditItem) Then
'*********************
'Locate our DropDownList
Dim myList As DropDownList = CType(e.Item.FindControl("Eddl"), DropDownList)
'Grab the current row of data - we need that so we know what value to select in the ddl
Dim myRow As DataRowView = CType(e.Item.DataItem, DataRowView)
'Set the Text and Value field for our DropDownList
myList.DataTextField = "birthday"
myList.DataValueField = "birthday"
'Fill our DropDownList with the standard list of data
myList.DataSource = GetRole()
Dim aaaa As Integer = myRow.DataView.Count()
myList.DataBind()
myList.Items.Add("")
myList.SelectedIndex = (aaaa - 1)
'**********************
'****************** labelradiobutton
Dim myLbl As Label
myLbl = e.Item.FindControl("lblRad")
myLbl.Text = "<input type=radio name='myradiogroup' value=" & "e.Item.ItemType" & ">"
'******************
'************************************ checkbox
Dim mycheckbox As CheckBox
mycheckbox = e.Item.FindControl("tcb")
Response.Write(mycheckbox.Text)
If mycheckbox.Checked Then
mycheckbox.Text = "Male"
Else
mycheckbox.Text = "Female"
End If
'************************************
End If
'*********************************
End Sub
Public Function GetRole() As DataView
StrSql = "SELECT "
StrSql = StrSql & "birthday "
StrSql = StrSql & "FROM MTXL "
Dim Comm As OleDbDataAdapter = New OleDbDataAdapter(StrSql, Str)
Dim ds As DataSet = New DataSet()
Comm.Fill(ds, "Roles")
Return ds.Tables("Roles").DefaultView
End Function
Public Function GetRoles(ByVal aaa As String) As DataView
StrSql = "SELECT "
StrSql = StrSql & "birthday "
StrSql = StrSql & "FROM MTXL "
StrSql = StrSql & "where id='" & aaa & "'"
Dim Comm As OleDbDataAdapter = New OleDbDataAdapter(StrSql, Str)
Dim ds As DataSet = New DataSet()
Comm.Fill(ds, "Roles")
Return ds.Tables("Roles").DefaultView
End Function
