or
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="FixedHeader.aspx.vb" Inherits="FixedHeader" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<
html
xmlns
=
"http://www.w3.org/1999/xhtml"
>
<
head
runat
=
"server"
>
<
title
></
title
>
</
head
>
<
body
>
<
form
id
=
"form1"
runat
=
"server"
>
<
div
>
<
telerik:RadScriptManager
runat
=
"server"
ID
=
"mgrJS"
>
</
telerik:RadScriptManager
>
<
div
style
=
"overflow:scroll;overflow-y:hidden;width:400px"
>
<
telerik:RadGrid
runat
=
"server"
ID
=
"dgHeader"
Skin
=
"Web20"
>
<
ClientSettings
>
<
Scrolling
UseStaticHeaders
=
"True"
/>
<
Selecting
EnableDragToSelectRows
=
"False"
/>
</
ClientSettings
>
<
MasterTableView
BorderWidth
=
"1px"
GridLines
=
"Both"
style
=
"border-collapse: collapse !Important;"
Font-Bold
=
"false"
TableLayout
=
"Fixed"
AutoGenerateColumns
=
"false"
ShowHeader
=
"True"
>
<
RowIndicatorColumn
Visible
=
"False"
>
<
HeaderStyle
Width
=
"20px"
/>
</
RowIndicatorColumn
>
<
ExpandCollapseColumn
Resizable
=
"False"
Visible
=
"False"
>
<
HeaderStyle
Width
=
"20px"
/>
</
ExpandCollapseColumn
>
<
EditFormSettings
>
<
PopUpSettings
ScrollBars
=
"None"
/>
</
EditFormSettings
>
</
MasterTableView
>
</
telerik:RadGrid
>
</
div
>
</
div
>
</
form
>
</
body
>
</
html
>
Partial
Class
FixedHeader
Inherits
System.Web.UI.Page
Dim
dtCols
As
New
DataTable
Dim
dtHeader
As
New
DataTable
Protected
Sub
dgHeaderAPO_NeedDataSource(
ByVal
source
As
Object
,
ByVal
e
As
Telerik.Web.UI.GridNeedDataSourceEventArgs)
Handles
dgHeader.NeedDataSource
dgHeader.DataSource = dtHeader
End
Sub
Protected
Sub
FixedHeader_Load(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Load
'Grid columns will be defined off of this table
dtCols.Columns.Add(
New
DataColumn(
"COL_ID"
,
GetType
(
String
)))
Dim
colRow
As
DataRow = dtCols.NewRow
colRow(0) =
"1234567"
dtCols.Rows.Add(colRow)
colRow = dtCols.NewRow
colRow(0) =
"2345678"
dtCols.Rows.Add(colRow)
colRow = dtCols.NewRow
colRow(0) =
"3456789"
dtCols.Rows.Add(colRow)
colRow = dtCols.NewRow
colRow(0) =
"4567890"
dtCols.Rows.Add(colRow)
colRow = dtCols.NewRow
colRow(0) =
"5678901"
dtCols.Rows.Add(colRow)
colRow = dtCols.NewRow
colRow(0) =
"6789012"
dtCols.Rows.Add(colRow)
colRow = dtCols.NewRow
colRow(0) =
"7890123"
dtCols.Rows.Add(colRow)
'Create Header table
For
Each
dr
As
DataRow
In
dtCols.Rows
dtHeader.Columns.Add(
New
DataColumn(dr(
"COL_ID"
),
GetType
(
Integer
)))
Next
'Populate w/ data
Dim
Generator
As
System.Random =
New
System.Random()
Dim
r
As
DataRow = dtHeader.NewRow
For
j
As
Integer
= 0
To
6
r(j) = Generator.
Next
(0, 100)
Next
dtHeader.Rows.Add(r)
'Define columns of master table view.
For
Each
row
As
DataRow
In
dtCols.Rows
Dim
newCol
As
New
GridBoundColumn
dgHeader.MasterTableView.Columns.Add(newCol)
newCol.HeaderText = row(
"COL_ID"
)
newCol.DataField = row(
"COL_ID"
)
newCol.DataFormatString =
"{0:N0}"
newCol.HeaderStyle.Width = 100
newCol.ItemStyle.Width = 100
Next
End
Sub
Protected
Sub
dgHeaderAPO_PreRender(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
dgHeader.PreRender
If
dgHeader.MasterTableView.GetItems(GridItemType.Header).Length > 0
Then
Dim
header
As
GridHeaderItem =
DirectCast
(dgHeader.MasterTableView.GetItems(GridItemType.Header)(0), GridHeaderItem)
Dim
head
As
GridTHead =
DirectCast
(header.Parent, GridTHead)
'create a new GridHeaderItem which will be the new row
Dim
newHeaderItem
As
New
GridHeaderItem(dgHeader.MasterTableView, 0, 0)
'add 2 empty table header cells, as there are 2 hidden columns always created in RadGrid
newHeaderItem.Cells.Add(
New
GridTableHeaderCell())
newHeaderItem.Cells.Add(
New
GridTableHeaderCell())
Dim
leftMargin
As
Integer
= 0
Select
Case
dtCols.Rows.Count
Case
1, 2
leftMargin = 0
Case
3
leftMargin = 50
Case
4
leftMargin = 75
Case
4
leftMargin = 100
Case
Else
leftMargin = 125
End
Select
'Uncentered code without resizing issue
'newHeaderItem.Cells.Add(New GridTableHeaderCell() With {.Text = "<input id='cbAll' type='checkbox');' \>CENTER ME", .ColumnSpan = dtCols.Rows.Count})
'Centered code with resizing issue
newHeaderItem.Cells.Add(
New
GridTableHeaderCell()
With
{.Text =
"<div style='width:130px;position:fixed;margin-left:"
& leftMargin &
"px;'><input id='cbAll' type='checkbox');' \>CENTER ME</div>"
, .ColumnSpan = dtCols.Rows.Count})
head.Controls.AddAt(0, newHeaderItem)
End
If
End
Sub
End
Class
e.Appointment.Start, e.Appointment.End, e.Appointment.Subject, e.Appointment.Description
it shows only the values in the database in radScheduler1_AppointmentUpdate event
i have binded the schedulder thru a sqlDatasource only using select command.
is there any solution for it?
function dropRowOnTree(args) {
args.get_destinationHtmlElement().click();
<
script
type
=
"text/javascript"
>
function focusItem(panelbar, args) {
var item = args.get_item();
if (item.get_level() == 0)
item.focusFirstChild();
}
</
script
>
<
telerik:RadPanelBar
ID
=
"PostsRadPanelBar"
runat
=
"server"
Skin
=
"Web20"
Font-Size
=
"16px"
onclientitemfocus
=
"focusItem"
ExpandMode
=
"SingleExpandedItem"
>
<
Items
>
<
telerik:RadPanelItem
Text
=
"Office"
Expanded
=
"True"
>
<
Items
>
<
telerik:RadPanelItem
Text
=
"Office Detail"
>
</
telerik:RadPanelItem
>
<
telerik:RadPanelItem
Text
=
"Addresses"
>
</
telerik:RadPanelItem
>
<
telerik:RadPanelItem
Text
=
"Communications"
>
</
telerik:RadPanelItem
>
<
telerik:RadPanelItem
Text
=
"Site Specifics"
>
</
telerik:RadPanelItem
>
</
Items
>
</
telerik:RadPanelItem
>
<
telerik:RadPanelItem
Text
=
"Positions"
>
<
Items
>
<
telerik:RadPanelItem
Text
=
"Position Detail"
>
</
telerik:RadPanelItem
>
<
telerik:RadPanelItem
Text
=
"Assignment Detail (FSO)"
>
</
telerik:RadPanelItem
>
</
Items
>
</
telerik:RadPanelItem
>
<
telerik:RadPanelItem
Text
=
"Products & Services"
>
<
Items
>
<
telerik:RadPanelItem
Text
=
"Products & Services Information"
>
</
telerik:RadPanelItem
>
</
Items
>
</
telerik:RadPanelItem
>
<
telerik:RadPanelItem
Text
=
"Residences"
>
<
Items
>
<
telerik:RadPanelItem
Text
=
"Residence Information"
>
</
telerik:RadPanelItem
>
</
Items
>
</
telerik:RadPanelItem
>
<
telerik:RadPanelItem
Text
=
"Vehicles"
>
<
Items
>
<
telerik:RadPanelItem
Text
=
"Vehicle Detail"
>
</
telerik:RadPanelItem
>
<
telerik:RadPanelItem
Text
=
"Purchase & Disposition"
>
</
telerik:RadPanelItem
>
</
Items
>
</
telerik:RadPanelItem
>
<
telerik:RadPanelItem
Text
=
"Security"
>
<
Items
>
<
telerik:RadPanelItem
Text
=
"Security Information"
>
</
telerik:RadPanelItem
>
</
Items
>
</
telerik:RadPanelItem
>
</
Items
>
</
telerik:RadPanelBar
>
htmlfile: Can't move focus to the control because it is invisible, not enabled, or of a type that does not accept focus.