[سؤال] مشكلة في كتابة كود - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [سؤال] مشكلة في كتابة كود (/showthread.php?tid=17160) |
مشكلة في كتابة كود - yissmail - 05-09-16 السلام عليكم مشكلة عندما اريد نقل البيانات من جدول لاخر مع مراعات التحديث وعرضه في الداتا جريد تظهر بعض الاخطاء اولا الداتا جريد لا تعرض شيئاً ثانياً الجدول الذي تم نقل البيانات اليه لا يتم تحدسثه بل يتم تكرار البيانات من جديد ليصبح عدد الـ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 بيانات كل عمليات الاستعارة RE: مشكلة في كتابة كود - yissmail - 05-09-16 تم رفع المشروع |