protected void RadButton12_Click(object sender, EventArgs e)
{
RadComboBox1.SelectedValue = RadComboBox1.SelectedValue + 1;}
function OnClientAppointmentResizeEnd(sender, args) {
var start = args.get_appointment().get_start();
var end = args.get_targetSlot().get_endTime();
var appDuration = Math.ceil((end.getTime() - start.getTime()) / (60000)); // show in minutes
appointment.set_subject(appDuration);
//alert(appDuration);
}
void IPostBackEventHandler.RaisePostBackEvent(string eventArgument)
{
if (eventArgument.Equals("Refresh", StringComparison.InvariantCultureIgnoreCase))
Refresh();
}
<%= Page.GetPostBackEventReference(FormView.FindControl(
"anotaciones"
),
"Refresh"
) %>
((sender
as
Control).FindControl(
"anotaciones"
)
as
Anotaciones).Refresh();
DataTable
dt = new DataTable();
dt.Columns.Add(
"Programs");
dt.Columns.Add(
"Values");
dt.Rows.Add(dt.NewRow());
dt.Rows[0][
"Programs"] = "ABC";
dt.Rows[0][
"Values"] = "10";
dt.Rows.Add(dt.NewRow());
dt.Rows[1][
"Programs"] = "DEF";
dt.Rows[1][
"Values"] = "20";
dt.Rows.Add(dt.NewRow());
dt.Rows[2][
"Programs"] = "GHI";
dt.Rows[2][
"Values"] = "30";
dt.Rows.Add(dt.NewRow());
dt.Rows[3][
"Programs"] = "JKL";
dt.Rows[3][
"Values"] = "40";
dt.Rows.Add(dt.NewRow());
dt.Rows[4][
"Programs"] = "MNO";
dt.Rows[4][
"Values"] = "50";
dt.Rows.Add(dt.NewRow());
dt.Rows[5][
"Programs"] = "PQR";
dt.Rows[5][
"Values"] = "60";
RadChart3.DataSource = dt;
RadChart3.DataBind();
for the above code I get the barchart, But I am not getting the Programs names like abc, def as axis lable value.
Instead of 1,2,3..6 I want abc, def etc. please someone help me.
<
telerik:RadGrid
ID
=
"grdCustomers"
runat
=
"server"
Height
=
"600px"
Skin
=
"Windows7"
AllowAutomaticDeletes
=
"True"
AllowAutomaticInserts
=
"True"
AllowAutomaticUpdates
=
"True"
OnNeedDataSource
=
"grdCustomers_NeedDataSource"
OnDeleteCommand
=
"grdCustomers_DeleteCommand"
OnInsertCommand
=
"grdCustomers_InsertCommand"
OnUpdateCommand
=
"grdCustomers_UpdateCommand"
EnableAJAX
=
"True"
>
<
HeaderContextMenu
CssClass
=
"GridContextMenu GridContextMenu_Windows7"
>
</
HeaderContextMenu
>
<
MasterTableView
DataKeyNames
=
"ID"
GridLines
=
"None"
Width
=
"100%"
CommandItemDisplay
=
"Top"
>
<
Columns
>
<
telerik:GridEditCommandColumn
>
</
telerik:GridEditCommandColumn
>
<
telerik:GridButtonColumn
CommandName
=
"Delete"
ConfirmTitle
=
"Delete"
ConfirmDialogType
=
"RadWindow"
ConfirmText
=
"Delete this product?"
Text
=
"Delete"
UniqueName
=
"Delete"
>
</
telerik:GridButtonColumn
>
</
Columns
>
<
EditFormSettings
ColumnNumber
=
"2"
CaptionFormatString
=
"Edit details for employee with ID {0}"
CaptionDataField
=
"ID"
>
<
FormTableItemStyle
Wrap
=
"False"
></
FormTableItemStyle
>
<
FormCaptionStyle
CssClass
=
"EditFormHeader"
></
FormCaptionStyle
>
<
FormMainTableStyle
CellSpacing
=
"0"
CellPadding
=
"3"
Width
=
"100%"
/>
<
FormTableStyle
GridLines
=
"Horizontal"
CellSpacing
=
"0"
CellPadding
=
"2"
CssClass
=
"module"
Height
=
"110px"
Width
=
"100%"
/>
<
FormTableAlternatingItemStyle
Wrap
=
"False"
></
FormTableAlternatingItemStyle
>
<
FormStyle
Width
=
"100%"
BackColor
=
"#EEF2EA"
></
FormStyle
>
<
EditColumn
UpdateText
=
"Update record"
UniqueName
=
"EditCommandColumn1"
CancelText
=
"Cancel edit"
>
</
EditColumn
>
<
FormTableButtonRowStyle
HorizontalAlign
=
"Right"
CssClass
=
"EditFormButtonRow"
></
FormTableButtonRowStyle
>
</
EditFormSettings
>
<
ExpandCollapseColumn
Visible
=
"False"
>
<
HeaderStyle
Width
=
"19px"
></
HeaderStyle
>
</
ExpandCollapseColumn
>
<
CommandItemSettings
ExportToPdfText
=
"Export to PDF"
></
CommandItemSettings
>
<
RowIndicatorColumn
Visible
=
"False"
>
<
HeaderStyle
Width
=
"20px"
/>
</
RowIndicatorColumn
>
</
MasterTableView
>
<
ClientSettings
>
<
Scrolling
AllowScroll
=
"True"
/>
</
ClientSettings
>
<
FilterMenu
EnableImageSprites
=
"False"
>
</
FilterMenu
>
</
telerik:RadGrid
>
Protected
Sub
grdCustomers_NeedDataSource(
ByVal
sender
As
Object
,
ByVal
e
As
GridNeedDataSourceEventArgs)
Handles
grdCustomers.NeedDataSource
Try
'Select Query to populate the RadGrid with data from table Employees.
Dim
pCustomerID
As
New
SqlClient.SqlParameter(
"@CustomerID"
, SqlDbType.NVarChar)
pCustomerID.Value = cbCustomers.SelectedValue
Dim
tblResults
As
DataTable = ExecuteDataTable(ConnectionStrings.WebConnString, _
"spGetCustomersUsers"
, _
New
Object
() {pCustomerID})
grdCustomers.DataSource = tblResults
Catch
ex
As
Exception
grdCustomers.Controls.Add(
New
LiteralControl(
"Problem. Reason: "
+ ex.Message))
End
Try
End
Sub
Protected
Sub
grdCustomers_UpdateCommand(
ByVal
source
As
Object
,
ByVal
e
As
GridCommandEventArgs)
'Get the GridEditableItem of the RadGrid
'Dim abc As String = e.Item.OwnerTableView.Columns.FindByDataField("ID").ToString()
Dim
editedItem
As
GridEditableItem = TryCast(e.Item, GridEditableItem)
'Get the primary key value using the DataKeyValue.
'Access the textbox from the edit form template and store the values in string variables.
Dim
item
As
GridEditableItem = TryCast(e.Item, GridEditableItem)
Dim
newValues
As
New
Hashtable()
item.OwnerTableView.ExtractValuesFromItem(newValues, item)
Try
Dim
pID
As
New
SqlClient.SqlParameter(
"@ID"
, SqlDbType.Int)
Dim
pUserName
As
New
SqlClient.SqlParameter(
"@UserName"
, SqlDbType.NVarChar)
Dim
pPassword
As
New
SqlClient.SqlParameter(
"@Password"
, SqlDbType.NVarChar)
Dim
pUserFullName
As
New
SqlClient.SqlParameter(
"@UserFullName"
, SqlDbType.NVarChar)
Dim
pRetries
As
New
SqlClient.SqlParameter(
"@Retries"
, SqlDbType.Int)
Dim
pPhone
As
New
SqlClient.SqlParameter(
"@Phone"
, SqlDbType.NVarChar)
Dim
pUserEmail
As
New
SqlClient.SqlParameter(
"@UserEmail"
, SqlDbType.NVarChar)
Dim
pINVEmail
As
New
SqlClient.SqlParameter(
"@INVEmail"
, SqlDbType.NVarChar)
Dim
pDNEmail
As
New
SqlClient.SqlParameter(
"@DNEmail"
, SqlDbType.NVarChar)
Dim
pLockCCCOrder
As
New
SqlClient.SqlParameter(
"@LockCCCOrder"
, SqlDbType.Bit)
Dim
pPowerUser
As
New
SqlClient.SqlParameter(
"@PowerUser"
, SqlDbType.Bit)
Dim
pUserGroupID
As
New
SqlClient.SqlParameter(
"@UserGroupID"
, SqlDbType.Int)
Dim
pInactive
As
New
SqlClient.SqlParameter(
"@Inactive"
, SqlDbType.Bit)
pID.Value = editedItem.OwnerTableView.DataKeyValues(editedItem.ItemIndex)(
"ID"
).ToString()
pUserName.Value = (TryCast(editedItem(
"UserName"
).Controls(0), TextBox)).Text
pPassword.Value = (TryCast(editedItem(
"Password"
).Controls(0), TextBox)).Text
pUserFullName.Value = (TryCast(editedItem(
"UserFullName"
).Controls(0), TextBox)).Text
pRetries.Value = newValues.Item(
"Retries"
).ToString
pPhone.Value = (TryCast(editedItem(
"Phone"
).Controls(0), TextBox)).Text
pUserEmail.Value = (TryCast(editedItem(
"UserEmail"
).Controls(0), TextBox)).Text
pINVEmail.Value = (TryCast(editedItem(
"INVEmail"
).Controls(0), TextBox)).Text
pDNEmail.Value = (TryCast(editedItem(
"DNEmail"
).Controls(0), TextBox)).Text
pLockCCCOrder.Value = (TryCast(editedItem(
"LockCCCOrder"
).Controls(0), CheckBox)).Checked
pPowerUser.Value = (TryCast(editedItem(
"PowerUser"
).Controls(0), CheckBox)).Checked
pUserGroupID.Value = (TryCast(editedItem(
"UserGroupID"
).Controls(0), RadNumericTextBox)).Text
pInactive.Value = (TryCast(editedItem(
"Inactive"
).Controls(0), CheckBox)).Checked
ExecuteInsertSP(ConnectionStrings.WebConnString, _
"spUpdateWebUser"
, _
New
Object
() {pID, _
pUserName, _
pPassword, _
pUserFullName, _
pRetries, _
pPhone, _
pUserEmail, _
pINVEmail, _
pDNEmail, _
pLockCCCOrder, _
pPowerUser, _
pUserGroupID, _
pInactive})
Catch
ex
As
Exception
grdCustomers.Controls.Add(
New
LiteralControl(
"Unable to update Employee. Reason: "
+ ex.Message))
e.Canceled =
True
End
Try
End
Sub