جستجو براساس چند فیلد

[shafi21]

سلام دوستان
مشکل کدی که نوشتم چیه که فقط براساس یه فیلد جستجو میکنه نه همه!









Dim filter As String = ""

'--------------------------------------------------------
If txt_noe.Text.Length > 0 And filter = "" Then
filter = "(noe_ersal_daryaft = '" & var_noe & "')"
Else
If txt_noe.Text.Length > 0 Then
filter = filter + " ( noe_ersal_daryaft = '" & var_noe & "')"
Else : filter = ""
'------------------------------------------------
If txt_subject.Text.Length > 0 And filter = "" Then
filter = "(subject = '" & var_subject & "')"
Else
If txt_subject.Text.Length > 0 Then
filter = filter + " ( subject = '" & var_subject & "')"

Else : filter = ""

End If
End If
End If
End If



con.Open()
ds.Clear()
s2 = "(select * from letter where received)"
Dim da As New OleDbDataAdapter(s2, con)
da.Fill(ds, "letter")
Dim dv As DataView = New DataView(ds.Tables(0))
dv.RowFilter = filter
dtg.DataSource = dv
con.Close()

[karim orooji]

با سلام به دوست عزيز
اين برنامه مربوط به جستجو گريد و چاپ گريد هم هست
اول مبناي رو انتخاب كن و سپس مقادري كه ميخواي رو جستجو كن
فقط يكم شلوغ برنامه

موفق باشي

[arsalansalar]

به نظرم IF و ELSE هات با هم MATCH نیستد.
اگه تازه شروع به برنامه نویسی کردی سعی کن با if else های ساده برنامتو بنویسی نه با چند if else تو در تو.