Protected Sub HomeFormView_DataBound(ByVal sender As Object, ByVal e As System.EventArgs)
If HomeFormView.CurrentMode = FormViewMode.Insert Then
Dim dv As DataRowView = CType(HomeFormView.DataItem, DataRowView)
Dim ddlPU As DropDownList = HomeFormView.FindControl("ddlPropertyUnitName")
Dim dsc As SqlDataSource = HomeFormView.FindControl("VacantPropertyUnitsSqlDataSource")
If Not (dv Is Nothing) Then
Dim m As Int32 = dv("PropertyID")
dsc.SelectParameters(
"PropertyID").DefaultValue = m
ddlPU.DataBind()
If Not IsDBNull(dv("PropertyUnitID")) Then
ddlPU.SelectedValue = dv(
"PropertyUnitID")
End If
End If
End If
End Sub