(02-02-17, 05:30 PM)ابو ليلى كتب : يا مروان ما انا اعطيتك الحل في السؤال الماضي وفق طلبك و كما تريد
و بالنسبة للتطبيق تابع معي يا صديقي
اذهب الى فورم الصلاحيات لديك واضف DataGridView للنموذج في اي مكان فارغ
ثم افتح محرر الكود الخاص بنموذج الصلاحيات و اكتب الكود التالي , او انسخه و الصقه لديك

PHP كود :

Public Function GetDays(Num As Long) As DataTable
        Dim _Select As String = "Select user_name ,(DateDiff(""d"",[D1],[D2])) As EndAfter  From user_data Where DateDiff(""d"",[D1],[D2]) " & "<=" & Num
        Using Cmd As New OleDbCommand With {.CommandText = _Select, .Connection = DBConn}
            Dim Reader As OleDbDataReader = Cmd.ExecuteReader
            Dim Dt As New DataTable
            Dt.Load(Reader)
            Return Dt
        End Using
    End Function 


الان في حدث تحميل النموذج اجعله مثل التالي 

PHP كود :

Private Sub FRm_mang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1_Click(sender, e)
        DataGridView1.DataSource = GetDays(2)
    End Sub 


حيث الرقم 2 يمثل عدد الايام قبل انتها ء الصلاحية (سيجلب لك المستخدمين الذين تبقى على نهايتهم يومين)
جرب الكود و شوف النتيجة