[سلام نيس]

(16-07-19, 03:48 AM)سعود كتب :

(16-07-19, 03:39 AM)سلام نيس كتب : احسنتم جميعا 
والشكر لكم 
تم حل المسكله بالتحقق من من الداتا جريد فيو بهذا الكود 

كود :

      For i = 0 To DataGridView1.Rows.Count - 1
          If DataGridView1.Rows(i).Cells(0).Value = Item_code.Text Then
MsgBox

فيه كود ابسط لو تستخدم DataTable  او DataSet ممكن تكتب دالة من سطر واحد  باستخدام select  و count  لكن مادام وجدت ان الافضل التحقق من نفس Datagridview فخلاص
تحياتي اخي الكريم.

تحياتي لمجهودك ياغالي 
انا فعلا بستخدم جملة الاستعلام 
في حالة الاضافه 

كود :

 Try
           Dim sql = "select * from Customer where CustomerCode=N'" & (CustomerCode.Text) & "'"
           Dim adp As New SqlClient.SqlDataAdapter(sql, SQLConn)
           Dim ds As New DataSet
           adp.Fill(ds)
           Dim dt = ds.Tables(0)
           If dt.Rows.Count > 0 Then
               MsgBox("اسم العميل موجود بالفعل", MsgBoxStyle.Exclamation, "رسالة تنبيه")
           Else
               Dim dr = dt.NewRow

لاحظ هنا قولتله 

كود :

If dt.Rows.Count > 0 Then
               MsgBox("اسم العميل موجود بالفعل", MsgBoxStyle.Exclamation, "رسالة تنبيه")

لو غير كده عرف ال dr علي انها newrow
طيب في حالة التعديل بستخدم نفسه بس في حاله 

كود :

If dt.Rows.Count = 0 Then
               MsgBox("لم يتم العثور علي كود العميل", MsgBoxStyle.Exclamation, "رسالة تنبيه")
           Else
               Dim dr = dt.Rows(0)

هنا قولتله لو هي مش 0 عرف ال dr علي انها السجل الحالي وابدأ عدل 
طيب انا بقي لو عملت الاتنين في زر واحد
مضطر اقوله 

كود :

           If dt.Rows.Count > 0 Then

يبقي عدل 
طيب لو = 0
يبقي تبدأ تضيف 
هنا بقي المعضله 
انه هيضيف من غير مايبص للاسم 
ف لازم يكرر الاسم لاني استخدمت الحالتين < و =
ف اضطريت ان اخليه يتحقق من الداتا جريد فيو من خلية الاسم 
لو يساوي الاسم اللي انا كتبته ماتضيفش 
لو مايساويس ضيف 
مع العلم اني بفرغ كل ال textbox عند الضغط علي زر الحفظ 
ولما احب اعدل بضغط ع المراد تعدليه من الجريد فيو 
ف عند الضغط بيعبي textbox  بالبيانات ابدا انا اعدلها 

كل الشكر والاحترام لاهتمامك