مشکل در فیلتر کردن اطلاعات چاپی

[Ali0Boy]

سلام بر دوستان
من با استفاده از DataReport یک فایل برای چاپ آماده کرده ام.
میخواستم بدونم چطور میتوانم که این اطلاعات چاپی را فیلتر کنم.
یعنی میخواستم بدونم که چگونه بگم فقط اطلاعات چاپی رو از RstChap که از نوع ADODB.Recordset است چاپ کند؟ :چشمک:

[niko2008]

سلام بر دوستان
من با استفاده از DataReport یک فایل برای چاپ آماده کرده ام.
میخواستم بدونم چطور میتوانم که این اطلاعات چاپی را فیلتر کنم.
یعنی میخواستم بدونم که چگونه بگم فقط اطلاعات چاپی رو از RstChap که از نوع ADODB.Recordset است چاپ کند؟ :چشمک:
خوب اینکه راحته با استفاده از دستور sql ابتدا با استفاده از دستور where فیلترش کن بعد آن rs فیلتر شده را به DataReport بفرست
set datareport.datasource=rs

[Ali0Boy]

خوب اینکه راحته با استفاده از دستور sql ابتدا با استفاده از دستور where فیلترش کن بعد آن rs فیلتر شده را به DataReport بفرست
set datareport.datasource=rs

عزیزم اینرو که خودم هم میدونستم, ایقدرهم .... نیستم.
ولی وقتی این کار رو می کنم خطا میده گلم.

http://barnamenevis.org/forum/attachment.php?attachmentid=48363&stc=1&d=1272890750

[niko2008]

عزیزم اینرو که میدونستی, خوب کاری نمیشه کرد فقط یه datagridبزار ببین با اینکه میدونی ولی ببین آن rs به گرید وصل میشه یعنی آن اطلاعاتی رو که میخواستی فیلتر کنی ببین در گرید نشون میده اگه داد و میدونم میدونی بعد به دیتا ریپورتت وصی کن. بعد اینکه این کار رو کردی خطا نمیده گل و بلبلم.

[b.pasdar]

آقا منم دقیقا همین مشکل رو دارم rs فیلتر شده رو با دیتا گرید set میکنم هیچ مشکلی نداره ولی وقتی set میکنم با data report ارور میده

اینم متن ارور:
argument are of the wrong type, are out of acceptable rangre, or are in conflict with one another
تو رو خدا کمک کنید خیلی بد گیرم

[m.4.r.m]

ای بابا چقدر سوال های تکراری :

If Adodc1.Recordset.RecordCount > 0 Then
On Error Resume Next
Set Cnn = New ADODB.Connection
Cnn.CursorLocation = adUseClient
Cnn.ConnectionString = Adodc1.ConnectionString
Cnn.Open
Adoview.Close
sqltxt = "SELECT * From Table1 Where Id=" & Text1.Text
Set Adoview = New ADODB.Recordset
Adoview.Open sqltxt, Cnn, adOpenStatic, adLockPessimistic
Set DataReport1.DataSource = Adoview
DataReport1.Show 1
Else
MsgBox "هيچ سهامي ثبت نشده است", vbExclamation, ""
End If

شما هر عملی فیلتری که داشته باشی باید در خط sqltxt ست کنی و بنویسی به شرطی که دستور رو درست بنویسی .