fazelm
چهارشنبه 25 شهریور 1388, 03:35 صبح
کد زیر برای فیلتر کردن سطرهای بانک اطلاعاتی است که خوده برنامه هنگام باز شدن میسازه ولی من میخوام خودم یه بانک اطلاعاتی بهش بدم کارکنه ، چه تغییری باید در کد بدم ؟؟؟؟؟؟؟
نام بانک ام data-bank
و نام جدول ام table1
Public Class Form1
Dim tb As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With tb
.Columns.Add("name")
.Columns.Add("familly")
.Columns.Add("tel")
.Rows.Add("Ali", "Hassani", 223323243)
.Rows.Add("Mahmood", "Hashemi", 5554456)
.Rows.Add("Reza", "Kazemi", 156460)
.Rows.Add("Mohsen", "Abbasi", 15646)
.Rows.Add("ali", "Abbasi", 456461)
.Rows.Add("karim", "hoseyni", 14564)
.Rows.Add("farzad", "mahmoodi", 145645)
End With
Me.DataGridView1.DataSource = tb
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text.Trim() = String.Empty Then
tb.DefaultView.RowFilter = Nothing
Else
tb.DefaultView.RowFilter = "familly LIKE '" + TextBox1.Text + "%' "
End If
End Sub
End Class
نام بانک ام data-bank
و نام جدول ام table1
Public Class Form1
Dim tb As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With tb
.Columns.Add("name")
.Columns.Add("familly")
.Columns.Add("tel")
.Rows.Add("Ali", "Hassani", 223323243)
.Rows.Add("Mahmood", "Hashemi", 5554456)
.Rows.Add("Reza", "Kazemi", 156460)
.Rows.Add("Mohsen", "Abbasi", 15646)
.Rows.Add("ali", "Abbasi", 456461)
.Rows.Add("karim", "hoseyni", 14564)
.Rows.Add("farzad", "mahmoodi", 145645)
End With
Me.DataGridView1.DataSource = tb
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text.Trim() = String.Empty Then
tb.DefaultView.RowFilter = Nothing
Else
tb.DefaultView.RowFilter = "familly LIKE '" + TextBox1.Text + "%' "
End If
End Sub
End Class