mf_engineer
دوشنبه 02 مهر 1386, 00:16 صبح
با سلام
من می خوام که بدون استفاده از 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,...
ممنون می شم بهم بگین که کد من درسته یا نه واینکه کد درستشو بهم بدین
یاحق
من می خوام که بدون استفاده از 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,...
ممنون می شم بهم بگین که کد من درسته یا نه واینکه کد درستشو بهم بدین
یاحق