06-05-18, 02:36 AM
ميزة جديدة في الفيجوال ستيديو 2015 + 2017
وهي أنك لا تحتاج إلى إضافة العلامات التي تدل على نهاية السطر
ميزة جميلة ولكن هذة أحد عيوبها , انك في الإصدارة التي لديك ظهرة مشاكل.
استبدل الكود الذي لديك بالكود التالي :
وهي أنك لا تحتاج إلى إضافة العلامات التي تدل على نهاية السطر
ميزة جميلة ولكن هذة أحد عيوبها , انك في الإصدارة التي لديك ظهرة مشاكل.
استبدل الكود الذي لديك بالكود التالي :
كود :
Dim SqlQuary As String = "SELECT * FROM emp WHERE " & _
"( ( '" & name & "' <> '' AND [name] LIKE '%" & name & "%' ) OR ( '" & name & "' = '' ) ) " & _
"AND " & _
"(( '" & mofatesh & "' <> '' AND [mofatesh] = '" & mofatesh & "' ) OR ( '" & mofatesh & "' = '' ) ) " & _
"AND " & _
"(( '" & comno & "' <> '' AND [comno] = " & IIf(comno = "", -1, comno) & " ) OR ( '" & comno & "' = '' ) ) " & _
"AND " & _
"(( '" & tasherno & "' <> '' AND [tasherno] = " & IIf(tasherno = "", -1, tasherno) & " ) OR ( '" & tasherno & "' = '' ) ) " & _
"AND " & _
"(( '" & kararno & "' <> '' AND [kararno] = " & IIf(kararno = "", -1, kararno) & " ) OR ( '" & kararno & "' = '' ) ) " & _
"AND " & _
"( ( '" & hashno & "' <> '' AND [hashno] = '" & hashno & "' ) OR ( '" & hashno & "' = '' ) )"