تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كفية سؤال طريقة التعامل DataList مع DataPager
#11
للاسف هى دمن م شورع كمل
و هو ان عايزو لو دوس على ايه يظهر اسمها بس كده علشان اقدر اعمل بيه استعلام
يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ(33) سورة الرحمن
الرد
تم الشكر بواسطة:
#12
هل يوجد هل للمشكلة دى ؟؟
يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ(33) سورة الرحمن
الرد
تم الشكر بواسطة:
#13
تفضلو شباب ده حل المشكلة لى وقفت قدمى
[HTML] Private Sub DataList1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList1.ItemCommand
Dim lblId As Button = DirectCast(DataList1.Items(e.Item.ItemIndex).FindControl("Button5"), Button)
Label1.Text = lblId.Text
End Sub[/HTML]
يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ(33) سورة الرحمن
الرد
تم الشكر بواسطة:
#14
السلام عليكم قومت بعمل الكود التالى
كود :
Public Sub databinds()
    
        Dim strConnString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
        Dim con As New SqlConnection(strConnString)
        If ConnectionState.Open Then con.Close()
        con.Open()
        dadapter = New SqlDataAdapter("select Impression from Table_Ads", con)
        dset = New DataSet()
        adsource = New PagedDataSource()
        dadapter.Fill(dset)
        adsource.DataSource = dset.Tables(0).DefaultView
        adsource.PageSize = 18
        adsource.AllowPaging = True
        adsource.CurrentPageIndex = pos
        Button4.Enabled = Not adsource.IsFirstPage
        Button3.Enabled = Not adsource.IsFirstPage
        Button1.Enabled = Not adsource.IsLastPage
        Button2.Enabled = Not adsource.IsLastPage
        DataList1.DataSource = adsource
        DataList1.DataBind()
    End Sub
كود :
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
        pos = 0
        databinds()
    End Sub

    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
        databinds()
    End Sub

    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
        databinds()
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        pos = adsource.PageCount - 1
        databinds()

    End Sub
و لكن بتحصل مشكلة هنا
كود :
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        pos = adsource.PageCount - 1
        databinds()

    End Sub
هنا بالضبطpos = adsource.PageCount -1
و ده نص المشكلة لى زهقت منو
Object reference not set to an instance of an object.
يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ(33) سورة الرحمن
الرد
تم الشكر بواسطة:
#15
هو ده الحل
كان المشكلة فى ترتيب الكود
كود :
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            img()
            Me.ViewState("vs") = 0
        End If
        pos = CInt(Me.ViewState("vs"))
        databinds()
    End Sub
يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ(33) سورة الرحمن
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم