كيفية عمل تكرار تنفيذ مجموعة اوامر بناءا علي عناصر في لسته - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40) +--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41) +--- الموضوع : كيفية عمل تكرار تنفيذ مجموعة اوامر بناءا علي عناصر في لسته (/showthread.php?tid=8459)

كيفية عمل تكرار تنفيذ مجموعة اوامر بناءا علي عناصر في لسته - atefkhalf2004 - 13-04-13 السيد الفاضل هناك اصناف يتم تحميلها في اللستة بالكود التالي 'تعبئة اكود الاصناف 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 شكرا كيفية عمل تكرار تنفيذ مجموعة اوامر بناءا علي عناصر في لسته - atefkhalf2004 - 16-04-13 برجاء الرد من يجد حلا كيفية عمل تكرار تنفيذ مجموعة اوامر بناءا علي عناصر في لسته - حريف برمجة - 16-04-13 الافضل ارفق المثال ليتم التعديل عليه لكي نتجنب صنع مثال من جديد ... كيفية عمل تكرار تنفيذ مجموعة اوامر بناءا علي عناصر في لسته - atefkhalf2004 - 17-04-13 السيد الفاضل حاولت الرفع النت ضعيقف انا احتاج كود التكرار ب for next to combobox1..items.selectedvalue مثلا كيفية عمل تكرار تنفيذ مجموعة اوامر بناءا علي عناصر في لسته - atefkhalf2004 - 29-04-13 برجاء الرد من السادة الزملاء