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
Sub
rtvMenu.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();
=======================