Hallo
Hoffe es kann mir wer helfen

Ich möchte ein Datagrid das das Paging unterstützt
Weiters sollte aber auch in einer Spalte ein Link sein (wird ein Popup aufgerufen)

Soweit habe ich das ja schon

Aber das Problem wenn ich dann auf den Link klick dann geht das Grid wieder auf Seite1 (sollte aber auf der aktuellen bleiben)

Hoffe dass das zusammen funktioniert (sollte auch noch eine manuelle Sortierung zulassen) aber wie und ob das ist die Frage

Es muss doch irgendwo was mit
e As DataGridCommandEventArgs &
e As DataGridPageChangedEventArgs
zutun haben aber wie bekomm ich das alles auf einmal

Hier der Code

Danke schon mal
Roland

<%@ Import Namespace="System.Data" %>
<HTML>
<script language="VB" runat="server">

Dim startIndex As Integer
Public Test
Function CreateDataSource() As ICollection

Dim dt As DataTable
Dim dr As DataRow
Dim i As Integer

'create a DataTable
dt = New DataTable
dt.Columns.Add(New DataColumn("IntegerValue", GetType(Integer)))
dt.Columns.Add(New DataColumn("StringValue", GetType(String)))
dt.Columns.Add(New DataColumn("DateTimeValue", GetType(String)))
dt.Columns.Add(New DataColumn("BoolValue", GetType(Boolean)))

' "query" should return one page of data, beginning at the start index
For i = startIndex to (startIndex + MyDataGrid.PageSize)
dr = dt.NewRow()
dr(0) = i
dr(1) = "Element " + i.ToString()
dr(2) = DateTime.Now.ToShortDateString
If (i Mod 2 <> 0) Then
dr(3) = True
Else
dr(3) = False
End If
dt.Rows.Add(dr)
Next

'return a DataView to the DataTable
CreateDataSource = New DataView(dt)
End Function

Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
startIndex = 0
MyDataGrid.VirtualItemCount = 200
End If
BindGrid
End Sub

Sub MyDataGrid_Page(sender As Object, e As DataGridPageChangedEventArgs)
startIndex = e.NewPageIndex * MyDataGrid.PageSize
MyDataGrid.CurrentPageIndex = e.NewPageIndex
response.write(e.NewPageIndex)
BindGrid
End Sub

Sub BindGrid()
MyDataGrid.DataSource = CreateDataSource()
MyDataGrid.DataBind

End Sub
Sub Grid_CartCommand(sender As Object, e As DataGridCommandEventArgs)

End Sub






</script>
<body>
<form runat="server" ID="Form1">
<ASPataGrid id="MyDataGrid" runat="server" AllowPaging="True" AllowCustomPaging="True" PageSize="10" PagerStyle-Mode="NumericPages" PagerStyle-HorizontalAlign="Right" OnPageIndexChanged="MyDataGrid_Page" BorderColor="black" BorderWidth="1" GridLines="Both" CellPadding="3" CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" AlternatingItemStyle-BackColor="#eeeeee" AutoGenerateColumns="false" OnItemCommand="Grid_CartCommand"
>
<Columns>
<asp:ButtonColumn HeaderText="Message" text="View" CommandName="ViewMessage" />
<asp:BoundColumn HeaderText="IntegerValue" DataField="IntegerValue" />
<asp:BoundColumn HeaderText="IStringValue" DataField="IntegerValue" />
<asp:BoundColumn HeaderText="DateTimeValue" DataField="DateTimeValue" />
<asp:BoundColumn HeaderText="BoolValue" DataField="BoolValue" />
</Columns>
</ASPataGrid>
</form>
</body>
</HTML>