RadGrid inside Radgrid hierarchy using Template Column

Problem:

I want to make RadGrid hierarchy using ItemTemplate.and I want commandItem display at top in Detail Grid just like Master Grid.

Solution:

Its technique is very simple,you have to put a <DetailTables> tag just after <MasterTableView> and make the relation of  Master and Detail, see the following example and watch for Bold text.But here I like to mention one thing that insert/update/delete events of Master and Detail grids are same and you have to differentiate that either insert/update/delete is called from Master or Detail. However NeedDataSource event is called when Master Grid is binned and DetailTableDataBind event is called when Detail table is binned.

<telerik:RadGrid ID="RadGrid1" runat="server" AutoGenerateColumns="False" PageSize="20"
        AllowSorting="True" AllowPaging="True" ShowStatusBar="True" GridLines="None"
        Skin="WebBlue" CellSpacing="0">
        <MasterTableView DataKeyNames="ParentID_PK" ClientDataKeyNames="ParentID_PK" CommandItemDisplay="Top">
        <DetailTables>
            <telerik:GridTableView DataKeyNames="DetailID_PK" ClientDataKeyNames="DetailID_PK"
                    Width="100%" runat="server" CommandItemDisplay="Top">
                <ParentTableRelation>
                    <telerik:GridRelationFields DetailKeyField="ParentID_FK" MasterKeyField="ParentID_PK">
                    </telerik:GridRelationFields>
                </ParentTableRelation>
                <Columns>

<%--here will be the columns of Detail table--%>

                </Columns>
            </telerik:GridTableView>
        </DetailTables>
        <Columns>



<%--here will be the columns of Master table--%>

        </Columns>
    </MasterTableView>
</telerik:RadGrid>

RadGrid Multirow Selection form Client Side

Problem:

How to select a multiple rows in RadGrid from client side?

Solution:

Make AllowMultiRowSelection  property to True for multi row selection and in client settings make AllowRowSelect to True. and include a GridClientSelectColumn in Columns Tag.

For Example:

<telerik:radgrid id="RadGrid1" runat="server" autogeneratecolumns="False" pagesize="20"
        allowsorting="True" allowpaging="True" showstatusbar="True" gridlines="None"
        skin="WebBlue" cellspacing="0" allowmultirowselection="true">
<ClientSettings>
           <Selecting AllowRowSelect="True"/>
</ClientSettings>
<MasterTableView>
<Columns>
<telerik:GridClientSelectColumn UniqueName="MyClientSelectColumn" HeaderText="asd">
</telerik:GridClientSelectColumn>
<telerik:GridTemplateColumn UniqueName="TemplateColumn">
<ItemTemplate>
<asp:Label ID="lblID" runat="server" Text="It is hidden ID or primary key of the row" Visible="false"></asp:Label>
</ItemTemplate>
</telerik:GridTemplateColumn>
</Columns>
</MasterTableView>
</telerik:radgrid>

To get the selected rows you should use a for each loop on selected Items of RadGrid like this one :

For Each item As GridDataItem In RadGrid1.SelectedItems
          Dim lblID As Integer = CType(CType(item.FindControl("lblID"), Label).Text, Integer)
Next

Give an option of "All" in RadGrid PageSize Combo

To show all rows in RadGrid. I want to give an option of "All" in RadGrid
PageSize Combo. Like this:

Solution:

VB Code

