المشاركات : 102
المواضيع 25
الإنتساب : Sep 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
للاسف هى دمن م شورع كمل
و هو ان عايزو لو دوس على ايه يظهر اسمها بس كده علشان اقدر اعمل بيه استعلام
يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ(33) سورة الرحمن
المشاركات : 102
المواضيع 25
الإنتساب : Sep 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
هل يوجد هل للمشكلة دى ؟؟
يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ(33) سورة الرحمن
المشاركات : 102
المواضيع 25
الإنتساب : Sep 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
تفضلو شباب ده حل المشكلة لى وقفت قدمى
[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) سورة الرحمن
المشاركات : 102
المواضيع 25
الإنتساب : Sep 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
السلام عليكم قومت بعمل الكود التالى
كود :
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) سورة الرحمن
المشاركات : 102
المواضيع 25
الإنتساب : Sep 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
هو ده الحل
كان المشكلة فى ترتيب الكود
كود :
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) سورة الرحمن
