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

تعديل على الكود فلتر البيانات - aobraka - 18-11-22 إخواني أعضاء منتدي فيجوال بسيك السلام عليكم ورحمة الله وبركاته حصلت على كود من تفس المنتدي عمل فلتر البيانات وهو شغل وممتاز ومصدر البيانات الاكسس  وارغب الاستفادة منه بحيث يكون ومصدر البيانات الاستعلام   في  قاعدة بيانات (sql server) عمل تعديل على الكود اكثر من مرة والكن يجلب البيانات بدون عمل فلتر Imports System.Data.OleDb Public Class MainForm     Dim con As OleDbConnection     Dim da As OleDbDataAdapter     Private Function final_table() As DataTable         Dim table As New DataTable         Dim t1 As New DataTable         con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data1.accdb")         da = New OleDbDataAdapter("Select * from data1", con)         da.Fill(t1)         table.Merge(t1)         t1.Clear()         Return table     End Function     Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load         DataGridView1.DataSource = final_table()     End Sub     Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged         If TextBox1.Text.Trim = "" Then             Me.DataGridView1.DataSource = final_table()         Else             Dim rows = final_table.Rows.Cast(Of DataRow).Where(Function(x) x.Item("Address").ToLower.Equals(sender.Text.Trim.ToLower))             If rows.Count = 0 Then                 Me.DataGridView1.DataSource = Nothing             Else                 Me.DataGridView1.DataSource = rows.CopyToDataTable             End If         End If     End Sub