[break]

(05-12-18, 08:09 PM)asemshahen5 كتب :

كود :

Dim param As New ArrayList
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

       param.Clear()
       For Each row As DataGridViewRow In DataGridView1.Rows
           param.Add(row.Cells(0).Value)
       Next
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       For i = 0 To param.Count - 1
           MsgBox(param(i).ToString)
       Next
   End Sub

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

---

(05-12-18, 09:58 PM)حريف برمجة كتب :

(05-12-18, 07:52 PM)break كتب :

(05-12-18, 06:03 PM)asemshahen5 كتب : ما المعلومات الذي تريد تعبئة المصفوفة منها .
ضع صورة لتصورك عما تريده عن طريق الاكسيل او صورة .

افترض حضرتك دى جريد اول عمود اسم الصنف وثانى عمود اسم الصنف

عايز اكون مصفوفة وتعبئتها برقم الصنف

وعمل لوب عليها يطلع ارقام الاصناف فى رسالة متتابعة

هذا المطلوب بدون عمل مصفوفة ،، الدوران يكون مباشر على القريدفيو :

فقط قم بتغيير الخلية(6) بالرقم الذي تريده :

كود :

For i = 0 To dgv.Rows.Count - 1
          msgbox(Val(dgv.Rows(i).Cells(6).Value))
      Next

جزاك الله خيرا 
شكرا لك 
والشكر موصول الى القائمين على هذا المنتدى المبارك

[atefkhalf2004]

السيد الفاضل
في المثال test
كيف يمكن ايجاد الرصيد دون عرض  الجريد
اي
في المثال يعرض  جريد  ثم  يحسب الرصيد

ارجو حساب الرصيد  من خلال مثلا
for ....next
rows
next
ثم يحسب الرصيد
ثم يعرض  الداتا جريد

[asemshahen5]

تستطيع حسابه عن طريق استعلام .

[atefkhalf2004]

ماشي حرضتك
كيف
يمكن عمل حلقة تكرارية
For each row as dataro
كود حساب الرصيد علي مستوي الصنف
Next
ثم عرض الريصد في الجريد اوفي تقرير كريستال مثلا
لكن كيف يتم ذلك

[atefkhalf2004]

كيف ؟؟؟؟
او
كيف
بالاستعلام

[asemshahen5]

بالنسبة للكود في الحلقة التكرارية موجود بالمثال بالمشاركة رقم 10 اما بالنسبة للاستعلام تفضل :

كود :

SELECT        SUM(CTAGRE_IN) - SUM(CATGRE_OUT) AS CATGRE_RASSED, CATGRE_NAME, CATGRE_ID
FROM            dbo.CTAGRE
GROUP BY CATGRE_NAME, CATGRE_ID

[atefkhalf2004]

شكرا  

لكن هذا ما لا اطلبة
ما اطلبه  هو

عمل حلقة تكرارية
مثل الموجودة في المثال
مع ايجاد  الرصيد للصنف دون اللجوء الي الجريد
شكرا
اتمني الوصول الي حل

[asemshahen5]

كود :

Dim dt As New DataTable
   Private Sub net2()
       Dim da As New OleDbDataAdapter("Select * From balanc", con)
       con.Open()
       dt.Clear()
       da.Fill(dt)
       'عمل لوب لحساب الصنف
       Dim a As Double = 0
       For j As Integer = 0 To dt.Rows.Count - 1
           For i As Integer = 0 To dt.Rows.Count - 1
               Dim currnt As String = dt.Rows(j)(3)
               Dim currnt1 As String = dt.Rows(i)(3)
               Dim v As Object = dt.Rows(i)(3)
               Dim x As Object = dt.Rows(i)(6)
               If currnt = v Then
                   a = a + dt.Rows(i)(4) - dt.Rows(i)(5)
                   dt.Rows(i)(6) = a
               ElseIf currnt <> v Then
                   a = 0
               End If
           Next
       Next
       dgv.DataSource = dt
       con.Close()
   End Sub

[atefkhalf2004]

شكرا لك كثيرا
تسلم ويسلم اعضاء المنتدي الافاضل