PDA

View Full Version : سوال: مشکل در اجرای دوباره stimulsoft



mohammad1314
شنبه 15 فروردین 1394, 12:21 عصر
سلام دوستان.
من یه برنامه در vb.net نوشتم که برای گزارش گیری از stimulsoft استفاده میکنم.
دفعه اول که گزارش میگیرم ، درست جواب میده اما برای بار دوم که گزارش میگیرم ، صفحه خالی بهم نشون میده.
مشکل از کجاست؟؟؟؟؟؟
این هم کد :


Dim da3 As New SqlDataAdapter
Dim dtuser As New DataTable
(da3 = New SqlDataAdapter("select * from Tbl_NewUser order by family", con
(da3.Fill(dtuser

(Report1.RegData(dtuser
()Report1.Show
("Report1.Load("Report1.mrt


ممنون میشم کمکم کنین.
(در ضمن ،جای سه خط آخر و عوض کردم ، اصلا جواب نمیداد.)

systam
شنبه 15 فروردین 1394, 15:19 عصر
سلام دوست عزیز
امکان داره چون متغیر های داری از نوع SqlDataAdapter و DataTable قبل از مقدار دهی یک بار خالیشون کن بعد دوباره استفاده کن

ببین مشکل حل میشه

mohammad1314
شنبه 15 فروردین 1394, 16:07 عصر
سلام دوست عزیز
امکان داره چون متغیر های داری از نوع SqlDataAdapter و DataTable قبل از مقدار دهی یک بار خالیشون کن بعد دوباره استفاده کن

ببین مشکل حل میشه

این کار رو کردم ولی جواب نداد.

systam
شنبه 15 فروردین 1394, 16:17 عصر
برنامه رو اگه امکان داره ضممیه کن

mohammad1314
شنبه 15 فروردین 1394, 16:32 عصر
برنامه رو اگه امکان داره ضممیه کن

این هم برنامه ضمیمه شده.

systam
شنبه 15 فروردین 1394, 22:42 عصر
سلام دوست عزیز
برنامه شما هر کار کردم روی سیستمم خطا میده و اجرا نیمشه
ولی بااین کد تست کد مشکلی نداره

Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database1.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim dta As New SqlDataAdapter("select * from daneshjoo", con)
Dim ds As New DataSet
Dim dtabel As New DataTable("daneshjoo")
dta.Fill(dtabel)
ds.Tables.Add(dtabel)


StiReport1.RegData(ds)
StiReport1.Dictionary.Synchronize()
StiReport1.Show()
سورسش هم موجوده میتونم براتون بزارم

mohammad1314
یک شنبه 16 فروردین 1394, 17:53 عصر
سلام .
ممنون جواب میده.
اما زمانی که در برنامه به بانک اطلاعاتی یه رکورد جدید اضافه میکنم ، گزارش قبلی رو نشون میده. یعنی یه جورایی گزارش اول تو حافظش میمونه. اگه برنامه رو دوباره اجرا کنم ، بعد جواب میده.
کد زیر رو نوشتم . ممنون میشم کمکم کنین.



Dim da3 As New SqlDataAdapter
Dim dtallcharge As New DataTable
(da3 = New SqlDataAdapter("select * from Tbl_NewCharge where total <> 0", con
(da3.Fill(dtallcharge
Dim ds As New DataSet
(ds.Tables.Add(dtallcharge
(RepNewCharge.RegData(ds
()RepNewCharge.Dictionary.Synchronize
() RepNewCharge.Show

systam
یک شنبه 16 فروردین 1394, 22:42 عصر
سلام
این کد رو در خط ششم بعد از ساخت متغیر dataset
ds.Clear()

mohammad1314
یک شنبه 16 فروردین 1394, 23:21 عصر
سلام
این کد رو در خط ششم بعد از ساخت متغیر dataset
ds.Clear()

سلام. جواب نداد. باز همین مشکل رو دارم.

systam
دوشنبه 17 فروردین 1394, 09:41 صبح
سلام. جواب نداد. باز همین مشکل رو دارم.

سلام
واقعا تعجباتیه من برنامه بارها و بارها ااجرا کردن همچین مشکلی پیش نیومد
اینم تست کن
ds.Tables(0).Rows.Clear()

mohammad1314
دوشنبه 17 فروردین 1394, 17:50 عصر
آقا متشکر.
مشکلم حل شد.
ممنون