Dr.Bronx
یک شنبه 28 مهر 1387, 09:59 صبح
با عرض سلام
من با کریستال ریپورت 10 کار می کنم
از روی مقاله ای که in_chan_nafar نوشته بودند کار می کنم
کاملا هم درست کار می کنه
فقط می خوام این دو تا شرط رو پشت سر هم قرار بدم
یعنی اینکه هر دو تا با هم اجرا بشه
مثله دستور And در SQL
همون قسمتی که توی نمونه این مقاله گفته بودند کامل می زارم
فقط ترکیب این دو شرط رو می خوام
اون دستور AND هم که آخرش گذاشتن من نفهمیدم برای چیه ولی اینی که می خوام نیست
هیچ اشکالی در کدهای اصلی نیست - چون وقتی یک شرط هست اون رو اجرا می کنه ولی وقتی دوتا می شه فقط دومی رو اجرا می کنه
قبلا از راهنمایی شما متشکرم
Private Function Return_Formula() As String
Dim Str_Formula As String
Str_Formula = "{ekhtelaf.Dateout} in " & "'" & Trim(frmkarkard.tt1.Text) & "'To'" & Trim(frmkarkard.tt2.Text) & "' And "
Str_Formula = "{ekhtelaf.ID} Like '*" & Trim(frmkarkard.txtsearch.Text) & "*' And "
Str_Formula = Trim(Str_Formula)
If UCase(Right(Str_Formula, 3)) = "AND" Then Str_Formula = Mid(Str_Formula, 1, Len(Str_Formula) - 3)
Return_Formula = Str_Formula
End Function
من با کریستال ریپورت 10 کار می کنم
از روی مقاله ای که in_chan_nafar نوشته بودند کار می کنم
کاملا هم درست کار می کنه
فقط می خوام این دو تا شرط رو پشت سر هم قرار بدم
یعنی اینکه هر دو تا با هم اجرا بشه
مثله دستور And در SQL
همون قسمتی که توی نمونه این مقاله گفته بودند کامل می زارم
فقط ترکیب این دو شرط رو می خوام
اون دستور AND هم که آخرش گذاشتن من نفهمیدم برای چیه ولی اینی که می خوام نیست
هیچ اشکالی در کدهای اصلی نیست - چون وقتی یک شرط هست اون رو اجرا می کنه ولی وقتی دوتا می شه فقط دومی رو اجرا می کنه
قبلا از راهنمایی شما متشکرم
Private Function Return_Formula() As String
Dim Str_Formula As String
Str_Formula = "{ekhtelaf.Dateout} in " & "'" & Trim(frmkarkard.tt1.Text) & "'To'" & Trim(frmkarkard.tt2.Text) & "' And "
Str_Formula = "{ekhtelaf.ID} Like '*" & Trim(frmkarkard.txtsearch.Text) & "*' And "
Str_Formula = Trim(Str_Formula)
If UCase(Right(Str_Formula, 3)) = "AND" Then Str_Formula = Mid(Str_Formula, 1, Len(Str_Formula) - 3)
Return_Formula = Str_Formula
End Function