مشکل در دیتاریپورت [بایگانی]

mf_engineer

یک شنبه 01 مهر 1386, 23:17 عصر

با سلام
من می خوام که بدون استفاده از de برای نمایش گزارشم خودم کدنویسی کنم
من این کدها رو می نویسم
DataReport4.DataMember = "SELECT * FROM masajed where sknamemoghofe='" & Trim(Text1.Text) & "' "
With DataReport4.Sections("Section1").Controls
.Item("text1").DataField = adoRS("code").Name
.Item("text2").DataField = adoRS("sknamemoghofe").Name
.Item("text3").DataField = adoRS("pelak").Name
.Item("text4").DataField = adoRS("kelase").Name
.Item("text5").DataField = adoRS("addres").Name
End With

Set DataReport1.DataSource = adoRS
DataReport1.Show

ولی موقع اجرا با این خطا روبرو میشم

Arguments are of the wrong type,...
ممنون می شم بهم بگین که کد من درسته یا نه واینکه کد درستشو بهم بدین
یاحق

mahmood_s

دوشنبه 02 مهر 1386, 00:09 صبح

این راحش نیست

اینو تو قسمت معرفی ها تعرف کن
Dim ba As Connection
بعد داخل دکمه ای که می خوای دستور چاپ بدی اینو بنویس و ان جوری که می خوای تغییر بده

Dim adoPrimaryRS As Recordset
Set ba = New Connection
ba.CursorLocation = adUseClient
ba.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\db.mdb" & ";"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open sqlchap, ba, adOpenStatic, adLockOptimistic
Set DataReport1.DataSource = adoPrimaryRS
'DataReport1.Show
DataReport1.Caption = ""
'Section1************************************
With DataReport1.Sections("Section1").Controls
For i = 1 To .Count
If TypeOf .Item(i) Is RptTextBox Then
'O datamember deverá sempre ser enquanto estiver criando relatorios dinamicos
.Item(i).DataMember = ""
.Item(i).DataField = adoPrimaryRS.Fields(i - 1).Name

End If
Next i

End With
DataReport1.show

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

mf_engineer

دوشنبه 02 مهر 1386, 12:20 عصر

ممنون از راهنمایی شما
باید بگم که بانک من SQL
من می خوام همه مراحل گزارش رو با کد بنویسم بدون استفاده از کد من کد شما رو نوشتم ولی بازم هم از خط

TypeOf .Item(i) Is RptTextBox
ایراد می گیره
ممنون میشم کمکم کنید اخه برام ضروریه

mf_engineer

دوشنبه 02 مهر 1386, 22:12 عصر

کسی به داد این مشکل ما نمی رسه
ای دوستان یاری کنید تا ما ابرو داری کنیم!!

mf_engineer

سه شنبه 03 مهر 1386, 13:48 عصر

من همچنان منتظر کمک شما هستم

atenaa

سه شنبه 03 مهر 1386, 20:17 عصر

سلام
این یک برنامه کوچیک برای ریپورت بدون استفاده از DE

mf_engineer

یک شنبه 08 مهر 1386, 04:22 صبح

ممنون از همه مشکلم حل شد