ما اسباب ظهور هذا الخطا فى الداتا جريد فيو!!!!!!!!!!!!!!!
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك vb.net :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
ما اسباب ظهور هذا الخطا فى الداتا جريد فيو!!!!!!!!!!!!!!!
السلام عليكم هذه الصوره توضح الخطأ ارجو من الاخوة تفسير ذلك الخطأ
عدل سابقا من قبل خالد كامل1 في الأربعاء مارس 27, 2019 5:05 pm عدل 1 مرات
خالد كامل1- .
- تاريخ التسجيل : 25/01/2019
المساهمات : 9
النقاط : 21
التقيم : 0
الدولة :
الجنس :
رد: ما اسباب ظهور هذا الخطا فى الداتا جريد فيو!!!!!!!!!!!!!!!
يبدو كما لو كنت تستخدم خاصية DataSource في DataGridView. عند استخدام هذه الخاصية لربط البيانات ، لا يمكنك إضافة صفوف بشكل صريح مباشرةً إلى DataGridView.
المبرمج الطموح- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 207
النقاط : 368
التقيم : 17
الدولة :
الجنس :
رد: ما اسباب ظهور هذا الخطا فى الداتا جريد فيو!!!!!!!!!!!!!!!
هل يمكننى ان ارسل لك الكود وتوضحلى اين الخطأالمبرمج الطموح كتب:يبدو كما لو كنت تستخدم خاصية DataSource في DataGridView. عند استخدام هذه الخاصية لربط البيانات ، لا يمكنك إضافة صفوف بشكل صريح مباشرةً إلى DataGridView.
خالد كامل1- .
- تاريخ التسجيل : 25/01/2019
المساهمات : 9
النقاط : 21
التقيم : 0
الدولة :
الجنس :
رد: ما اسباب ظهور هذا الخطا فى الداتا جريد فيو!!!!!!!!!!!!!!!
افضل شىء هو انك ترفع الكود حتى يتثنى للجميع روية و التعديل عليه
زهراء- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 438
النقاط : 769
التقيم : 67
الدولة :
الجنس :
رد: ما اسباب ظهور هذا الخطا فى الداتا جريد فيو!!!!!!!!!!!!!!!
- الكود:
'============================= طريقه الادخال بالبار كود ==============
'================ فى حدث المغادرة ليف ====================
'=========== فى خصائص الفورم نفسه نفعل زر كى بريفيو ونجعله ترو (key preview):ملحوطـــ مهمة ــــة
Private Sub buy_bar_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles buy_bar.Leave
'=============== نضع متغير =========
Dim bar_ As Integer
If buy_bar.Text <> Nothing Then
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("select * from items where item_bar like '" & buy_bar.Text & "'", con)
da.Fill(dt)
'================= للتحقق من وجود الصنف فى الداتا جريد فيو ولو موجود يزيد الكميه المدخله من نفس الصنف =============
If dt.Rows.Count > 0 Then
'============= التحقق منن وجود رقم الصنف ==========
For i = 0 To dgv_buy.Rows.Count - 1
If dgv_buy.Rows(i).Cells(0).Value = dt.Rows(0).Item("item_code") Then
dgv_buy.Rows(i).Cells(4).Value = dgv_buy.Rows(i).Cells(4).Value + 1
clc()
buy_bar.Clear()
Exit Sub
End If
Next
'============== اضافة السجل الى الداتا ان لم يجد رقم الصنف ==========
dgv_buy.Rows.Add()
bar_ = dgv_buy.Rows.Count - 1
dgv_buy(0, bar_).Value = dt.Rows(0).Item("item_code")
dgv_buy(1, bar_).Value = dt.Rows(0).Item("item_name")
dgv_buy(2, bar_).Value = dt.Rows(0).Item("item_unit")
dgv_buy(3, bar_).Value = dt.Rows(0).Item("item_tklofa")
dgv_buy(4, bar_).Value = 1
clc()
End If
End If
buy_bar.Clear()
'clc()
End Sub
خالد كامل1- .
- تاريخ التسجيل : 25/01/2019
المساهمات : 9
النقاط : 21
التقيم : 0
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك vb.net :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد