آیا متد Find وجود دارد؟

[روح اله معینی زاده]

با سلام خدمت دوستان

آیا متد Find در دات نت وجود دارد؟ :cry: و اگر دارد نحوه استفاده از آن چگونه است؟

می خواهم یک داده را در DataSet جستجو کنم که وجود دارد یا خیر.

با احترام- خدانگهدار

[sh]

شما اول باید بدونید توی کدام جدول میخواهید بگردید و بعد بدین صورت از متد Select استفاده کنید

dataset1.Tables(0).Select

[روح اله معینی زاده]

با سلام خدمت دوست گرامی

من دیتاست رو پر کردم و بعد دستور زیر را نوشتم

DS_Main.Tables("table").Select("serial_no='" & Txt_Serial.Text.Trim & "'")

حالا چه طوری به اون رکورد بروم ؟

شایان ذکر است که در دیتاست دو ستون دارم که نام یکی از آن serial_no است و من بر اساس آن می خواهم جستجو را انجام دهم.

با احترام- خدانگهدار

[sh]

از Dataview استفاده کن

[ساران سافت]

چجوری
:گیج:

[علیرضا مداح]

DataView1.Find

[mahdie]

من از این function استفاده کردم ،این تابع بر اساس هر کدام از فیلدهای datagrid که شما انتخاب کنید عملیات find را انجام می دهد:



Public Function find(ByVal searchValue As String, _
Optional ByVal message As Boolean = True) As Integer
Dim currentSort As String
Dim dataType As String
Dim searchLike As String
Dim searchResult As Integer = -1
Dim pos As Integer

currentSort = dsMaster.Tables(tableName).DefaultView.Sort.ToStri ng
If currentSort.Trim.Length = 0 Then
If message = True Then
MessageBox.Show("لطفا ترتیب نمایش اطلاعات را مشخص کنید", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Return -2
End If
currentSort = currentSort.Substring(1, currentSort.Length - 1)
pos = currentSort.IndexOf("]")
currentSort = currentSort.Substring(0, pos)
dataType = dsMaster.Tables(tableName).Columns(currentSort).Da taType.Name().ToLower
Select Case dataType
Case "int32", "int16", "int64"
If Not IsNumeric(searchValue) Then
If message = True Then
MessageBox.Show("نوع داده نادرست است", _
"Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return -2
End If
End If
searchLike = "!"
Case "date"
If Not IsDate(searchValue) Then
If message = True Then
MessageBox.Show("نوع داده نادرست است", _
"Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return -2
End If
searchLike = ">"
End If
Case "boolean"
If Not (searchValue.ToLower = "true" Or searchValue.ToLower = "false") Then
If message = True Then
MessageBox.Show("نوع داده نادرست است", _
"Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return -2
End If
searchLike = "!"
End If
Case "string"
searchLike = "="
Case Else
If message = True Then
MessageBox.Show("The values for search and sorted column does not match", _
"Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return -2
End If
End Select
Try
searchResult = dsMaster.Tables(tableName).DefaultView.Find(search Value)
If searchResult = -1 And searchLike <> "!" Then
Dim dr() As DataRow
Select Case searchLike
Case "="
dr = dsMaster.Tables(tableName).Select( _
dsMaster.Tables(tableName).DefaultView.Sort.ToStri ng _
& "like '" & searchValue.Trim & "*'")
If dr.GetLength(0) > 0 Then
Dim foundValue As String

foundValue = dr(0).Item(currentSort)
searchResult = dsMaster.Tables(tableName).DefaultView.Find(foundV alue)
End If
Case ">"
dr = dsMaster.Tables(tableName).Select( _
dsMaster.Tables(tableName).DefaultView.Sort.ToStri ng _
& "> '" & searchValue.Trim & "'")
If dr.GetLength(0) > 0 Then
Dim foundValue As Date

foundValue = dr(0).Item(currentSort)
searchResult = dsMaster.Tables(tableName).DefaultView.Find(foundV alue)
End If
End Select
End If
Catch ex As Exception
If message = True Then
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Try
Return searchResult
End Function

[Microsoft.net]

[code] dim dr as datarow = DS_Main.Tables("table").Select("serial_no='" & Txt_Serial.Text.Trim & "'")