(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 بالبيانات ابدا انا اعدلها
كل الشكر والاحترام لاهتمامك
