[hamada558]

حبيبي نسيم، انت بدك تتعلم ولا بدك تنتهي من المشروع وخلاص.

انت عارف مهمة check شو بتعمل؟ بنتظر جوابك.

---

يظهر بدك تنتهي من المشروع، بتمنالك التوفيق حبيبي

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' هذا حدث عند فتح الفورم
        ' نقوم بربط الداتاقريد و حقول النص بقاعدة البيانات

        Call LoadData()  'LoadData نقوم بأستدعاء إجراء قمت بعمله بالأسفل وسميته

        check()

    End Sub

    Sub check()
        Dim dt As New DataTable
        Dim ret As Integer = New OleDb.OleDbDataAdapter("SELECT T_Name, T_Tel1, DateDiff ('d', Now(), data_end) As days FROM T_Tel WHERE DateDiff ('d', Now(), data_end) < 30", con).Fill(dt)

        If ret > 0 Then
            For Each r As DataRow In dt.Rows
                ListBox1.Items.Add(r("T_Name") & " (" & r("T_Tel1") & ") = " & r("days"))
            Next
        End If
    End Sub