swallow.pa
پنج شنبه 03 فروردین 1391, 16:24 عصر
سلام به همه
من بوسیله بایندینگ سورس این جستجو رو انجام می دم
Dim foundpos = BindingSource1.Find("Family", TextBox1.Text)
If foundpos > -1 Then 'if record is found
BindingSource1.Position = foundpos ' setting grid current item
Else
MsgBox("not found")
End If
که اگه متن دقیق برابر باشه اونو توی گرید سلکت می کنه حالا مثلا قسمتی از متن نام خانوادگی رو وارد می کنه یه چیزی مشابه عملگر like توی sql
Sub Find()
Dim value1 As String = TextBox1.Text.Trim
For i As Integer = 0 To BindingSource1.Count - 1
Dim value2 As String = DataGridView1.Rows(i).Cells(3).Value
Dim row As DataRowView = BindingSource1.Item(i)
If row("Family") = value1 AndAlso row("Family") = Mid(value2, 1, Len(value1)) Then
BindingSource1.Position = i
Return
End If
Next
End Sub
من بیشتر دنبال عملگر like توی این کدها هستم
چطوری عمل کنم
ممنون
من بوسیله بایندینگ سورس این جستجو رو انجام می دم
Dim foundpos = BindingSource1.Find("Family", TextBox1.Text)
If foundpos > -1 Then 'if record is found
BindingSource1.Position = foundpos ' setting grid current item
Else
MsgBox("not found")
End If
که اگه متن دقیق برابر باشه اونو توی گرید سلکت می کنه حالا مثلا قسمتی از متن نام خانوادگی رو وارد می کنه یه چیزی مشابه عملگر like توی sql
Sub Find()
Dim value1 As String = TextBox1.Text.Trim
For i As Integer = 0 To BindingSource1.Count - 1
Dim value2 As String = DataGridView1.Rows(i).Cells(3).Value
Dim row As DataRowView = BindingSource1.Item(i)
If row("Family") = value1 AndAlso row("Family") = Mid(value2, 1, Len(value1)) Then
BindingSource1.Position = i
Return
End If
Next
End Sub
من بیشتر دنبال عملگر like توی این کدها هستم
چطوری عمل کنم
ممنون