or
Private Sub Page_DataBinding(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DataBinding Me.CmDealer.Items.Clear() Me.CmDealer.AppendDataBoundItems = True Me.CmDealer.Items.Add(New ListItem("", "0")) Me.CmDealer.DataValueField = "ID" Me.CmDealer.DataTextField = "Name" Me.CmDealer.DataSource = DataManager.GetDealers() Me.CmDealer.DataBind() Dim dealer As Object = DataBinder.Eval(DataItem, "IDDEALER") If dealer.Equals(DBNull.Value) Then CmDealer.SelectedValue = 0 Return End If CmDealer.SelectedValue = CInt(dealer) CmDealer.DataSource = Nothing '''''''''''''''''''''' Me.CmManager.Items.Clear() Me.CmManager.AppendDataBoundItems = True Me.CmManager.Items.Add(New ListItem("", "0")) Me.CmManager.DataValueField = "ID" Me.CmManager.DataTextField = "Name" Me.CmManager.DataSource = DataManager.GetManagers() Me.CmManager.DataBind() Dim manager As Object = DataBinder.Eval(DataItem, "IDMANAGER") If manager.Equals(DBNull.Value) Then CmManager.SelectedValue = 0 Return End If CmManager.SelectedValue = CInt(manager) CmManager.DataSource = Nothing End SubrtvMenu.Nodes.Clear();
rtvMenu.DataTextField =
"MENU_NAME";
rtvMenu.DataValueField =
"MENU_ID";
rtvMenu.DataFieldID =
"MENU_ID";
rtvMenu.DataFieldParentID =
"PARENT_MENU_ID";
rtvMenu.DataNavigateUrlField =
"LANDING_PAGE";
rtvMenu.DataSource = v_Menu;
rtvMenu.DataBind();
=======================