ازاي اخلي item معينة فيdropdownlistتعمل binding على datagrid موجودة؟

ياجماعة ممكن حد يرد علية ضروري ولو سؤالي مش واضح اي حد بس يرد وانا حوضحله

ياجماعة ممكن حد يرد علية ضروري ولو سؤالي مش واضح اي حد بس يرد وانا حوضحله

Sub Page_Load)

If Not IsPostBack Then

Dim cmdselect2 As New OleDbCommand

cmdselect2.Connection = con

cmdselect2.CommandType = CommandType.Text

cmdselect2.CommandText = "select * from station "

con.close

Dim ad2 As New OleDbDataAdapter

ad2.SelectCommand = cmdselect2

Dim ds2 As New DataSet

ad2.Fill(ds2, "station")

droparea.DataSource = ds2

droparea.DataTextField = ds2.Tables(0).Columns("stationname").ColumnName.ToString

droparea.DataValueField = ds2.Tables(0).Columns("stationid").ColumnName.ToString

droparea.SelectedValue.ToString()

droparea.DataBind()

ds2.clear

con.close

Protected Sub drp2_SelectedIndexChanged

Dim con As New OleDbConnection

con.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0;data source=d:\pctech.mdb;"

Dim cdm3 As New OleDbCommand

cdm3.Connection = con

cdm3.CommandType = CommandType.Text

cdm3.CommandText = "select * from employees where departmentid =" & drp2.selectedItem.Value & ""

con.open

Dim ad3 As New OleDbDataAdapter

Dim ds3 As New DataSet

ad3.SelectCommand = cdm3

ad3.Fill(ds3, "employees")

drp3.DataSource = ds3

drp3.DataTextField = ds3.Tables(0).Columns("employeename").ColumnName.ToString

drp3.DataValueField = ds3.Tables(0).Columns("employeeid").ColumnName.ToString

drp3.DataBind()

con.close

2003 أم 2005 ؟