الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود خاص بالاضافه فى الدانا جريد

بدأه abo_shroook في 6 سبتمبر 2008 · 5 رد · 952 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

وكل عام وانتم بخير

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

With Me.DataGridView1

.ColumnCount = 11

.RowCount = 1

.Columns(0).Width = 50

.Columns(1).Width = 50

.Columns(2).Width = 100

.Columns(3).Width = 200

.Columns(4).Width = 200

.Columns(5).Width = 200

.Columns(6).Width = 100

.Columns(7).Width = 100

.Columns(8).Width = 100

.Columns(9).Width = 100

.Columns(10).Width = 100

.Columns(0).HeaderText = "الرقم"

.Columns(1).HeaderText = "رقم الفاتوره"

.Columns(2).HeaderText = "التاريخ"

.Columns(3).HeaderText = "اسم المورد"

.Columns(4).HeaderText = "اسم المخزن "

.Columns(5).HeaderText = " اسم الصنف"

.Columns(6).HeaderText = "الكميه "

.Columns(7).HeaderText = " السعر"

.Columns(8).HeaderText = "الاجمالى"

.Columns(9).HeaderText = " الخصم"

.Columns(10).HeaderText = " الصافى"

.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

.Rows.Add()

.Rows(.Rows.Count - 2).Cells(0).Value = .Rows.Count - 1

.Rows(.Rows.Count - 2).Cells(1).Value = Me.TextBox2.Text

.Rows(.Rows.Count - 2).Cells(2).Value = Me.textbox1.Text

.Rows(.Rows.Count - 2).Cells(3).Value = Me.ComboBox1.Text

.Rows(.Rows.Count - 2).Cells(4).Value = Me.ComboBox2.Text

.Rows(.Rows.Count - 2).Cells(5).Value = Me.ComboBox3.Text

.Rows(.Rows.Count - 2).Cells(6).Value = Me.TextBox3.Text

.Rows(.Rows.Count - 2).Cells(7).Value = Me.TextBox4.Text

.Rows(.Rows.Count - 2).Cells(8).Value = Me.TextBox5.Text

.Rows(.Rows.Count - 2).Cells(9).Value = Me.TextBox6.Text

.Rows(.Rows.Count - 2).Cells(10).Value = Me.TextBox7.Text

If textbox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Or ComboBox3.Text = "" Or ComboBox4.Text = "" Then

MsgBox(" اكمل البيانات")

Exit Sub

End If

End With

Call memo()

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox7.Text = ""

ComboBox3.Text = ""

ComboBox4.Text = ""

الخير هنا ربى اغفر لى ولوالدى وللمؤمنين يوم يقوم الحساب000 امين

#2

استخدم هذه الطريقه 

' Populate the rows.
	Dim row1() As String = {"Meatloaf", "Main Dish", "ground beef", "**"}
	Dim row2() As String = _
		{"Key Lime Pie", "Dessert", "lime juice, evaporated milk", "****"}
	Dim row3() As String = {"Orange-Salsa Pork Chops", "Main Dish", _
		"pork chops, salsa, orange juice", "****"}
	Dim row4() As String = {"Black Bean and Rice Salad", "Salad", _
		"black beans, brown rice", "****"}
	Dim row5() As String = _
		{"Chocolate Cheesecake", "Dessert", "cream cheese", "***"}
	Dim row6() As String = _
		{"Black Bean Dip", "Appetizer", "black beans, sour cream", "***"}
	Dim rows() As Object = {row1, row2, row3, row4, row5, row6}

	Dim rowArray As String()
	For Each rowArray In rows
		dataGridView1.Rows.Add(rowArray)
	Next rowArray

اللهم اكتب لنا صيام شهر رمضان وقيامه وأغفر لنا وأرحمنا ياأرحم الراحمين

م . عبدالرقيب أحمد

المملكة العربية السعوديه - جده

max1424@Hotmail.com

#3

الاخ vbpro_2008 السلام عليكم ورحمه الله ويركاته

ممكن توضح الكود اكثر

الخير هنا ربى اغفر لى ولوالدى وللمؤمنين يوم يقوم الحساب000 امين

#4

اين انتم يا شباب

الخير هنا ربى اغفر لى ولوالدى وللمؤمنين يوم يقوم الحساب000 امين

#5

شرح الكود كالتالي : اولاً نعمل متغيرات من نوع مصفوفه يمثل الصفوف في الداتا قريد ونضيف لها الاعمده :

Dim row1() As String = {"Column1", "Column2", "Column3", "Column4"}
	Dim row2() As String ={"Key Lime Pie", "Dessert", "lime juice", "****"}

نلاحظ أننا اضفنا شيئين هامين وهما RowN() مصفوفه تمثل صف ColumnN يمثل عمود في الصف .

الان نضيف الصفوف الى مصفوفه من نوع Object 

 Dim rows() As Object = {row1, row2}

أخيراً نقوم باضافتهم إلى الداتا قريد

 Dim rowArray As String()
	For Each rowArray In rows
		dataGridView1.Rows.Add(rowArray)
	Next rowArray

عملنا هنا حلقه من نوع for each للمرور على جميع الصفوف الموجوده في المصفوفه من نوع Object

ثم اضافة عناصرها الى الداتا قريد صفاُ صفا

والسلام عليكم

اللهم اكتب لنا صيام شهر رمضان وقيامه وأغفر لنا وأرحمنا ياأرحم الراحمين

م . عبدالرقيب أحمد

المملكة العربية السعوديه - جده

max1424@Hotmail.com

#6

الاخ الفاضل vbproالسلام عليكم ورحمه الله وبركاته

انا متشكر لحضرتك جدا وجعله الله فى ميزان حسناتك

ولو سمحت ممكن كود حدف صف من الداتا جريد

ولكم جزيل الشكر

الخير هنا ربى اغفر لى ولوالدى وللمؤمنين يوم يقوم الحساب000 امين

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…