چاپ از vsflex [بایگانی] - برنامه نویس

kama2222

پنج شنبه 21 خرداد 1388, 09:09 صبح

با سلام و احترام خدمت دوستان محترم
چطور مي توانم توسط يك حلقه محتويات ستونهاي vsflexرا مستقيماً وارد datareportيا crystal report كنم.
با تشكر

reza_mn

پنج شنبه 21 خرداد 1388, 13:49 عصر

اینکار توسط حلقه امکان پذیر نیست ولی ...
شما میتونید با کد نویسی دیتا رپورت خودتونو به صورت غیر مستقیم با محتویات فلکس مچ کنید. ( با بکارگیری دستور SQL ای که برای پر کردن فلکس گرید ازش استفاده کردید.)
بعدش میتونید از vsflex8 استفاده کنید که امکان چاپ رو خودش داره ، البته بدون پیش نمایش ، شما فقط یک سطر دستور استفاده میکنی ، و از محتویات فکس چاپ میگیری.
در مورد نکته اول اگه خواستین ،بگین بیشتر توضیح بدم.

kama2222

پنج شنبه 21 خرداد 1388, 15:34 عصر

خواهش مي كنم بيشتر توضيح دهيد.

mpmsoft

پنج شنبه 21 خرداد 1388, 18:35 عصر

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

Dim Rs as new ADODB.Recordset
Rs.Open
Rs.Fields.Append "Fld1", adChar, 10
Rs.Fields.Append "Fld2", adChar, 10
Rs.Fields.Append "Fld3", adChar, 10

For i = 1 To Vs.Rows -1

Rs.AddNew
Rs("Fld1")= Vs.TextMatrix(i,1)
Rs("Fld2")= Vs.TextMatrix(i,2)
Rs("Fld3")= Vs.TextMatrix(i,3)
Rs.Update
Next

Set DataReport1.DataSource = Rs