[hassan 14]

كود :

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Try
           Dim dt As New DataTable
           Dim da As New OleDbDataAdapter
           dt.Clear()
           da = New OleDbDataAdapter("select * from Table3 where Nlivre = " & Nlivre.Text & "", con)
           da.Fill(dt)
           If dt.Rows(0).Item("mooar").ToString = True Then
               MsgBox("هذا الكتاب في الاعارة", MsgBoxStyle.Exclamation, "تنبيه")
           Else
               preedt.Rows.Add()
               Dim last As Integer = preedt.Rows.Count - 1
               preedt.Rows(last).Item("Nlivre") = Nlivre.Text
               preedt.Rows(last).Item("Npree") = Npree.Text
               preedt.Rows(last).Item("Nometalib") = Nometalib.Text
               preedt.Rows(last).Item("Prnometalib") = Prnometalib.Text
               preedt.Rows(last).Item("Titerlivre") = Titerlivre.Text
               preedt.Rows(last).Item("Classelivre") = Classelivre.Text
               preedt.Rows(last).Item("Auterlivre") = Auterlivre.Text
               preedt.Rows(last).Item("Ntalib") = Ntalib.Text
               preedt.Rows(last).Item("mooar") = CheckBox1.Checked
               preedt.Rows(last).Item("Datepre") = Datepre.Value
               preedt.Rows(last).Item("nmbtotard") = Nmbtotard.Text
               Dim sav As New OleDbCommandBuilder(preeda)
               preeda.Update(preedt)
               preedt.AcceptChanges()
               MsgBox("تم الاعارة بنجاح", MsgBoxStyle.Information, "تنبيه")
               loudpree()
               novoupree()

           End If

       Catch ex As Exception

       End Try
   End Sub