majidsoft
سه شنبه 27 بهمن 1388, 10:45 صبح
با سلام
من با اين كد يك سري مقادير را به كريستال ريپورت ارسال مي كنم
Dim da As SqlDataAdapter = New SqlDataAdapter("SELECT * from rest where (g1a =" & 1 & ") and (pri=" & 0 & ") and (rest=" & 1 & " or (rest=" & 2 & ")) ", Fn_Get_SqlConnection())
Dim ds As DataSet = New DataSet
da.Fill(ds, "rest") : Dim rpt AsNew cry : rpt.SetDataSource(ds)
frmreport.CrystalReportViewer1.ReportSource = rpt : frmreport.Show()
حالا مي خواهم علاوه بر اين مقادير يك فيلد در ريپورت را با يك مقدار دلخواه مقدار دهي كنم مثلا فيلدي به نام q
ايا راهي براي اينكار وجود دارد
با تشكر
من با اين كد يك سري مقادير را به كريستال ريپورت ارسال مي كنم
Dim da As SqlDataAdapter = New SqlDataAdapter("SELECT * from rest where (g1a =" & 1 & ") and (pri=" & 0 & ") and (rest=" & 1 & " or (rest=" & 2 & ")) ", Fn_Get_SqlConnection())
Dim ds As DataSet = New DataSet
da.Fill(ds, "rest") : Dim rpt AsNew cry : rpt.SetDataSource(ds)
frmreport.CrystalReportViewer1.ReportSource = rpt : frmreport.Show()
حالا مي خواهم علاوه بر اين مقادير يك فيلد در ريپورت را با يك مقدار دلخواه مقدار دهي كنم مثلا فيلدي به نام q
ايا راهي براي اينكار وجود دارد
با تشكر