21-02-18, 08:48 PM
عندي 2 داتا جريد فيو وانقل البيانات من الاولي الي الثانية بالفورم 2 اريد تطبيق الشروط الاتية
1- عدم نقل بيانات لصفوف سبق نقلها لكل مرة نقل ( حيث يضاف الي قاعدة بيانات الداتا الاولي صفوف جديدة مع الابقاء علي الصفوف القديمة )
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