تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية عمل تكرار تنفيذ مجموعة اوامر بناءا علي عناصر في لسته
#1
السيد الفاضل
هناك اصناف يتم تحميلها في اللستة بالكود التالي
'تعبئة اكود الاصناف
ComboBox1.Items.Clear()
Sql = "SELECT * FROM items"
Dp = New OleDbDataAdapter(Sql, objconn)
Dp.Fill(Ds, "items")
objconn.Close()

For i As Integer = 0 To Me.BindingContext(Ds, "items").Count - 1
Dim AddStr As String = Ds.Tables("items").Rows(i).Item("itnam").ToString
If AddStr <> "" Then ComboBox1.Items.Add(AddStr)
Next

وهذا الكود لحساب الرصيد لصنف


Ds = New DataSet
If objconn.State = ConnectionState.Closed Then objconn.Open()
If firstone = False Then
Sql = "SELECT * FROM raseed where invsun='" & Me.ComboBox1.Text & "' "
Else
Sql = "SELECT * FROM raseed "
End If


cmd.Connection = objconn
cmd = New OleDbCommand(Sql, objconn)
Dp = New OleDbDataAdapter(cmd)
builder = New OleDbCommandBuilder(Dp)
Ds = New DataSet()
Dp.Fill(Ds, "raseed")
If Ds.Tables("raseed").Rows.Count = 0 Then
Me.TextBox2.Text = ""
MsgBox("لم يتم شراء او بيع هذا الصنف")
Exit Sub

End If


Try


Ds.Tables("raseed").Rows(0).Item("it_balance") = 0
For r As Integer = 0 To Ds.Tables("raseed").Rows.Count - 1
If IsDBNull(Ds.Tables("raseed").Rows®.Item("it_balance")) Then Ds.Tables("raseed").Rows®.Item("it_balance") = 0
If r = 0 Then
Ds.Tables("raseed").Rows®.Item("it_balance") = Ds.Tables("raseed").Rows(0).Item("it_balance") + Ds.Tables("raseed").Rows(0).Item("invqu") - Ds.Tables("raseed").Rows(0).Item("purqu")
Else
Ds.Tables("raseed").Rows®.Item("it_balance") = Ds.Tables("raseed").Rows(r - 1).Item("it_balance") + Ds.Tables("raseed").Rows®.Item("invqu") - Ds.Tables("raseed").Rows®.Item("purqu")
End If

Next
Dp.Update(Ds.Tables("raseed"))
Ds.AcceptChanges()
كيف يتم حساب الرصيد لكل صنف مع عرض الرصيد للعناصر في الداتا جريد
مثلا

م الصنف الرصيد
1 صنف 1 3
2 صنف2 4
3 صنف 3 15

شكرا
الرد }}}
تم الشكر بواسطة:
#2
برجاء الرد من يجد حلا
الرد }}}
تم الشكر بواسطة:
#3
الافضل ارفق المثال ليتم التعديل عليه لكي نتجنب صنع مثال من جديد ...
الرد }}}
تم الشكر بواسطة:
#4
السيد الفاضل

حاولت الرفع النت ضعيقف

انا احتاج كود التكرار ب for next to combobox1..items.selectedvalue مثلا
الرد }}}
تم الشكر بواسطة:
#5
برجاء الرد من السادة الزملاء
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية تسنسيق الارقام ف خلية السيكوال adelsbeed 0 879 23-04-22, 05:49 AM
آخر رد: adelsbeed
  [سؤال] كيفية الوصول الى قاعدة بيانات mysql موجودة على الكمبيوتر المحلي xammp عن طريق النت alfaiz678 4 1,883 25-06-21, 09:46 AM
آخر رد: alfaiz678
  كود عدم تكرار البيانات بالداتا جريد فيو ِAbou Sama 4 7,574 04-12-20, 10:59 PM
آخر رد: Osama_NY
Smile كيفية تسجيل عملية البيع الأجل solo87 0 1,216 28-05-20, 10:40 PM
آخر رد: solo87
  ممكن طلاب استعلام بدون تكرار لبيانات بسام محمدغانم 0 1,433 26-12-19, 07:06 AM
آخر رد: بسام محمدغانم
  كيفية تحويل الوحدات في نموذج فاتورة البيع من كرتون لحبة وخلافه wessam.demerdash 3 3,355 25-06-19, 10:20 PM
آخر رد: atefkhalf2004
  سؤال عن كيفية جمع الارقام الموجبة فقط من عمود في الداتا جريد فيو alfaiz678 2 2,384 01-10-18, 09:24 AM
آخر رد: alfaiz678
Heart [VB.NET] سؤال : كود يجمع العناصر المتشابة في داتا قريد عن الاظافة بدون تكرار EYADISMAIL 16 6,912 11-09-18, 01:22 AM
آخر رد: EYADISMAIL
  كيفية حفظ التعديل في Data Grid View مباشرا الى قاعدة البيانات اللورد محمود 1 4,358 02-08-18, 07:26 PM
آخر رد: سعود
  [سؤال] كيفية ربط قاعدة بيانات اكسس 2007 بالفيجوال 2008 mohmedhosen 3 9,276 16-07-18, 08:48 PM
آخر رد: aridje34

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم