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

اذا كنتتستخدم 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

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

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

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

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

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

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

WindowsApplication2.rar

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

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

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

"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

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