View Full Version : سوال: جستجو در دیتا گریدویو
a1b2uu
یک شنبه 23 خرداد 1389, 17:29 عصر
در دیتاگرید ویو برای جستجو بر اساس دو فیلد چیکار کنم فقط بر اساس یک فیلد میتونم انجام بدم.؟؟؟؟؟؟؟؟؟؟؟؟
saeid.memfis
یک شنبه 23 خرداد 1389, 20:42 عصر
سلام
مي توني از دو تا حلقه تو در تو استفاده كني
Hossis
یک شنبه 23 خرداد 1389, 22:17 عصر
از And , Or استفاده کنيد
For each R as datagridviewrow in dg.rows
if r.cells"Culom1").value ="A" And r.cells("Str").value ="B" then
list1.Itrems.add (r.cells("String").value)
next
a1b2uu
سه شنبه 25 خرداد 1389, 10:18 صبح
اگه میشه بیشتر توضیح بدید؟
یا اگر میشه یک سمپل بزارید.
در واقع من میخوام دوتا شرط زیر رو با هم and کنم
cn = New SqlConnection(ConStr)
ds = New DataSet
dv = New DataView
Dim da As New SqlDataAdapter("SELECT * FROM Bed", cn)
da.Fill(ds, "Bed")
dv.Table = ds.Tables("Bed")
Me.BedDGV.DataSource = dv
Dim a As New SqlConnection
a.ConnectionString = "Data Source=localhost;Initial Catalog=treata;Integrated Security=True"
Dim b As New SqlCommand
Dim c As New SqlDataAdapter
c.SelectCommand = b
c.SelectCommand.CommandType = CommandType.Text
c.SelectCommand.CommandText = "use treata select bedid from Bed where isfree =('" & True & "')"
c.SelectCommand.Connection = a
Dim d As New DataSet
d.Clear()
c.Fill(d)
Dim filtStr As String
filtStr = Me.CmbCategory.Text
If d.Tables(0).Rows.Count > 0 Then
dv.RowFilter = "category like '" & filtStr & "*'"
End If
و شرط زیر
cn = New SqlConnection(ConStr)
ds = New DataSet
dv = New DataView
Dim da As New SqlDataAdapter("SELECT * FROM Bed", cn)
da.Fill(ds, "Bed")
dv.Table = ds.Tables("Bed")
Me.BedDGV.DataSource = dv
Dim a As New SqlConnection
a.ConnectionString = "Data Source=localhost;Initial Catalog=treata;Integrated Security=True"
Dim b As New SqlCommand
Dim c As New SqlDataAdapter
c.SelectCommand = b
c.SelectCommand.CommandType = CommandType.Text
c.SelectCommand.CommandText = "use treata select bedid from Bed where isfree =('" & True & "')"
c.SelectCommand.Connection = a
Dim d As New DataSet
d.Clear()
c.Fill(d)
If d.Tables(0).Rows.Count > 0 Then
dv.RowFilter = "Qulity='" & CmbQulity.Text & "'"
End If
ممنونم
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.