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

الإضافة إلى ال Datagridview

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

السلام عليكم

كيف يمكنني إضافة صف (row) أو أكثر إلى الـ DataGridView بدون DataSource أو Dataset

حيث أن الفكرة تتلخص في أن المستخدم يختار بعض العناصر (مشتريات مثلا) ويضيفها إلى الـ DataGridView(مع إمكانية الحذف) قبل تخزينها في الداتابيس

انا ما ابي استخدم الـ listbox، فأتمنى أحد يساعدني وشكرا

#2

معقولة محد يعرف!!!!

وينكم يا مبرمجين

#3

يا اخي الكريم

هل تقصد ان يضيف مباشرة في داتا قريد فيو؟

او انه يكتبها في فورم ثم يضغط زر اضافة فتظهر في القريد فيو؟

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#4
Romantic_touch كتب:
يكتبها في فورم ثم يضغط زر اضافة فتظهر في القريد فيو
#5

معقولة محد يعرف؟ :S :S :S

#7
hazzoom كتب:
استخدم الـ ArrayList كـ DataSource :)

ممكن تديني مثال من عند حضرتك؟

#8

السلام عليكم

هذه طريقة يمكن تفيدك أخي السراج المنير

وهذا الكود يتعامل مع قاعدة بيانات أكسس و VB.2005

أضف ListView إلى الفورم وبعد هذا الآتي:-

أولاً : نضيف Function الى كود البرنامج

 Public Function CheckRows(ByVal Name As String) As Boolean
		For I As Integer = 0 To Dgrd.Rows.Count - 1
			Dim Celname As DataGridViewTextBoxCell = Dgrd.Rows(I).Cells(1)
			If Celname.Value = Name Then
				Return True
				Exit For
			Else
				Return False
			End If
		Next
	End Function

	Private Sub Totalcount()
		Dim Total1 As Double = 0
		Dim Row As DataGridViewRow
		For Each Row In Dgrd.Rows
			Dim celV1 As DataGridViewTextBoxCell = Row.Cells(5)
			If IsNumeric(celV1.Value) = True Then
				Total1 += celV1.Value
			End If
		Next
	End Sub

ثاني شيئ: تعريف Connaction و DataSet و DataAdapter

	Dim CONN As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\MyDataProject.mdb")
	Dim DS As New DataSet
	Dim DB As New OleDbDataAdapter

ثالث شيئ:

CONN.Open()
		For I As Integer = 0 To ListView1.CheckedItems.Count - 1
			DS.Clear()
			DB = New OleDbDataAdapter("SELECT * FROM DitSalary Where Med_ID=" & ListView1.CheckedItems.Item(I).SubItems(0).Text, CONN)
			DB.Fill(DS, "Med")
			Dim price As Double = _
			1 * DS.Tables(0).Rows(0).Item(1)
			Dim ROW As String() = {DS.Tables(0).Rows(0).Item(1), _
					   DS.Tables(0).Rows(0).Item(1), _
					   DS.Tables(0).Rows(0).Item(1), _
					   DS.Tables(0).Rows(0).Item(1), _
					   1, price, DS.Tables(0).Rows(0).Item(1)}
			Dim R As Boolean = CheckRows(DS.Tables(0).Rows(0).Item(1))
			If R = False Then
				Dgrd.Rows.Add(ROW)
			End If
		Next
		'/***
		Totalcount()

أرجوا ان يكون أفادتك هذه الطريقة

سَلاَمٌ عَلَى الدُّنْيَـا إِذَا لَمْ يَكُنْ بِـهَا

صَدِيقٌ صَدُوقٌ صَادِقُ الوَعْدِ مُنْصِـفَا

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