الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

معذرة ............ما الخطأ فى هذا الكود

مغلق
بدأه ياسر محمدحسانين في 5 يونيو 2006 · 10 رد · 835 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندى قاعدة بيانات بها الحقول التالبة

م اسم الصنف الكمية اسم العميل التاريخ

خانة اسم الصنف بها حوالى 10 اصناف تتكرر دائما والمطلوب هو ايحاد اجمالى كل صنف داخل label وقد استخدمت الكود التالى ولكنه يعطى القيمة صفر فما الخطأ

ارجوا ان لا اكون اثقلت عليكم

وشكرا جزيلا لكم جميعا 

Dim  str1 As Long

Dim str2As Long

Dim i As Integer

For i = DBGrid1.Row To DBGrid1.Row - 1

DBGrid1.Row = i: DBGrid1.Col = 3

str1 = str1 + Val(DBGrid1.Text)

DBGrid1.Row = i: DBGrid1.Col = 3

str2 = str2 + Val(DBGrid1.Text)

Next

Label6 = str1

Label7 = str2

End Sub

#2

بسم الله الرحمن الرحيم

أنا لم أعمل على DBGrid لكن صيغة الFor واضحة

ياسر محمدحسانين كتب:
For i = DBGrid1.Row To DBGrid1.Row - 1

حيث أن برنامجك لا يدخل على التكرار أصلا

فلو فرضنا أن عدد الصفوف(DBGrid1.Row ) عشره

إذاً سيبدأ التكرار من 10 وينتهي بـ 9 وهذا مستحيل

أولا ابدأ بأول سجل / صف الى آخر سجل لكي يكون البحث صحيحاً

أرجو أن تكون قد فهمتني

بالتوفيق والسلام عليكم ورحمة الله وبركاته

********************* ******************** *********************

(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))

********************* ******************** *********************

لا تقـل من أيـن أبدأ

طـاعـة الله الـبدايـة

***

لا تقـل أين طـريـقي

شــرع الله الهـدايـة

***

لا تـقـل أيـن نعـيمي

جـنـة الله كـفـايـــــة

***

لا تقـل في الغـد أبدأ

ربمـــا تأتـي النهـايـــة

**************** **************** ****************

#3

اذا ما الحل فى رايك وهل يجب ان يكون لكل صنف عمود ام ماذا افعل

وجزاك الله خيرا

#4

يا ليت تضع المثال هنا حتى يتم مشاهدته وتعديله ..

460.gif

#5

بسم الله الرحمن الرحيم

أخي ياسر لا أقدر أن أحكم على البرنامج دون مشاهدتهومثل ما قال المتميز ضع مثال على ما تريد لكي نقدر أن نتفاعل مع الموضوع بشكل أفضل

كما أن هناك بعض الأسئلة التي لو كنت تعرف اجابتها لحليت المشكله وهي :

ما هو INDEX للصف الأول

ما هو INDEX للصف الأخير

فتكون حدود التكرار من INDEX الصف الأول الى INDEX الصف الأخير وباقي الكود يبقى كما هو .

ويبقى الحل الأفضل أن تضع المثال هنا

والسلام عليكم ورحمة الله وبركاته

تم تعديل هذه المشاركة بواسطة البريشي في 6 يونيو 2006 في 13:57

********************* ******************** *********************

(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))

********************* ******************** *********************

لا تقـل من أيـن أبدأ

طـاعـة الله الـبدايـة

***

لا تقـل أين طـريـقي

شــرع الله الهـدايـة

***

لا تـقـل أيـن نعـيمي

جـنـة الله كـفـايـــــة

***

لا تقـل في الغـد أبدأ

ربمـــا تأتـي النهـايـــة

**************** **************** ****************

#6

أخ ياسر الرجاء إرفاق المثال لنستطيع مساعدتك

img.jpg
#7

اليكم المثال

هو مثال بسبط ارجوا التوجيه والافادة لاننى مبتدىء

وجزاكم الله خيرا

#8

بسم الله الرحمن الرحيم

ياسر محمدحسانين كتب:
اليكم المثال

وجزاكم الله خيرا

المثال غير مرفق أرجو إعادة إرفاقه

ياسر محمدحسانين كتب:
هو مثال بسبط ارجوا التوجيه والافادة لاننى مبتدىء

كلنا هنا نتعلم ولست المبتدىء الوحيد

استمر وستجد كل الدعم بإذن الله فالكل هنا يساعدون ويتعلمون

بالتوفيق والسلام عليكم ورحمة الله وبركاته

********************* ******************** *********************

(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))

********************* ******************** *********************

لا تقـل من أيـن أبدأ

طـاعـة الله الـبدايـة

***

لا تقـل أين طـريـقي

شــرع الله الهـدايـة

***

لا تـقـل أيـن نعـيمي

جـنـة الله كـفـايـــــة

***

لا تقـل في الغـد أبدأ

ربمـــا تأتـي النهـايـــة

**************** **************** ****************

#10

بسم الله الرحمن الرحيم

لم أفهم المثال جيداً ، ولكن يمكنك عمل الآتي للانتقال من أول سجل الى آخر واحد في الـ DBGrid 

Private Sub Command3_Click()
On Error Resume Next
a = 0
Do
DBGrid1.Row = a
a = a + 1
If Err.Number = 6148 Then Exit Do

'هنا يمكنك كتابة الأوامر التي تريد تنفيذها على السجل 

Loop
End Sub

والسلام عليكم ورحمة الله وبركاته

تم تعديل هذه المشاركة بواسطة البريشي في 8 يونيو 2006 في 09:32

********************* ******************** *********************

(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))

********************* ******************** *********************

لا تقـل من أيـن أبدأ

طـاعـة الله الـبدايـة

***

لا تقـل أين طـريـقي

شــرع الله الهـدايـة

***

لا تـقـل أيـن نعـيمي

جـنـة الله كـفـايـــــة

***

لا تقـل في الغـد أبدأ

ربمـــا تأتـي النهـايـــة

**************** **************** ****************

#11

شكرا جزيلا اخى الكريم

هذا الموضوع مغلق.

مواضيع مشابهة