[elgokr]

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

بدلاً من استخدام كل هذا الاسطر

كود :

GVMaterials.Rows.Add()
           x = GVMaterials.Rows.Count - 1

           GVMaterials(0, x).Value = dt.Rows(0).Item("a")
           GVMaterials(1, x).Value = dt.Rows(0).Item("bx")
           GVMaterials(2, x).Value = dt.Rows(0).Item("b")
           GVMaterials(3, x).Value = dt.Rows(0).Item("q")
           GVMaterials(4, x).Value = dt.Rows(0).Item("f")
           GVMaterials(5, x).Value = TextBox1.Text
           GVMaterials(6, x).Value = Val(dt.Rows(0).Item("f")) * Val(TextBox1.Text)
           GVMaterials(7, x).Value = dt.Rows(0).Item("k")

فقط استبدله بهذا الاسطر

كود :

           Dim row As String() = {dt.Rows(0).Item("a"), dt.Rows(0).Item("bx"), dt.Rows(0).Item("b"), dt.Rows(0).Item("q"), dt.Rows(0).Item("f"), TextBox1.Text, Val(dt.Rows(0).Item("f")) * Val(TextBox1.Text), dt.Rows(0).Item("k")}
           GVMaterials.Rows.Add(row)

تحياتى لك

وتمنياتى لك التوفيق