Hi,
Here is the code:
ASPX:
<%@ Page Language="vb" AutoEventWireup="true" CodeBehind="TestEO.aspx.vb" Inherits="TestEO" %>
<%@ Register Assembly="EO.Web" Namespace="EO.Web" TagPrefix="eo" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head><title></title>
</head>
<body>
<form id="Form3" runat=server>
<asp:Button ID="tstbtn" runat="server" width=200 text="Display sort name" />
<eo:CallbackPanel runat="server" id="CallbackPanel1"
Triggers="{ControlID:tstbtn;Parameter:}" Width="100%">
<asp:label id="lblDisplay" runat="server" width=300></asp:label><br />
<eo:Grid runat="server" id="Grid1"
BorderColor="#828790"
BorderWidth="0px"
GridLines=Both
FixedColumnCount="0"
ColumnHeaderDescImage="00050205"
GridLineColor="240, 240, 240"
Width="320"
ColumnHeaderAscImage="00050204"
ColumnHeaderHeight="40"
Font-Size="10pt" Font-Names="Tahoma"
ColumnHeaderDividerImage="../images/header_divider.gif"
EnableTheming="true"
EnableKeyboardNavigation="True"
FullRowMode="false"
height="400"
ScrollBars=both
GoToBoxVisible="true"
GoToLabelText="Page:"
PageSize=10
AllowPaging="false"
AllowColumnReorder="False"
ItemHeight=22
IsCallbackByMe="False"
RunningMode=client>
<Columns>
<eo:CheckBoxColumn HeaderText="<input type='checkbox' id='column1_checkbox' />" Width="30"></eo:CheckBoxColumn>
<eo:StaticColumn AllowResize="False" AllowSort="True" HeaderText="ID" Width="50" DataField="ID"></eo:StaticColumn>
<eo:TextBoxColumn AllowResize="False" AllowSort="True" HeaderText="Name" Width="170" DataField="Name"></eo:TextBoxColumn>
<eo:DateTimeColumn AllowResize="False" AllowSort="True" HeaderText="Date Tmp" Width="90" DataField="DateTmp"></eo:DateTimeColumn>
</Columns>
</eo:Grid>
</eo:CallbackPanel></form></body></html>
**********************************************************************************
VB.NET:
Partial Public Class TestEO
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not CallbackPanel1.IsCallbackByMe Then
Filldatagridonload()
End If
End Sub
Private Sub Filldatagridonload()
Dim dt As New DataTable
Dim dr As DataRow
Dim i As Int16
dt.Columns.Add(New DataColumn("ID", GetType(String)))
dt.Columns.Add(New DataColumn("Name", GetType(String)))
dt.Columns.Add(New DataColumn("DateTmp", GetType(String)))
For i = 0 To 100
dr = dt.NewRow()
dr(0) = i
If i = 20 Or i = 30 Or i = 40 Or i = 50 Then
dr(1) = "A"
Else
dr(1) = "A " & i
End If
dr(2) = "01/01/2008"
dt.Rows.Add(dr)
Next
Dim ds As New DataSet
ds.Tables.Add(dt)
Grid1.DataSource = ds
Grid1.DataBind()
End Sub
Private Sub tstbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tstbtn.Click
Dim EOItem As EO.Web.GridItem
For Each EOItem In Grid1.CheckedItems
lblDisplay.Text = EOItem.Cells(1).Value.ToString
Exit For
Next
End Sub
End Class
**********************************************************************************
Vinny