منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة جملة فى for - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة جملة فى for (/showthread.php?tid=42639)

مساعدة جملة فى for - حماده ممدوح البحيرى - 08-10-22

السلام عليكم 
لو سمحت لدى هذا الكود واريد ادخال لداتا جريد فيو اخرى بداخل لووب  for   next 
وبالاخص هذا العمود من الجريدفيو hamada.Rows(i).Cells(4).Value.ToString
اسم الداتا جريد فيو المطلوب ادراجها hamada


كود :
Public Sub Insert_stock_materials()
       Dim Cmd = New SqlCommand("Update kham_prdmm Set Quantity_imports = @Quantity_imports Where prdm_id = @prdm_id", Con)
       For i As Integer = 0 To Dgv_recpie.RowCount - 1

           Cmd.Parameters.Clear()
           With Cmd.Parameters
               .AddWithValue("@prdm_id", Dgv_recpie.Rows(i).Cells(1).Value.ToString)
               .AddWithValue("@Quantity_imports", Dgv_recpie.Rows(i).Cells(4).Value.ToString + hamada.Rows(i).Cells(4).Value.ToString)
           End With
           Con.Open()
           Cmd.ExecuteNonQuery()
           Con.Close()

       Next
       MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
   End Sub


RE: مساعدة جملة فى for - asemshahen5 - 08-10-22

استبدل رقم الاندكس الخاص بالعامود باسم العامود الموجود بخصاءص العامود و الله الموفق .

RE: مساعدة جملة فى for - حماده ممدوح البحيرى - 09-10-22

اهلا بيك اخى الكريم
انا مبتدى ارجو التوضيح
استبدل رقم الاندكس الخاص بالعامود باسم العامود الموجود بخصاءص العامود و الله الموفق .

RE: مساعدة جملة فى for - asemshahen5 - 10-10-22

ماهي طريقة تعبئة الغريد فيو :
إذا كانت :

PHP كود :
Dgv_recpie.DataSource = dt 

سيكون اسم عامود الغريد هو نفسه اسم عامود الغريد فيو .
اما إذا كانت :

PHP كود :
Dgv_recpie.Rows.Add("","","") 

فسيكون جلب اسم العامود كالتالي :

[attachment=28293]

[attachment=28294]

وسيكون الكود كالتالي :

PHP كود :
With Cmd.Parameters
                .AddWithValue("@ColID", Dgv_recpie.Rows(i).Cells("ColID").Value.ToString)
                .AddWithValue("@ColCatName", Dgv_recpie.Rows(i).Cells("ColCatName").Value.ToString)
                .AddWithValue("@ColQtn", Dgv_recpie.Rows(i).Cells("ColQtn").Value.ToString)
                .AddWithValue("@ColTotal", Dgv_recpie.Rows(i).Cells("ColTotal").Value.ToString)
            End With 

مع مراعاة تغيير اسماء الأعمدة و الباراميترات بما يتناسب معك و الله الموفق .