mghaffari49
جمعه 21 آبان 1389, 10:31 صبح
سلام
من یه برنامه نوشتم ،اولش برای بخش گزارش گیریش از دیتا ریپورت استفاده کردم ولی بعد فهمیدم که پرینتری که می خواد این گزارش ها رو چاپ کنه تنظیمات کاغذ نداره و تنظیمات نرم افزار را مد نظر می گیره چون اطلاعات باید رو A5 چاپ می شد واسه همین خواستم دوباره با Crystal Reports باز نویسیش کنم ولی تو بخش ارتباط به مشکل برخوردم مشکلمم اینه که می خوام روی gird هر ریکوردی که انتخاب شد محتویاتش رو به Crystal Reports بفرسته و فرم کریستال رو نمایش بده ، تا حالا هم همه ی آموزش ها و تاپیک های مربوط به Crystal Reports رو خوندم ولی مشکلم را نتونستم برطرف کنم(کنترلرمم Adodc است.)
اینم کد دیتا ریپورتمه:
If Adodc1.Recordset.RecordCount > 0 Then
On Error Resume Next
Adoview.Close
Cnn.Open
SqlTxt = "SELECT * FROM Newfactor WHERE ID=" & Adodc1.Recordset.Fields("ID")
Set Adoview = New ADODB.Recordset
Adoview.Open SqlTxt, Cnn, adOpenStatic, adLockPessimistic
Set DataReport1.DataSource = Adoview
DataReport1.Show 1
Cnn.Close
End If
من یه برنامه نوشتم ،اولش برای بخش گزارش گیریش از دیتا ریپورت استفاده کردم ولی بعد فهمیدم که پرینتری که می خواد این گزارش ها رو چاپ کنه تنظیمات کاغذ نداره و تنظیمات نرم افزار را مد نظر می گیره چون اطلاعات باید رو A5 چاپ می شد واسه همین خواستم دوباره با Crystal Reports باز نویسیش کنم ولی تو بخش ارتباط به مشکل برخوردم مشکلمم اینه که می خوام روی gird هر ریکوردی که انتخاب شد محتویاتش رو به Crystal Reports بفرسته و فرم کریستال رو نمایش بده ، تا حالا هم همه ی آموزش ها و تاپیک های مربوط به Crystal Reports رو خوندم ولی مشکلم را نتونستم برطرف کنم(کنترلرمم Adodc است.)
اینم کد دیتا ریپورتمه:
If Adodc1.Recordset.RecordCount > 0 Then
On Error Resume Next
Adoview.Close
Cnn.Open
SqlTxt = "SELECT * FROM Newfactor WHERE ID=" & Adodc1.Recordset.Fields("ID")
Set Adoview = New ADODB.Recordset
Adoview.Open SqlTxt, Cnn, adOpenStatic, adLockPessimistic
Set DataReport1.DataSource = Adoview
DataReport1.Show 1
Cnn.Close
End If