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

اريد الكود التالى

مغلق
بدأه kareemovitch في 4 ديسمبر 2006 · 4 رد · 953 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندى داتا جريد فيها اسماء

وعندى تيكست بأستعمله فى البحث عن الاسماء اللى فى الداتا جريد

عايز الكود الذى يجعل الاسماء فى الداتا جريد تتفلتر لما اكتب فى التيكست لغايه لما اوصل الى الاسم الذى استعلم عنه

ارجو الرد بسرعه مع الشرح او مثال

جزاكم الله خيراً

اخوكم كريم بدر

#2

بسم الله الرحمن الرحيم

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

اخي الكريم اليك المثالي التالي وهو بسيط وواضح ولا يحتاج الى شرح

Public Class Form1
	Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
		Me.NamesTableAdapter1.Fill(NamesDataSet1.Names)
	End Sub

	Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
		Find_Name(TextBox1.Text.Trim)
	End Sub

	Private Sub Find_Name(ByVal Sn As String)
		Try
			Dim dv As New Data.DataView
			dv = New Data.DataView(NamesDataSet1.Tables("Names"))
			dv.Sort = ("Name")
			dv.RowFilter = "Name LIKE '%" & Sn & "%'"
			Me.DataGridView1.DataSource = dv
			If dv.Count < 1 Then
				MessageBox.Show("السجل غير موجود   حسب الاسم", "انتبه", MessageBoxButtons.OK, MessageBoxIcon.Error)
				TextBox1.Focus()
				'Else
				'   Me.DataGridView1.DataSource = dv
			End If
		Catch ex As Exception
			MessageBox.Show(Err.Number & "   " & ex.Message, "حدث خطأء في find_Name", MessageBoxButtons.OK, MessageBoxIcon.Error)
		End Try
	End Sub
End Class

ارجو ان يفيدك ويكون هو ما طلبت وتحياتي لك

#3

ايضا هذا مثال مرفق يوضح ما طلبته ، بالاضافه الى خاصيه البحث Starts With و Contains بالنسبه للاسم المراد البحث عنه.

Authors_Books.rar

#4
Public Class Form1
	Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
		Me.NamesTableAdapter1.Fill(NamesDataSet1.Names)
	End Sub

	Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
		Find_Name(TextBox1.Text.Trim)
	End Sub

	Private Sub Find_Name(ByVal Sn As String)
		Try
			Dim dv As New Data.DataView
			dv = New Data.DataView(NamesDataSet1.Tables("Names"))
			dv.Sort = ("Name")
			dv.RowFilter = "Name LIKE '%" & Sn & "%'"
			Me.DataGridView1.DataSource = dv
			If dv.Count < 1 Then
				MessageBox.Show("السجل غير موجود   حسب الاسم", "انتبه", MessageBoxButtons.OK, MessageBoxIcon.Error)
				TextBox1.Focus()
				'Else
				'   Me.DataGridView1.DataSource = dv
			End If
		Catch ex As Exception
			MessageBox.Show(Err.Number & "   " & ex.Message, "حدث خطأء في find_Name", MessageBoxButtons.OK, MessageBoxIcon.Error)
		End Try
	End Sub
End Class

السلام عليكم

لكن عندما أضعه في زر كيف أكتبه

علما أني أستخدمVB.NET2003

الأخ عبد الباسط ملفك ما شغال عندي

تعلم فليس المرء يولد عالماً------ وليس أخو علماً كمن هو جاهلا

العلم نور وجمال يقتبس--------------- صاحبه مكرم اين ما جلس

من فاته العلم ساعة تظعظع ونتكس----شتان شتان بين حمار وفرس

#5

بسم الله الرحمن الرحيم

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

اخي الكريم يوجد طريقتين اختر المناسبة لك

الاولى في نفس الفورم في form1_load

textbox1.visable = false
DataGridView1.visable = false

ثم عند ضغط الزر 

textbox1.visable = true
DataGridView1.visable = true

الطريقة الثانية هو ان تجعل الكود في form2 وعند ضغط الزر form2.show

و تحياتي لك

هذا الموضوع مغلق.

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