[أبووسم]

(13-09-19, 07:08 PM)سميـر كتب : السلام عليكم

للاستعلام عن آخر إجازة يتم بعكس الترتيب بـ DESC وأخذ سطر واحد بـ TOP 1

كود :

Private Sub dgv_AllName_SelectionChanged(sender As Object, e As EventArgs) Handles dgv_AllName.SelectionChanged
   Me.NameEjaza.Text = ""
   Me.DateStart.Text = ""
   Me.DateEnd.Text = ""
   Dim da As New OleDbDataAdapter
   da = New OleDbDataAdapter("select top 1 * from Ejaza where id1='" & Val(Me.ID1.Text) & "' order by DateStart DESC", con)
   Dim dt As New DataTable
   If da.Fill(dt) > 0 Then
       Me.NameEjaza.Text = dt.Rows(0)("NameEjaza").ToString()
       Me.DateStart.Text = dt.Rows(0)("DateStart").ToString()
       Me.DateEnd.Text = dt.Rows(0)("DateEnd").ToString()
   End If
End Sub

أرجوأن يكون المطلوب

اعتذر على ازعاجك و إزعاج الاخوان الباقين
هل بالأمكان أن تربطها مع جدولين مختلفه ، و المرة هذي بدون داتا قريد .

البرنامج في المرفقات وللجميع شكري