Retrieving Row Values From Dropdown list and BoundColumn in DataGrid (2 Viewers)

<asp:DropDownList id="myDrop" runat"server" OnSelectedIndexChanged="myDropChanged" AutoPostBack="True" />

Sub myDropChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Dim d as DropDownList = sender, c as TableCell, item as DataGridItem
Dim val1 as string, val2 as string

c = d.Parent
item = c.Parent
val1 = item.Cells(0).Text
val2 = d.SelectedValue
End Sub

<asp: DropDownList ID="cboPriority"
OnSelectedIndexChanged="cboPriority_Update"
AutoPostBack="True"
[COLOR="Red"]DataValueField="Priority"
SelectedIndex='<%# DataBinder.Eval(Container.DataItem, "Priority") %>'[/COLOR]
runat="server">
[COLOR="red"]<asp:ListItem Value="0" />
<asp:ListItem Value="1" />
<asp:ListItem Value="2" />
<asp:ListItem Value="3" />
<asp:ListItem Value="4" />
<asp:ListItem Value="5" />
<asp:ListItem Value="6" />
<asp:ListItem Value="7" />
<asp:ListItem Value="8" />[/COLOR]
</asp: DropDownList>

Private Sub populateMyDrop()
Dim strSQL as string, myConn as SqlClient.SqlConnection
Dim myComm as SqlClient.SqlCommand, myDataReader as SqlClient.SqlDataReader, strConn as string, intPriority as integer = 0
Dim i as integer, d as DropDownList, intCustId as integer

' declare your dropdownlist
d = me.cboPriority

' set an arbitary value for customer id - I've made this up for later
intCustId = Session("CustId")

' Add the options to the dropdownlist
' Add a blank value to start with

d.Items.Add(New ListItem(String.Empty,String.Empty))
' Now add 1-8 options
For i = 1 To 8
d.Items.Add(New ListItem(i,i))
Next

' Create a datareader to find your required value.
' I'm assuming sql server is being used and you know your 
' connection string properties

strSQL = "SELECT Priority FROM myTable" & _
" WHERE CustomerId = @intCustId"
myConn = New SqlClient.SqlConnection(strConn)
myComm = New SqlClient.SqlCommand(strSQL,myConn)
' Always use parameters if using SQL strings - SQL injection attacks are a pain in the ass.
myComm.Parameters.Add(New SqlClient.SqlParameter("@intCustId",intCustId))
myConn.Open()
myDataReader = myComm.ExecuteReader

' Set the dropdownlist selectedindex dependant on value retrieved
Select Case myDataReader.HasRows()
    Case False
    'no value found leave the ddl to default to zero index (blank value)
    Case True
    ' we've found a value but must make sure this value contained within ddl
    ' I'm assuming only one row will be returned ie. CustId is primary key
     Do While myDataReader.Read
      Select Case myDataReader.IsDbNull(0)
       Case True
        ' null value found - leavethe ddl to default to zero index
       Case False
       ' found a value - define intPriority variable
       intPriority = myDataReader.GetInt32(0)
     Loop

' close your datareader and connection
myDataReader.Close()
myConn.Close()

' Now to make sure we don't get an error when setting the selecedindex
' we place the code within a Try clause. This means if an error is raised ie hte intPriority variable is not contained within the dropdownlist we can catch it and do as we wish with it.

' First check if we found a Priority value at all
Select Case intPriority > 0
Case False
d.SelectedIndex = 0
Case True
Try
' attempt to set the selectedvalue
d.SelectedValue = intPriority
Catch ex as Exception
' For some reason we failed - we could do several things
' ie. If Throw an error then uncomment the line below
' Throw New Exception(ex.Message)
' Or just set the ddl to zero index
d.SelectedIndex = 0
End Try
End Sub

OnItemDataBound="myDataGridDB"

 Sub myDataGridDB(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)

Dim d as dropdownlist, intPriority as integer
Select CAse e.item.itemtype
 CAse ListItemType.AlternatingItem, ListItemType.Item
 d = e.item.findcontrol("cboPriority")
 intPriority = e.item.dataitem("Priority")
End Select


End Sub

 Sub myDataGridDB(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)
Dim d as dropdownlist, intPriority as integer
Select CAse e.item.itemtype
 CAse ListItemType.AlternatingItem, ListItemType.Item
 d = e.item.findcontrol("cboPriority")
 intPriority = e.item.dataitem("Priority")

populatemyddl(d,intPriority)
End Select

End Sub

Private Sub populatemyddl(d as dropdownlist,intPriority as integer)
Dim i as integer

d.items.add(new ListItem(string.empty,string.empty))
For i = 1 to 8
d.items.add(new ListItem(i,i))
Next

Try
d.selectedvalue = intPriority
Catch
throw new exception(intPriority & " not found in " & d.ClientId)
End Try
End Sub

<asp: DropDownList ID="cboPriority"
AutoPostBack="True"
runat="server">
</asp: DropDownList>

OnSelectedIndexChanged="cboPriority_Update"....

Sub cboPriority_Update(ByVal sender As System.Object, ByVal e As System.EventArgs)

Dim strConnection as String =ConfigurationSettings.AppSettings("MyConn")
Dim objConnection As New SqlConnection(strConnection)
Dim strSQL  as string
Dim dbComm as SqlCommand

Dim d as DropDownList = sender, c as TableCell, item as DataGridItem
Dim intPriority as string
Dim intProjectID As Int32 =Convert.ToInt32(item.Cells(0).Text)

c = d.Parent
item = c.Parent
intPriority = d.SelectedValue

'Response.Write("ProjectID=" & intProjectID & "<br>")
'Response.Write("Priority=" & intPriority & "<br>")

strSQL="UPDATE MyTable SET Priority = ' " & intPriority & "'" _
& " WHERE ProjectID = " & intProjectID

dbComm= New SqlCommand(strSQL,objConnection) 

objConnection.Open()
dbComm.ExecuteNonQuery()
objConnection.Close

End Sub

<asp: DropDownList ID="cboPriority"
AutoPostBack="True"
runat="server">
OnSelectedIndexChanged="cboPriority_Update"
</asp: DropDownList>

Sub cboPriority_Update(ByVal sender As System.Object, ByVal e As System.EventArgs)

Dim d as DropDownList
d = sender
response.write(d.ClientId)
End Sub