or
<telerik:GridEditCommandColumn UniqueName="actionsCommandColumn" EditText="Go" ButtonType="PushButton" HeaderStyle-CssClass="RadGridHeaderStyle"> <HeaderStyle Font-Bold="True" Width="9%" /> </telerik:GridEditCommandColumn> </Columns> <EditFormSettings EditFormType="WebUserControl" PopUpSettings-Modal="true" UserControlName="CustomControls\QuoteAndPolicyActions.ascx" CaptionFormatString="Select an Action"> <EditColumn UniqueName="EditCommandColumn1" FilterControlAltText="Filter EditCommandColumn column" Visible="false"> </EditColumn> </EditFormSettings>
Private
Sub
Page_Init(
ByVal
sender
As
Object
,
ByVal
e
As
EventArgs)
Handles
MyBase
.Init
buildGrid()
End
Sub
Sub
buildGrid()
Dim
state
As
String
= drp_state.SelectedValue
If
state =
""
Then
state = 0
End
If
Dim
dt
As
DataTable = myDataAccessClass.data1(param1, param2)
Datasource = dt
GridDataKeyNames =
"ID"
' masterTableCreation builds and adds the columns, no issue with this.
masterTableCreation()
Dim
dtSub
As
DataTable = myDataAccessClass.data1(param3)
hierarchyTable(dtSub,
""
,
"ID"
,
"ID"
)
End
Sub
Public
Sub
hierarchyTable(
ByVal
dt
As
DataTable,
ByVal
datakeys
As
String
,
ByVal
masterKeyField
As
String
,
ByVal
detailKeyField
As
String
)
Dim
hierarchyTable
As
New
GridTableView(RadGrid1)
' set the datasouce
hierarchyTable.DataSource = dt
hierarchyTable.Width = Unit.Percentage(100)
Dim
datakeysArray()
As
String
If
datakeys <>
""
Then
datakeysArray = datakeys.Split(
","
.ToArray())
hierarchyTable.DataKeyNames = datakeysArray
End
If
Dim
relationFields
As
GridRelationFields =
New
GridRelationFields()
relationFields.MasterKeyField = masterKeyField
relationFields.DetailKeyField = detailKeyField
hierarchyTable.ParentTableRelation.Add(relationFields)
RadGrid1.MasterTableView.DetailTables.Add(hierarchyTable)
'add columns
Dim
boundColumn
As
GridBoundColumn
hierarchyTable.Columns.Clear()
For
i
As
Int32 = 0
To
Datasource.Columns.Count - 1
Dim
column
As
DataColumn = Datasource.Columns(i)
Dim
colDataType
As
String
= column.DataType.ToString().ToLower().Replace(
"system."
,
""
)
boundColumn =
New
GridBoundColumn
hierarchyTable.Columns.Add(boundColumn)
boundColumn.DataField = column.ColumnName
boundColumn.HeaderText = column.ColumnName.Replace(
"_"
,
" "
).ToLower()
boundColumn.DataFormatString =
"<nobr>{0}</nobr>"
boundColumn.ItemStyle.HorizontalAlign = HorizontalAlign.Left
Next
End
Sub
<
telerik:RadGrid
ID
=
"RadGrid1"
runat
=
"server"
AutoGenerateColumns
=
"False"
AllowSorting
=
"True"
AllowPaging
=
"True"
PageSize
=
"5"
GridLines
=
"None"
ShowGroupPanel
=
"True"
>
<
MasterTableView
AllowMultiColumnSorting
=
"True"
GroupLoadMode
=
"Server"
>
</
MasterTableView
>
<
PagerStyle
Mode
=
"NextPrevNumericAndAdvanced"
></
PagerStyle
>
<
ClientSettings
AllowDragToGroup
=
"true"
/>
</
telerik:RadGrid
>
RadGrid1.DataSource = ClassLibrary1.Service.Getdata().Where(x => x.Monthdate == DateTime.Parse("2010-12-01 00:00:00.000"));
at Telerik.Web.UI.GridColumn.set_CurrentFilterValue(String value)
at Telerik.Web.UI.GridColumn.set_CurrentFilterValue(String value)
at Telerik.Web.UI.RadGrid.RaisePostBackEvent(String eventArgument)
at System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument)
at System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData)
at System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfte
function
ShowDriverWindow(sender, eventArgs) {
var
hack = "499628";
var
url =
"DriverInfo.aspx?hack="
+ hack;
var
oWnd = radopen(url,
"RadWindowDriverInfo"
);
eventArgs.set_cancel(
true
);
}
var driverInfo = (from dr
in
db.T_DRIVERs
where dr.HACK_ID ==
int
.Parse(hackId)
select
new
{
...
dr.MEDALLION_ID,
...
}).Single();
RadComboBoxSteadyMedl.SelectedValue =
driverInfo.MEDALLION_ID.ToString();
Private
Sub
RadGrid1_PreRender(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
RadGrid1.PreRender
Dim
status
As
String
= Request.QueryString(0)
If
status =
"Future"
Then
For
Each
column
As
GridColumn
In
RadGrid1.Columns
If
(column.UniqueName =
"Start_Dt"
)
Then
CType
(column, GridBoundColumn).
ReadOnly
=
False
CType
(column, GridBoundColumn).DataFormatString =
"{0:D}"
Exit
For
End
If
Next
Else
For
Each
column
As
GridColumn
In
RadGrid1.Columns
If
(column.UniqueName =
"BoundDate"
)
Then
CType
(column, GridBoundColumn).
ReadOnly
=
True
CType
(column, GridBoundColumn).DataFormatString =
"{0:D}"
Exit
For
End
If
Next
End
If
End
Sub