| Dim objDT As System.Data.DataTable |
| Dim objDR As System.Data.DataRow |
| Protected Sub RadGrid1_NeedDataSource(ByVal source As Object, ByVal e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource |
| objDT = Session("Cart") |
| RadGrid1.DataSource = objDT |
| End Sub |
| Protected Sub RadGrid1_ItemDeleted(ByVal source As Object, ByVal e As Telerik.Web.UI.GridDeletedEventArgs) Handles RadGrid1.ItemDeleted |
| ' Some code to delete |
| End Sub |
| Private Sub makeCart() |
| If IsNothing(Session("Cart"))Then |
| objDT = New System.Data.DataTable("Cart") |
| objDT.Columns.Add("ID", GetType(Integer)) |
| objDT.Columns("ID").AutoIncrement = True |
| objDT.Columns("ID").AutoIncrementSeed = 1 |
| objDT.Columns("ID").Unique = True |
| objDT.Columns.Add("Quantity", GetType(Integer)) |
| objDT.Columns.Add("ProductName", GetType(String)) |
| objDT.Columns.Add("ProductID", GetType(Integer)) |
| objDT.Columns.Add("Cost", GetType(Decimal)) |
| Session("Cart") = objDT |
| End Sub |
| <telerik:RadGrid ID="RadGrid1" runat="server" AutoGenerateColumns="False" GridLines="None" ShowFooter="True" AllowPaging="True" AllowAutomaticDeletes="True" PageSize="20" AllowAutomaticUpdates="True" OnNeedDataSource="RadGrid1_NeedDataSource"> |
| <PagerStyle Mode="NextPrevAndNumeric" /> |
| <MasterTableView DataKeyNames="ID" HorizontalAlign="NotSet" AutoGenerateColumns="False"> |
| <Columns> |
| <telerik:GridEditCommandColumn ButtonType="ImageButton" UniqueName="EditCommandColumn"> |
| <ItemStyle CssClass="MyImageButton" /> |
| </telerik:GridEditCommandColumn> |
| <telerik:GridBoundColumn Aggregate="Count" DataField="ID" HeaderText="Product ID" |
| FooterText="Total products: " UniqueName="ID"> |
| </telerik:GridBoundColumn> |
| <telerik:GridBoundColumn DataField="ProductName" HeaderText="Product name" SortExpression="ProductName" |
| UniqueName="ProductName"> |
| </telerik:GridBoundColumn> |
| <telerik:GridBoundColumn Aggregate="Sum" DataField="Cost" HeaderText="Unit price" |
| FooterText="Total unit price: " UniqueName="Cost"> |
| </telerik:GridBoundColumn> |
| <telerik:GridBoundColumn Aggregate="Sum" DataField="Quantity" HeaderText="Qty" |
| FooterText="All units in stock: " UniqueName="Quantity"> |
| </telerik:GridBoundColumn> |
| <telerik:GridCalculatedColumn HeaderText="Total Price" UniqueName="TotalPrice" DataType="System.Double" |
| DataFields="Quantity, Cost" Expression="{0}*{1}" FooterText="Total Price: " |
| Aggregate="Sum" /> |
| <telerik:GridButtonColumn ConfirmText="Delete this product?" ButtonType="ImageButton" CommandName="Delete" Text="Delete" |
| UniqueName="DeleteColumn"> |
| <ItemStyle HorizontalAlign="Center" CssClass="MyImageButton" /> |
| </telerik:GridButtonColumn> |
| </Columns> |
| </MasterTableView> |
| </telerik:RadGrid> |
| <authentication mode="Windows" /> |
| <authentication mode="Forms"> |
| <forms name="login" loginUrl="~/admin/login.aspx" /> |
| </authentication> |
| <EditFormSettings> |
| <EditColumn ButtonType="ImageButton" UpdateImageUrl="~/App_Themes/images/save2.gif" |
| EditImageUrl="~/App_Themes/images/Edit.gif" InsertImageUrl="~/App_Themes/images/save2.gif" |
| CancelImageUrl="../App_Themes/images/cancel1.gif" Resizable="true" InsertText="Insert Document" |
| UpdateText="Update Document" UniqueName="EditCommandColumn1" CancelText="Cancel "> |
| </EditColumn> |
| <FormTableButtonRowStyle Width="100%" HorizontalAlign="Right"></FormTableButtonRowStyle> |
| </EditFormSettings> |
Protected Sub RadGrid_InsertCommand(ByVal source As Object, ByVal e As GridCommandEventArgs)
'Get the GridEditFormInsertItem of the RadGrid
Dim insertedItem As GridEditFormInsertItem = TryCast(e.Item, GridEditFormInsertItem)
' Get an error on the next line
Dim ProductName As String = (TryCast(insertedItem("ProductName").Controls(0), TextBox)).Text
Dim UnitPrice As String = (TryCast(insertedItem("UnitPrice").Controls(0), TextBox)).Text
Dim UnitsOnOrder As String = (TryCast(insertedItem("UnitsOnOrder").Controls(0), TextBox)).Text
Dim insertQuery As String
insertQuery = "insert into Products set "
insertQuery = insertQuery & " ProductName='" & ProductName & "'"
insertQuery = insertQuery & " ,UnitPrice=" & UnitPrice
insertQuery = insertQuery & " ,UnitsOnOrder=" & UnitsOnOrder
' Execute the query
GridDataBind() ' Now that the data has been changed
End Sub
Dear,
Actually I was confused where to post this problem...
I am making a search page whose details are as follows
textbox , button
button click
{
dataset ds = getdata("select id,desc_hort,desc_long from my_db where id='" + textbox.text + "';");
radgrid.datasource = ds;
radgrid.databind();
}
radgrid
.......... <telerik:GridTemplateColumn UniqueName="tempcol">
<ItemTemplate>
<tr>
<td>
<a href="details.aspx?id='<%#Eval("id") %>' " target=_blank> <%#Eval("desc_short")%></a><br>
<%#Eval("desc_long")%>
</td>
</tr>
</ItemTemplate>
</telerik:GridTemplateColumn>
all is going well but i felt to implement a new concept of radwindow
now problem with me is that insted of opening details in new page with target=_blank i want to open link in
radwindow
i reffered example
http://demos.telerik.com/aspnet-ajax/window/examples/demoemail/defaultcs.aspx
but as i am a newbie i am unable to understand where to make changes to open that link in radwindow
thanks in advance