or
<
InlineInsertTemplate
>
<
div
>
<
asp:DropDownList
ID
=
"ddlOrganizations"
runat
=
"server"
Width
=
"238px"
></
asp:DropDownList
>
<
br
/>
<
telerik:RadTextBox
ID
=
"rtbSubject"
runat
=
"server"
TextMode
=
"MultiLine"
Columns
=
"35"
EmptyMessage
=
"Title"
Text='<%# Bind("Subject") %>'></
telerik:RadTextBox
>
<
br
/>
<
asp:LinkButton
ID
=
"InsertButton"
runat
=
"server"
CommandName
=
"Insert"
>
Submit
</
asp:LinkButton
>
<
asp:LinkButton
ID
=
"InsertMoreButton"
runat
=
"server"
CommandName
=
"More"
>
Advanced
</
asp:LinkButton
>
<
asp:LinkButton
ID
=
"CancelButton"
runat
=
"server"
CommandName
=
"Cancel"
>
Cancel
</
asp:LinkButton
>
</
div
>
</
InlineInsertTemplate
>
protected
void
Page_Load(
object
sender, EventArgs e)
{
if
(!IsPostBack)
{
SetupResources();
}
}
private
void
SetupResources()
{
ResourceType resType =
new
ResourceType();
resType.ForeignKeyField =
"OrganizationID"
;
resType.DataSource = Organizations.OrganizationList(
false
);
resType.KeyField =
"OrganizationID"
;
resType.Name =
"Organization"
;
resType.TextField =
"OrganizationName"
;
rsProjectSchedule.ResourceTypes.Add(resType);
}
protected
void
rsProjectSchedule_FormCreated(
object
sender, SchedulerFormCreatedEventArgs e)
{
if
(e.Container.Mode == SchedulerFormMode.Insert)
{
DropDownList ddl = (DropDownList)e.Container.FindControl(
"ddlOrganizations"
);
ddl.DataSource = Organizations.OrganizationList(
false
);
ddl.DataTextField =
"OrganizationName"
;
ddl.DataValueField =
"OrganizationID"
;
ddl.DataBind();
}
}
Protected
Sub
RadGrid1_ItemDataBound(sender
As
Object
, e
As
GridItemEventArgs)
Handles
RadGrid1.ItemDataBound
' Display booleans with text labels when grid is not in editing mode
If
TypeOf
e.Item
Is
GridDataItem
AndAlso
Not
e.Item.IsInEditMode
Then
Dim
item
As
GridDataItem =
DirectCast
(e.Item, GridDataItem)
Dim
verifiedCheck
As
Boolean
=
DirectCast
(item(
"IsVerified"
).Controls(0), CheckBox).Checked
Dim
activeCheck
As
Boolean
=
DirectCast
(item(
"IsActive"
).Controls(0), CheckBox).Checked
Dim
approvedCheck
As
Boolean
=
DirectCast
(item(
"IsApproved"
).Controls(0), CheckBox).Checked
Dim
lockedCheck
As
Boolean
=
DirectCast
(item(
"IsLockedOut"
).Controls(0), CheckBox).Checked
If
verifiedCheck
Then
item(
"IsVerified"
).Text =
"<span class="
"label label-success autowidth"
">Ok</span>"
Else
item(
"IsVerified"
).Text =
"<span class="
"label label-warning autowidth"
">No</span>"
End
If
If
activeCheck
Then
item(
"IsActive"
).Text =
"<span class="
"label label-success autowidth"
">Ok</span>"
Else
item(
"IsActive"
).Text =
"<span class="
"label label-important autowidth"
">No</span>"
End
If
If
approvedCheck
Then
item(
"IsApproved"
).Text =
"<span class="
"label label-success autowidth"
">Ok</span>"
Else
item(
"IsApproved"
).Text =
"<span class="
"label label-warning autowidth"
">No</span>"
End
If
If
lockedCheck
Then
item(
"IsLockedOut"
).Text =
"<span class="
"label label-warning autowidth"
">Ok</span>"
Else
item(
"IsLockedOut"
).Text =
"<span class="
"label label-success autowidth"
">No</span>"
End
If
End
If
End
Sub