[alimse]

السلام عليكم الحمد الله تم حل المشكلة عن طريق اليدوية يعنى عن طريق الكود و الاستغناء عن المعالج
و اليكم الكود
asp

[HTML]<aspataList ID="DataList1" runat="server"
CellSpacing="5"
EnableTheming="True" Height="550px" RepeatColumns="4"
RepeatDirection="Horizontal" Width="866px">
<AlternatingItemStyle Wrap="True" />
<ItemStyle
Wrap="True" />
<ItemTemplate>
<asp:Image ID="Image2" runat="server" Height="121px" Width="146px" ImageUrl = '<%# Eval("img_Products")%>'
/>
<br />

<asp:Label ID="name_ProductsLabel" runat="server"
Text='<%# Eval("name_Products") %>' />
<br />
</ItemTemplate>
</aspataList>[/HTML]
و كده حط ايه حقل عايزو يظهر فى DataList
نجبى بقى للكود
اول حاجة نعمل تصريح عام
[HTML]Dim dadapter As SqlDataAdapter
Dim dset As DataSet
Dim adsource As PagedDataSource
Dim connstring As String = "نص الاتصال"
Dim pos As Integer[/HTML]

و بعد كده نعمل Public علشان نريح نفسها من الكود مره واحد

[HTML] Public Sub databind()
dadapter = New SqlDataAdapter("select [img_Products], [name_Products] from img_Products", connstring)
dset = New DataSet()
adsource = New PagedDataSource()
dadapter.Fill(dset)
adsource.DataSource = dset.Tables(0).DefaultView
adsource.PageSize = 8
adsource.AllowPaging = True
adsource.CurrentPageIndex = pos
Button4.Enabled = Not adsource.IsFirstPage
Button2.Enabled = Not adsource.IsFirstPage
Button1.Enabled = Not adsource.IsLastPage
Button3.Enabled = Not adsource.IsLastPage
DataList1.DataSource = adsource
DataList1.DataBind()
End Sub[/HTML]

و نجبى بقى لل Button
الاول
[HTML] Protected Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
pos = 0
databind()
End Sub[/HTML]
السابق
[HTML]Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
pos = CInt(Me.ViewState("vs"))
pos -= 1
Me.ViewState("vs") = pos
databind()
End Sub[/HTML]

التالى
[HTML]Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
pos = CInt(Me.ViewState("vs"))
pos += 1
Me.ViewState("vs") = pos
databind()
End Sub[/HTML]
الاخير
[HTML]Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
pos = adsource.PageCount - 1
databind()

End Sub[/HTML]
طبعا كده الكود الحمد الله تمام
طبعا شايف الكابتن لى هناك ده بيقولى الكود مش شغل هقولو ركز فى الكود بلاش نسخ و لصق ده الكود شغل ازاى الفل بس نقص نشغل الكود بقى ولا ايه و ده اخر حاجة
[HTML] Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then

Me.ViewState("vs") = 0
End If
pos = CInt(Me.ViewState("vs"))
databind()

End Sub[/HTML]
و كده الحمد الله الكود شغل ازاى الفل