پرینت چاپ رکورد جاری

[Masoud sharifi]

سلام جستجو کردم ولی چیزی دستگیرمن نشد...

میشه یه توضیح بدید که چطوری میتونم رکورد جاریو تو ویژوال بیسیک با توسط دیتا ریپورت پرینت بگیرم.
ممنون

[Masoud sharifi]

کسی هست جوابه مارو بده

[Mr.Unknown]

بعد از قرار دادن فیلداتون توی دیتاریپورت توی یک کامند کد زیر را قرار بدید
جنرال
Dim Rsb as new recordset
کامندRsb.CursorLocation = adUseClient
Rsb.Open "Tb", CN, adOpenStatic, adLockOptimistic
set datareport1.datasource=rsb
datareport1.show vbmodal

cn متغیر کانکشن استرینگ است.
راه های دیگه هم هست میتونید از دیتا اینوایرمنت استفاده کنید.یا حق

[Masoud sharifi]

ممنون از لطفت میشه یه ضمیمه بزارین.موفق به اجرای کد نشودم

[Mr.Unknown]

ضمیمه شد.موفق و پیروز باشید

[Masoud sharifi]

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

Dim Cnn As ADODB.Connection
Dim Adoview As ADODB.Recordset



If Adodc6.Recordset.RecordCount > 0 Then
On Error Resume Next
Adoview.Close
Cnn.Open
SqlTxt = "SELECT * FROM sadere WHERE Id=" & Adodc6.Recordset.Fields("id")
Set Adoview = New ADODB.Recordset
Adoview.Open SqlTxt, Cnn, adOpenStatic, adLockPessimistic
Set DataReport3.DataSource = Adoview
DataReport3.Show
Cnn.Close
End If

ولی این error رو میده
http://up.vatandownload.com/images/44e4ctijbfi5euja69f7.jpg

[Masoud sharifi]

جوابی نبود دوستان

[Mr.Unknown]

Dim Cnn As new ADODB.Connection
Dim Adoview As new Recordset
و در پایین کد
Adoview.Close رو به
if Adoview.state=1 then Adoview.Close
تغییر بدید

[Masoud sharifi]

باز همون ارور رو میده میتونید در قالب یک ضمیمه بهم بدین ممنون

[Mr.Unknown]

ضمیمه شد.موفق باشید

[nadikoo]

سلام دوست عزيز
من هم يه راحي رو ميخوام پيشنهاد بدم
ركوردي كه تمايل دارين پرينت بشه رو اول با دستورات جستجو سرچ كنيد بعد با ارتباط دادن به كريستا ريپورت مي توند براحتي فقط همون ركورد روچاپ كنيد