16,554
社区成员
发帖
与我相关
我的任务
分享
Imports System.Data.OleDb
Imports Microsoft.Reporting.WinForms
Public Class FBSRePortViewFrm
'这实际是全部生化项目的打印预览窗口,包括肝功能,肾功能,血脂,空腹血糖,餐后血糖
Private Sub FBSRePortViewFrm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ReportViewer1.LocalReport.DataSources.Clear()
Dim recnn As New OleDbConnection(cnn)
Dim recomm As New OleDbCommand("select * FROM 检验报告 where ID = @ID", recnn)
recomm.Parameters.AddWithValue("@ID", ShengHuaReport_ID)
Dim readp As New OleDbDataAdapter()
readp.SelectCommand = recomm
Dim ds As New DataSet()
Try
readp.Fill(ds, "检验报告")
ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", ds.Tables("检验报告")))
ReportViewer1.RefreshReport()
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try
End Sub
End Class