نوشته شده توسط
systam
سلام
Stimulsoft Reports.Ultimate 2012.1 Trial
سلام
یه دستی به پروژه تون کشیدم البته با اجازه تون
عملیات ترکیب و پیوند جداول رو بردم سمت گزارش تا اینکه از شر مشکل به وجود اومده خلاص بشین
یه تغییراتی هم در کدهای سمت پروژه دادم به این شرح :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
con.Close()
con.Open()
Dim ds As New DataSet()
Dim stiReport1 As New Stimulsoft.Report.StiReport()
stiReport1.Load("StiReport.mrt")
Dim da1 As New SqlDataAdapter("select name,family,data_osv,pic,codosv from hoviat where codosv = '" & 99669 & "'", con)
Dim dt1 As New DataTable("hoviat")
da1.Fill(dt1)
Dim da2 As New SqlDataAdapter("select shahriyeh,b_shahreyeh,data_sh,codeosv,user_name from mali where codeosv = '" & 99669 & "'ORDER BY data_sh asc ", con)
Dim dt2 As New DataTable("mali")
da2.Fill(dt2)
'dt1.Merge(dt1, True, MissingSchemaAction.Add)
'dt1.Merge(dt2, True, MissingSchemaAction.Add)
ds.Tables.Add(dt1)
ds.Tables.Add(dt2)
StiReport1.RegData(ds)
StiReport1.CacheAllData = True
StiReport1.Dictionary.Synchronize()
StiReport1.Design()
StiReport1.Show()
End Sub
این هم تصویری از گزارش حاصله :
ضمیمه 116738
این هم خود پروژه :برای اینکه حجم فایل کم بشه فایل دیتابیس رو حذف کردم خودتون زحمتش رو بکشین