مشکل این کد کجاست ؟؟؟؟

[fazelm]

مشکل این کد کجاست ؟؟




Public

Class Form1

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim dt AsNew DataTable
DataGridView1.DataSource = dt
dt.Columns.Add("name")
dt.Columns.Add("family")
dt.Rows.Add("fazel", "mojiri")
EndSub
PrivateSub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim dt AsNew DataTable
DataGridView1.DataSource = dt
dt.DefaultView.RowFilter = "name" + " LIKE '" + TextBox1.Text + "%' "
EndSub
End


Class



توی فرم هم datagridview,textbox دارم

[saadi2]

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 = "name LIKE '" + TextBox1.Text + "%' "
End If
End Sub
End Class

[fazelm]

PublicClass Form1
Dim tb AsNew DataTable
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.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)
EndWith
Me.DataGridView1.DataSource = tb
EndSub
PrivateSub 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 = "name LIKE '" + TextBox1.Text + "%' "
EndIf
EndSub
EndClass


پیغام میده : connot find column (name( چه کار کنم ؟؟

[saadi2]

یه جایی رو اشتباه کردی حتما

یه نگاه به این بنداز:
http://barnamenevis.org/forum/showpost.php?p=799886&postcount=3