PDA

View Full Version : چاپ اطلاعات فیلتر شده بر اساس تاریخ



vahidm
دوشنبه 27 اسفند 1386, 10:18 صبح
باسلام
من یه قسمتی رو برای یک برنامه حسابداری درست کردم به نام دفتر حساب اطلاعات دفتر کل در یک جدول ثبت می کنم و با فیلتر کردن کد حساب دفتر حساب هر فرد رو میارم بعد در dbgrid هم اطلاعات رو بر اساس دستور sql به ترتیب تاریخ می کنم ولی وقتی می خوام چاپ بگیرم همون اطلاعات ترتیب تاریخش هم می خوره از دوستان اگه کسی در این زمینه اطلاعاتی داره لطفا همکاری کنه با تشکر

ali_habibi1384
دوشنبه 27 اسفند 1386, 13:39 عصر
چه فرقی میکنه فیلتر شده یا نشده . شما داده هاتون رو از adodc به پرینتر می فرستید! فکر نمیکنم مشکلی باشه!
شاید هم من منظورتونو نفهمیدم.

alicomputer
دوشنبه 27 اسفند 1386, 15:59 عصر
برای دریافت جواب سوال خود این فایل را دانلود کنید
http://www.2shared.com/file/3000602/f0833824/data_report__search.html
ویا
http://www.2shared.com/fadmin/3000602/c264c1dd/data_report__search.zip

vbhamed
دوشنبه 27 اسفند 1386, 16:01 عصر
سلام
با چی چاپ می کنید؟
خود گراید یا گزارشگرها
اگر گزارشگر کدوم یکی ؟

vahidm
دوشنبه 27 اسفند 1386, 18:37 عصر
من از dataReport استفاده کردم

vahidm
دوشنبه 27 اسفند 1386, 22:13 عصر
اطلاعات در dbgrid مرتب هست فقط مونده توی چاپ
لطفا کمک کنید

vahidm
دوشنبه 27 اسفند 1386, 22:16 عصر
با سلام دوست عزیز آقای alicomputer فایلهایی که برای دانلود گذاشته اید خطا میده ونمیشه باز کرد

vbhamed
دوشنبه 27 اسفند 1386, 23:19 عصر
سلام
به جای DataEnvironmet1, DataReport1, Command1, Adodc1 اسامی خودتونو بزارید
عدد 1 داخل پرانتر هم شماره Connection هست که به تعدادشون بستگی داره و DataReport1 هم باید به DataEnvironment1 و Connection(1) متصل باشه



On Error Resume Next

Dim Sql As String

Sql = Adodc1.RecordSource

DataEnvironmet1.Connections(1).Close
DataEnvironmet1.Connections(1).ConnectionString = "Provier=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\test.mdb"
DataEnvironmet1.Connections(1).Open
DataEnvironmet1.Recordsets("Command1").Close
DataEnvironmet1.Recordsets("Command1").Open Sql
DataReport1.Show

alicomputer
سه شنبه 28 اسفند 1386, 20:01 عصر
DataEnvironment1.rsCommand1.Source = "select * from polomp where body like'%" & Text1.Text & "%' "
DataEnvironment1.rsCommand1.Open
DataReport1.Refresh
DataReport1.Show
DataEnvironment1.rsCommand1.Close

vahidm
سه شنبه 28 اسفند 1386, 22:20 عصر
سلام دوست عزیز با تشکر
آیا به نظر شما کد بالا به کار من می خوره ؟
اگه شما دقت داشته باشید من گفتم اطلاعات رو در dbgrid مرتب می کنم ولی در چاپ براساس تاریخ مرتب نیست

vahidm
چهارشنبه 29 اسفند 1386, 22:25 عصر
لطفا یکی کمک کنه

Mbt925
پنج شنبه 01 فروردین 1387, 06:14 صبح
مرتب کردن اطلاعات دی DBGrid چه تاثیری رو چاپ داده ها داره؟

برای مرتب چاپ شدن اه داده باید اون Adodc یا Recordset ای که با DataReport تون مرتبطه رو مرتب کنید.

vahidm
شنبه 03 فروردین 1387, 17:15 عصر
با سلام از دوستان کسی راه حلی بلد نیست ؟
آخه من از dataEniveroment استفاده کردم
لطفا راهنمایی کنید

vahidm
شنبه 03 فروردین 1387, 20:39 عصر
لطفا کمک کنید

vbhamed
شنبه 03 فروردین 1387, 23:46 عصر
سلام
دوست عزیز
اگر نگاه کنی چند تا پست قبلی جواب شما رو دادم اونم با DataEnvironment
گراید شما هم حتما به یک Adodc وصل هست دیگه ؟

vahidm
یک شنبه 04 فروردین 1387, 00:08 صبح
با سلام
البته به یک data وصله ولی اگر نیاز باشه به یک adodc وصل میکنم
با تشکر

vahidm
یک شنبه 04 فروردین 1387, 00:11 صبح
ببخشید حامد جان میشه لینک اون تاپیکی که گفتید رو برام بزارید
با تشکر فراوان

vahidm
یک شنبه 04 فروردین 1387, 04:56 صبح
با سلام
لطفا راهنمایی کنید
با تشکر

shahpari
یک شنبه 04 فروردین 1387, 10:58 صبح
ببینید همون طور که آقا حامد گفتن

شما دیتاریپورتتون بالاخره با بانک اطلاعاتییتون ارتباط داره دیگه

پس موقعی که دارید با دستورات اس کیو ال گزارش رو
بر اون اساسی که می خواید فیلتر میکنید کافیه از کد


.Open "SELECT * FROM table order by field1", conn, adOpenDynamic, adLockOptimistic, adCmdText
.Sort = "field1 ASC"


استفاده کنید
field1 همون فیلدیه که قراره مرتب سازی بر اساس اون باشه

vbhamed
دوشنبه 05 فروردین 1387, 00:16 صبح
سلام
چند تا پست قبلی تو همین تاپیک نه تاپیک جدید

vahidm
دوشنبه 05 فروردین 1387, 00:25 صبح
تشکر دوست عزیز
واقعا متشکرم