如何为DropDownList设置默认项

            Dim ds As Data.DataSet
            Dim dr As Data.DataRow
            ds = SDS.CROCS.DBManager.Plan.Plan.GetPlanListBeforeDateIncludeLive(scheduleRadCalendar.SelectedDate.AddDays(+1))

             '读取绑定DropDownList的数据
            For i As Integer = 0 To ds.Tables(0).Rows.Count - 1 '按行取出数据
                dr = ds.Tables(0).Rows(i)
                If dr("status") = 1 Then '根据某列的内容来进行设置默认项
                    Me.planDropDownList.SelectedIndex = i
                    Exit For
                End If
            Next
            planDropDownList.DataSource = ds
            planDropDownList.DataBind()