[Osama_NY]

(04-12-20, 12:26 PM)Anas Mahmoudnd Sub كتب : اما الطلب الثاني فاجده بسيطا ، اي كانت طريقتك لجلب البيانات من قاعدة البيانات استخدمها في كل زر مع تغيير اسم الجدول

مثلا قم بتعريف دالة تجلب جميع بيانات الجدول باسم الجدول :

كود :

   Function GetDateFromTable(tableName As String) As DataTable
       Dim commandText As String = String.Format("Select * from {0}", tableName)
       Dim dt As New DataTable
       Using connection As New SqlClient.SqlConnection(connectionString)
           Using adapter As New SqlClient.SqlDataAdapter(commandText, connection)
               adapter.Fill(dt)
           End Using
       End Using
       Return dt
   End Function

السلام عليكم 
هل في  connectionString اكتب جملة الاتصال  

---

(04-12-20, 12:26 PM)Anas Mahmoud كتب : تفضل الطلب الاول :

كود :

   Private Sub DataGridView1_RowPrePaint(sender As Object, e As DataGridViewRowPrePaintEventArgs) Handles DataGridView1.RowPrePaint
       If e.IsLastVisibleRow Then Return

       Dim dgv As DataGridView = sender
       Dim row = dgv.Rows(e.RowIndex)
       Dim expDate As Date = row.Cells("ExpDate").Value

       Select Case expDate
           Case Is <= Now.Date
               row.DefaultCellStyle.BackColor = Color.LightPink

           Case Is < Now.Date.AddDays(7)
               row.DefaultCellStyle.BackColor = Color.Yellow

       End Select
   End Sub

بالنسبة للكود هدا يظهر لي خطا في جملة Dim expDate As Date = row.Cells("ExpDate").Value

---

سؤال اخر
اريد ان اربط جدول واحد باكتر من button بحيث عن طريق الفئة مثلا الجدول يكون فيه عدة عدة اصنف كلما ضغطت على button يظهر لي بيانات ذلك الصنف المعين مثلا لدي منظومة قهوة عندما اريد ان اظغطت على button قهوة يظهر لي بيانات القهوة فقط و اذا اردت ان اضغطت على ساندوتشات يظهر لي بيانات ساندوتشات فقط و الى الخ