• 0
™Sn!p3R™

عداد تنازلى بالداتا جريد فيو

سؤال

السلام عليكم و رحمة الله و بركاته 

 

اود ان استفسر عن كيفية عمل عداد تنازلى داخل الداتا جريد فيو بمعنى 

انى اريد وضع عمود به عداد تنازلى يبدأ من 30 يوم و حتى 0 يوم و يقل بمعدل 1 لكل يوم 

 

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0

اذا كنتتستخدم datatable قم باضافة حقل جديد ثم اضاف القيم

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim td As New DataTable        td.Columns.Add("nCode")        td.Columns.Add("sName")        For index As Integer = 30 To 1 Step -1            Dim nr As DataRow = td.NewRow()            nr(0) = index            td.Rows.Add(nr)        Next        DataGridView1.DataSource = td    End Sub
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اشكرك جدا اخى على المساعدة بعد تطبيق الكود 
يقوم بمحو كل اعمدة الداتا جريد فيو و يضيف 30 صف مترقمين من 30 ل 1 

ما اريد توضيحه هو ان الداتا جريد فيو عندى بها عمود اسمه  "days" و يتم ادخال القيمة 30 اليه بالكود و لكن ما اريده هو بعد ادخال القمية يبدأ هذا العدد فى التناقص بمعدل 1 لكل يوم على العلم انا كل صف ف الداتا جريد فيو به قيمة تختلف عن الصف الاخر 

على ما اعتقد ممكن نستخدم DateTimePicker فى هذه العملية بحيث كل ما الايام تذيد يوم كل قيم هذا العمود "days" تقل 1 
انا فكرت فى كده بس مش عارف هطبقه ازاى بالكود :/ 

تم تعديل بواسطه ™Sn!p3R™
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

هذا مجرد فكرة كود عدله بما يناسبك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخى لم استطيع استخدام الكود الذى ارفقته او التعديل عليه لانه بعيد عن ما اطلبه 

ارفقت لك نموزج ما اطلبه هو عند الضغط على Button1  جميع قيم العمود days تقل 1 فقط 

WindowsApplication2.rar

تم تعديل بواسطه ™Sn!p3R™
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم ورحمة الله

حل المس\الة بسيط

اليك الكود التالي لحل المشكلة

"Update table1 SET days = days - 1"

وهذا مقطع البرنامج الذي تحتاج للتعديل والعرض

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Dim QueryStr = "Update table1 SET days = days - 1"        Conn.Open()        Dim DataAdapter1 As New OleDbDataAdapter(QueryStr, Conn)        Dim DataSet1 As New DataSet        DataAdapter1.Fill(DataSet1, "Table1")        Conn.Close()        Showtable()    End Sub    Private Sub Showtable()        Conn.Open()        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)        Dim DataSet1 As New DataSet        DataAdapter1.Fill(DataSet1, "Table1")        Conn.Close()        DataGridView1.DataSource = DataSet1.Tables("Table1")    End Sub
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اشكرك جداً احى جزاك الله كل خير 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .