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()