[محمد اسماعيل]

عندي 2 داتا جريد فيو وانقل البيانات من الاولي الي الثانية بالفورم 2 اريد تطبيق الشروط الاتية

1- عدم نقل بيانات لصفوف سبق نقلها لكل مرة نقل ( حيث يضاف الي قاعدة بيانات الداتا الاولي صفوف جديدة مع الابقاء علي الصفوف القديمة )

2- نقل البيانات بكل الخلايا المطلوبة بشرط الا تكون قيم الخلية بالعمود الخامس او السادس خالية من الداتا جريد الاول الي الداتا جريد بالفورم 2

الكود الذي استخدمتة ولم ينقل معي

كود :

For intI As Integer = 0 To DataGridView1.Rows.Count - 1
           Dim AUTO As Integer = FORM2.DataSet1.Tables("TB1").Compute("Max(ID_TB)", "ID_TB >= 0") + "1"
           If Not DataGridView1.Rows(intI).Cells(6).Value = Nothing AndAlso DataGridView1.Rows(intI).Cells(5).Value.ToString.Length >= 11 Then
               Dim cmd As New OleDbCommand("insert into TB1 (ID_TB, NAME_TB,TELEPHON_TB,MON_TB,DATENOW_TB) values ('" & _
                                AUTO & "','" & DataGridView1.Rows(intI).Cells(1).Value & "','" & DataGridView1.Rows(intI).Cells(6).Value & " - " & DataGridView1.Rows(intI).Cells(5).Value & "','" & DataGridView1.Rows(intI).Cells(7).Value & "','" & "22/4/2015" & _
                                               "')")
               cmd.Connection = FORM2.con
               FORM2.con.Open()
               cmd.ExecuteNonQuery()
               FORM2.con.Close()
               If FORM2.con.State = ConnectionState.Open Then
                   FORM2.con.Close()
               End If

               Validate()
               DataGridView1.Refresh()
               FORM2.BindingSource1.EndEdit()
               FORM2.DataAdapter1.Update(FORM2.DataSet1, "TB1")
               FORM2.DataSet1.AcceptChanges()
               FORM2.conn()
               FORM2.count()
               MsgBox("تم الاضافه والحفظ بنجاح")
           End If

       Next