[yissmail]

السلام عليكم مشكلة عندما اريد نقل البيانات من جدول لاخر مع مراعات التحديث وعرضه في الداتا جريد تظهر بعض الاخطاء 
اولا الداتا جريد لا تعرض شيئاً
ثانياً الجدول الذي تم نقل البيانات اليه لا يتم تحدسثه بل يتم تكرار البيانات من جديد ليصبح عدد الـrow فيه ما يقرب من 450
هذا هو الكود المستخدم 
ارجو الافادة وشكراً
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
conn = New SqlConnection("Data source =.;Initial Catalog= Elibrary;Integrated Security=True")
ds = New DataSet
sql = "INSERT INTO History(StudentName,GR,titleofthebook,publicnum,dateadd,dateback)SELECT b.StudentName,b.GR,b.titleofthebook,b.publicnum,b.dateadd,b.dateback FROM Borrow as b WHERE NOT EXISTS(SELECT * FROM History WHERE b.Id=History.Id AND b.StudentName=History.StudentName AND b.GR=History.GR AND b.titleofthebook=History.titleofthebook AND b.publicnum=History.publicnum AND b.dateadd=History.dateadd AND b.dateback=History.dateback )"
da = New SqlDataAdapter(sql, conn)
da.Fill(ds, "b")
dv = New DataView(ds.Tables("b"))
cur = CType(Me.BindingContext(dv), CurrencyManager)
DataGridView1.DataSource = ds.Tables("b")
DataGridView1.Rows.Clear()
DataGridView1.Columns.Clear()
With DataGridView1
.Columns.Add("Id", "BorrowID")
.Columns.Add("StudentName", "StudentName")
.Columns.Add("GR", "Grade")
.Columns.Add("titleofthebook", "BookTitle")
.Columns.Add("publicnum", "BookNumber")
.Columns.Add("dateadd", "BorrowStart")
.Columns.Add("dateback", "BorrowEnd")
End With
For r As Integer = 0 To cur.Count - 1
DataGridView1.Rows.Add({cur.Current("Id"), cur.Current(1), cur.Current(2), cur.Current(3), cur.Current(4), cur.Current(5), cur.Current(6)})
cur.Position += 1
Next
End Sub




في الفورم 2 يوجد زر history عند الضغط عليه يظهر فورم 5المفروض بالضغط على زرٍ Show history يظهر في Data Gried بيانات كل عمليات الاستعارة 

[yissmail]

تم رفع المشروع