PDA

View Full Version : سوال: جستجو در دیتا گریدویو



a1b2uu
یک شنبه 23 خرداد 1389, 16:29 عصر
در دیتاگرید ویو برای جستجو بر اساس دو فیلد چیکار کنم فقط بر اساس یک فیلد میتونم انجام بدم.؟؟؟؟؟؟؟؟؟؟؟؟

saeid.memfis
یک شنبه 23 خرداد 1389, 19:42 عصر
سلام
مي توني از دو تا حلقه تو در تو استفاده كني

Hossis
یک شنبه 23 خرداد 1389, 21: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, 09: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




ممنونم