aknj56
یک شنبه 18 فروردین 1392, 11:49 صبح
با سلام خدمت دوستان
من یک کوئری نوشتم که موضوع و کد موضوع و آخرین شماره کتاب هر موضوع رو میاد از جدول مشخصات کتاب میگیره و توی دیتا گرید نشون میده حالا برای نشان دادن آن در گزارش باید چیکار کنم البته کدهاشو نوشتم ولی کار نمی کنه (( جدول رو فراخانی میکنم توی گزارش ولی چون چیزی اونجا به نام آخرین شماره کتاب نیست نمیشه بایند کرد و نشون داد وگر نه موضوع و کد موضوع رو نشون میده
لطفا کمک کنید
Dim cnn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim fn As String
Dim ln As String
Dim l As New Stimulsoft.Report.StiConfig
cmd.Connection = cnn
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\data\library.mdb;Persist Security Info=True"
cnn.Open()
da = New OleDbDataAdapter("select [code mozoe],mozo , max([shomarae ketab]) from moshakhasat group by [code mozoe] ,mozo ", cnn)
da.Fill(ds)
ln = Application.StartupPath + "\report\lang\fa.xml"
fn = Application.StartupPath + "\report\rep_amar.mrt"
Stimulsoft.Report.StiConfig.LoadLocalization(ln)
'l.LoadLocalization(ln)
Me.StiReport1.Load(fn)
Me.StiReport1.RegData(ds)
Me.StiReport1.Show(True)
من یک کوئری نوشتم که موضوع و کد موضوع و آخرین شماره کتاب هر موضوع رو میاد از جدول مشخصات کتاب میگیره و توی دیتا گرید نشون میده حالا برای نشان دادن آن در گزارش باید چیکار کنم البته کدهاشو نوشتم ولی کار نمی کنه (( جدول رو فراخانی میکنم توی گزارش ولی چون چیزی اونجا به نام آخرین شماره کتاب نیست نمیشه بایند کرد و نشون داد وگر نه موضوع و کد موضوع رو نشون میده
لطفا کمک کنید
Dim cnn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim fn As String
Dim ln As String
Dim l As New Stimulsoft.Report.StiConfig
cmd.Connection = cnn
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\data\library.mdb;Persist Security Info=True"
cnn.Open()
da = New OleDbDataAdapter("select [code mozoe],mozo , max([shomarae ketab]) from moshakhasat group by [code mozoe] ,mozo ", cnn)
da.Fill(ds)
ln = Application.StartupPath + "\report\lang\fa.xml"
fn = Application.StartupPath + "\report\rep_amar.mrt"
Stimulsoft.Report.StiConfig.LoadLocalization(ln)
'l.LoadLocalization(ln)
Me.StiReport1.Load(fn)
Me.StiReport1.RegData(ds)
Me.StiReport1.Show(True)