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

السلام عليكم ورحمة الله شباب  لو سمحتو ان عندي الدتا جريد فيو بتتعبة وفق شرط معين هو شرط التاريخ وعايز اخفي الدتا جريد فيو لم لا يكوون فيه قيم وهي موجودة بالفورم الرئيسي ولكم الشكر نرجو المساعدة
 Public Function GetDays(Num As Long) As DataTable
        Dim _Select As String = "Select b,c ,(DateDiff(""m"",[i],[j])) As EndAfter  From stourg Where DateDiff(""m"",[i],[j]) " & "<=" & Num
        Using Cmd As New OleDbCommand With {.CommandText = _Select, .Connection = con}
            Dim Reader As OleDbDataReader = Cmd.ExecuteReader
           
            Dim Dt As New DataTable
            Dt.Load(Reader)
            Return Dt

        End Using

    End Function
هذا هو الكود المستخدمة في التعبية مشكور ين انشاالله

(05-09-18, 07:56 PM)عبدالرحمن بشري عمر كتب : [ -> ]السلام عليكم ورحمة الله شباب  لو سمحتو ان عندي الدتا جريد فيو بتتعبة وفق شرط معين هو شرط التاريخ وعايز اخفي الدتا جريد فيو لم لا يكوون فيه قيم وهي موجودة بالفورم الرئيسي ولكم الشكر نرجو المساعدة
 Public Function GetDays(Num As Long) As DataTable
        Dim _Select As String = "Select b,c ,(DateDiff(""m"",[i],[j])) As EndAfter  From stourg Where DateDiff(""m"",[i],[j]) " & "<=" & Num
        Using Cmd As New OleDbCommand With {.CommandText = _Select, .Connection = con}
            Dim Reader As OleDbDataReader = Cmd.ExecuteReader
           
            Dim Dt As New DataTable
            Dt.Load(Reader)
            Return Dt

        End Using

    End Function
هذا هو الكود المستخدمة في التعبية مشكور ين انشاالله

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

فقط ضع هذا السطر :



قبل End Using

وضعة الكود لكين المشكلة مازالة قائمة
وعندي فل اللود فورم واضع
   DataGridView1.DataSource = GetDays(4)

     

        DataGridView1.Columns(0).HeaderText = "أسم المادة"
        DataGridView1.Columns(1).HeaderText = "الأسم التجاري"
        DataGridView1.Columns(2).HeaderText = "قبل الانتهاء "
هذا الكود والدتا جريج فيو موضوعة في الفورم ارئسية

بعد تشغيل التطبيق ممكن تصور الشاشة ؟

مشكور اخي حريف المشكلة اتحلت
  وضعت الكود قبل
شكر لك للمرة الثانية
Return Dt