Protected Sub RadGrid1_ItemCreated(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemCreated
        If TypeOf e.Item Is GridPagerItem Then
            Dim combo As RadComboBox = TryCast(TryCast(e.Item, GridPagerItem).FindControl("PageSizeComboBox"), RadComboBox)

            ' The number of items shown when all is selected
            Dim allRowsCount As Integer = Integer.MaxValue

            ' Remove duplicates
            Dim duplicate As RadComboBoxItem = combo.Items.FindItemByValue(allRowsCount.ToString())
            If duplicate IsNot Nothing Then
                duplicate.Remove()
            End If

            ' Create a new item for showing all
            Dim item As New RadComboBoxItem("All", allRowsCount.ToString())
            item.Attributes.Add("ownerTableViewId", e.Item.OwnerTableView.ClientID)
            combo.Items.Add(item)

            ' Set the current pagesize as the selected value
            combo.Items.FindItemByValue(RadGrid1.PageSize.ToString()).Selected = True
        End If
    End Sub

Hashtable Vs Dictionary(of T,T)

I will prefer yo use Dictonary(of T,T)  instead of hastbale because it is type safe and second it will not cast object type  in to appropriate type so performance is better .

Hashtable:

Hashtable is non generic type collection from name space(system.collection)
by default it can contain  any type  means it accept system.object(every type reference or value type derived from system.object class).Hashtable store item in key /value pair. means value are stored in hashcode of key
"key Can't duplicate".

Module Module1

    Sub Main()
        Dim list As New Hashtable
        list.Add(1, "yousuf")
        list.Add(2, "ashar")
        list.Add("third", "captain jack sparrow")
        list.Add(4, "babosa")
        Console.WriteLine("value of key :third")
        Console.WriteLine(list("third"))
        Console.WriteLine("Is Captain Jack Sparrow still in black perl")
        Console.WriteLine(list.ContainsValue("captain jack sparrow"))
        Console.WriteLine("Keys and values In list")
        For Each itm As DictionaryEntry In list
            Console.WriteLine("key : {0} and has value {1}", itm.Key, itm.Value)
        Next
        Console.WriteLine("Keys In list")
        For Each ky As Object In list.Keys
            Console.WriteLine("key : {0} ", ky)
        Next
        Console.WriteLine("values In list")
        For Each vl As Object In list.Values
            Console.WriteLine("value : {0} ", vl)
        Next
        Console.ReadLine()
    End Sub

End Module

Out Put:

Dictonary(of T,T):

Dictonary(of T,T)  is  generic type collection from name space(system.collection.generic)
 it can contain a specific type means that its type safe so that you can't insert an integer and string in same list.
Dim lst As New Dictonary(of T,T)
where "T" can be integer ,string or any type.  if you will assign T as "Object" then it will work same as non generic type.Dictonary(of T,T)  store item in key /value pair. means value are stored in hashcode of key"key Can't duplicate".

Module Module1
    Sub Main()
        Dim list As New Dictionary(Of Integer, String)
        list.Add(1, "yousuf")
        list.Add(2, "ashar")
        list.Add(3, "captain jack sparrow")
        list.Add(4, "babosa")
        Console.WriteLine("value of key :3")
        Console.WriteLine(list(3))
        Console.WriteLine("Is Captain Jack Sparrow still in black perl")
        Console.WriteLine(list.ContainsValue("captain jack sparrow"))
        Console.WriteLine("Keys and values In list")
        For Each itm As KeyValuePair(Of Integer, String) In list
            Console.WriteLine("key : {0} and has value {1}", itm.Key, itm.Value)
        Next
        Console.WriteLine("Keys In list")
        For Each ky As Object In list.Keys
            Console.WriteLine("key : {0} ", ky)
        Next
        Console.WriteLine("values In list")
        For Each vl As Object In list.Values
            Console.WriteLine("value : {0} ", vl)
        Next
        Console.ReadLine()
    End Sub
End Module

Out Put:

Stack VS Stack(of T)

I will prefer yo use Stack(of T)  instead of Stack because it is type safe and second it will not cast object type  in to appropriate type so performance is better .

Stack:

Stack is non generic type collection from name space(system.collection)
by default it can contain  any type  means it accept system.object(every type reference or value type derived from system.object class). stack work on the principle of  LIFO(Last  in First Out) .

Module Module1

    Sub Main()
        Dim stk As New Stack
        stk.Push(1)
        stk.Push("Second")
        stk.Push(3)
        stk.Push("4th")
        Console.WriteLine("first in List")
        Console.WriteLine(stk.Peek)
        stk.Pop()
        Console.WriteLine("after deque first in List")
        Console.WriteLine(stk.Peek)
        Console.ReadLine()
    End Sub
End Module

Out Put:

first in List
4th
after deque first in List
3

Stack(of T):

Stack(of T)  is  generic type collection from name space(system.collection.generic)
 it can contain a specific type means that its type safe so that you can't insert an integer and string in same list.
Dim lst As New stack(of T)
where "T" can be integer ,string or any type.  if you will assign T as "Object" then it will work same as non generic type.Queue(of T)  work on the principle of  LIFO(Last  in First Out) .

Module Module1
    Sub Main()
        Dim stk As New Stack(Of Integer)
        stk.Push(1)
        stk.Push(2)
        stk.Push(3)
        stk.Push(4)
        Console.WriteLine("first in List")
        Console.WriteLine(stk.Peek)
        stk.Pop()
        Console.WriteLine("after deque first in List")
        Console.WriteLine(stk.Peek)
        Console.ReadLine()
    End Sub
End Module

Out Put:

first in List
4
after deque first in List
3

Queue VS Queue(of T)

I will prefer yo use Queue(of T)  instead of Queue because it is type safe and second it will not cast object type  in to appropriate type so performance is better.

Queue:

Queue is non generic type collection from name space(system.collection)
by default it can contain  any type  means it accept system.object(every type reference or value type derived from system.object class). Queue work on the principle of  FIFO(first in First Out) .it insert items like in array (one after other in sequence)

Module Module1

 Sub Main()
        Dim que As New Queue()
        que.Enqueue(1)
        que.Enqueue("Second")
        que.Enqueue(3)
        que.Enqueue("4th")
        Console.WriteLine("first in List")
        Console.WriteLine(que.Peek)
        que.Dequeue()
        Console.WriteLine("after deque first in List")
        Console.WriteLine(que.Peek)
        Console.ReadLine()
    End Sub
End Module

Out Put:

first in List
1
after deque first in List
Second

Queue(of T):

Queue(of T)  is  generic type collection from name space(system.collection.generic)
 it can contain a specific type means that its type safe so that you can't insert an integer and string in same list.
Dim lst As New Queue(of T)
where "T" can be integer ,string or any type.  if you will assign T as "Object" then it will work same as non generic type.Queue(of T) work on the principle of  FIFO(first in First Out) .it insert items like in array (one after other in sequence)

Module Module1

    Sub Main()
        Dim que As New Queue(Of Integer)
        que.Enqueue(1)
        que.Enqueue(2)
        que.Enqueue(3)
        que.Enqueue(4)
        Console.WriteLine("first in List")
        Console.WriteLine(que.Peek)
        que.Dequeue()
        Console.WriteLine("after deque first in List")
        Console.WriteLine(que.Peek)
        Console.ReadLine()
    End Sub

End Module

Out Put:

first in List
1
after deque first in List
2


I will prefer yo use Queue(of T)  instead of Queue because it is type safe and second it will not cast object type  in to appropriate type so performance is better .

Arraylist Vs List collection in VB.net

ArrayList:

arraylist is non generic type collection from name space (system.collection)
by default it can contain  any type  means it accept system.object (every type reference or value type derived from system.object class).
For Example:

Module Module1

    Sub Main()

        Dim lst As New ArrayList

        lst.Add("yousuf")

        lst.Add(2)

        Dim STR() As String = {"ashar", "kamran"}

        lst.AddRange(Str)

        For Each Obj As Object In lst

            Console.WriteLine(Obj)

        Next

        Console.ReadLine()

    End Sub

End Module

Out Put:

yousuf

2

ashar

kamran

LIST:

list is  generic type collection from name space(system.collection.generic)
 it can contain a specific type means that its type safe so that you can't insert an integer and string in same list.
Dim lst As New List(Of  T)
where "T" can be integer ,string or any type.  if you will assign T as "Object" then it will work same as non generic type.
For Example:

Module Module1

    Sub Main()

        Dim lst As New List(Of String)

        lst.Add("yousuf")

         Dim STR() As String = {"yasir", "kamran"}

        lst.AddRange(Str)

        For Each Obj As Object In lst

            Console.WriteLine(Obj)

        Next

        Console.ReadLine()

    End Sub

End Module

Out Put:

yousuf

ashar

kamran

I will prefer you to use List instead of arraylist because it is type safe and second it will not cast object type  in to appropriate type so performance is better .






 

How to apply css on RadDatePicker

Problem:

How to apply css on RadDatePicker? I am Applying css like that :

<telerik:RadDatePicker ID="RadDatePicker1" Runat="server" Culture="en-US"
CssClass="txt_box">
</telerik:RadDatePicker>

but is not working, it is giving me unwanted results.

Solution:

You should use "DateInput" tag in RadDatePicker. for example:

<telerik:RadDatePicker ID="RadDatePicker1" Runat="server" Culture="en-US">
       <DateInput CssClass="txt_box">
       </DateInput>
</telerik:RadDatePicker>

Find Label Control from Item Temple of RadGrid

Problem:

I am using GridTemplateColumn in RadGrid and I want find the label control which is in grid's ItemTemplate to update record.

I am using this code in grid's updatecommand,

VB CODE:

Dim Label1 As Label = CType(e.Item.FindControl("Label1"), Label)

but control is not found thus there is (nothing) in Label1.

Solution:

Try this,

VB CODE:

Dim Label1 As Label = DirectCast(CType(e.Item, GridEditFormItem).OwnerTableView.Items(e.Item.ItemIndex).FindControl("Label1"), Label)

Code Snippets

Introduction:

Snippet is a programming term for a small region of re-usable source code, machine code or text. Code Snippets provide a way for you to insert ready-made snippets of code into your projects.

Advantages:

• Write once use anywhere: Reduce the repeatable writing of code effort.
• Define/Maintain a Coding Standard to be used for any Project/Organization.
• Easy to use as well as create and also easily maintainable.
• Share with other developers.
• Increase productivity by making coding faster.

Creating a Snippet File:

To create a snippet file, you must create an XML file, and then write the XML code that makes up your code snippet.
Following are the steps to create a snippet file:

Step1

Step 2

Step 3

Step 4

Step 5

Step 6

Manage Code Snippets:

The Code Snippets Manager allows you to set the directories and individual snippets that you want available to insert into your code.

To access the Code Snippets Manager :

      On the Tools menu, click Code Snippets Manager.

To add a directory to the Code Snippet Manager :

In the Language: drop-down list, select the language that you want to add a directory to.

Click Add. This opens the Code Snippets Directory window.

Select the directory that you want to add to the Code Snippets Manager and click ‘OK’. The directory will now be used to search for available code snippets.

Update In LINQ not Working

Problem: I am working on a console application and I have a table in my .DBML File as FirstTable

I am using following code written below to update a field "Father Name" but it is still not updating it in Relational Database MS SQL.

VB Code:

Imports System.Data
Imports System.Collections.Generic
Module Module2
    Dim DB As New NorthWinddatacontext()

    Sub main()

        Dim UpdateName = (From p In DB.FirstTables Where p.Name = "Yousuf"
                       Select p).Single

        UpdateName.FatherName = "Hashmi1"
        DB.SubmitChanges()
    End Sub

My code is not working

Solution: You have not set any Primary Key on Your Table  in your Relational Database.Make a Primary Key and try the same code again by Droping the table again on Your DBML.

is neither a DataColumn nor a DataRelation for table DefaultView

Problem: I get this error when I try to filter any column in my RadGrid.I am using template columns.

"is neither a DataColumn nor a DataRelation for table DefaultView"

Here is my code of a Column

<telerik:GridTemplateColumn HeaderStyle-HorizontalAlign="Center" HeaderText="PO #" Visible="true">
 <ItemTemplate>
<asp:Label ID="lblPONumber" Text='<%# Eval("_PONumber") %>' runat="server">
</asp:Label>
</ItemTemplate>
<HeaderStyle HorizontalAlign="Center" />
</telerik:GridTemplateColumn>

Solution: You have to check that DataField property is present or not.

Here is corrected Code

<telerik:GridTemplateColumn DataField="_PONumber" HeaderStyle-HorizontalAlign="Center" HeaderText="PO #" Visible="true">
 <ItemTemplate>
<asp:Label ID="lblPONumber" Text='<%# Eval("_PONumber") %>' runat="server">
</asp:Label>
</ItemTemplate>
<HeaderStyle HorizontalAlign="Center" />
</telerik:GridTemplateColumn>

First Column of RadGrid to stay visible

Problem: I have many columns in my RadGrid ,I want first column to stay visible while scrolling.Only first column should appear all the time.
Solution: This can be done using FrozenColumnsCount in ClientSettings tag.

Example:

<telerik:RadGrid ID="radGridServices" runat="server">

    <MasterTableView CommandItemDisplay="Top" DataKeyNames="Services_ID_PK" ClientDataKeyNames="Services_ID_PK">

    </MasterTableView>

    <ClientSettings>

        <Scrolling AllowScroll="true" FrozenColumnsCount="1" SaveScrollPosition="true" UseStaticHeaders="true" />

        <ClientEvents />

    </ClientSettings>

</telerik:RadGrid>

Simple handling Of Events In Visual Basic .NET 4.0 Using Handler

Problem: How to handle events in Visual Basic .NET 4.0 using Handler ? 
Solution: Just Copy The Whole Code Below in Console Application

VB Code:

Module Module1
    Sub Main()
        Dim objWork As New Worker
        AddHandler objWork.WorkDone, AddressOf work_WorkDone
        objWork.DoWork()
    End Sub

    Private Sub work_WorkDone(ByVal completedWork As Integer)
        Console.WriteLine(completedWork)
    End Sub
End Module

Public Class Worker
    Public Event WorkDone(ByVal completedWork As Integer)
    Public Sub DoWork()
        For completedWork As Integer = 1 To 100
            System.Threading.Thread.Sleep(1000)
            RaiseEvent WorkDone(completedWork)
        Next
    End Sub
End Class

C# Code:

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics; 

static class Module1
{
   public static void Main()
   {
     Worker objWork = new Worker();
     objWork.WorkDone += work_WorkDone;
     objWork.DoWork();

   }
}

private static void work_WorkDone(int completedWork)
{
   Console.WriteLine(completedWork);
}

public class Worker
{
   public event WorkDoneEventHandler WorkDone;
   public delegate void WorkDoneEventHandler(int completedWork);

   public void DoWork()
   {
     for (int completedWork = 1; completedWork <= 100; completedWork++)

     {
       System.Threading.Thread.Sleep(1000);

       if (WorkDone != null)

       {
         WorkDone(completedWork);
       }
     }
   }
}