'//定义数据集
Dim myDs As DataSet
Dim myConn As SqlClient.SqlConnection
Dim myDa As SqlClient.SqlDataAdapter
Try
'//鼠标等待
Me.Cursor = Cursors.WaitCursor
myConn = New SqlClient.SqlConnection(GetConnectString)
myConn.Open()
'//查询语句
strSQL = "select c.zgz_bh as 资格证编号,c.zgzsqb_jyzsbh as 结业证书编号,convert(varchar(10),c.zgzsqb_sqsj,120) as 申请时间,a.cyry_xm as 姓名,case when a.cyry_xb='1' then '男' else '女' end as 性别,a.cyry_sfzh as 身份证号,a.cyry_dh as 联系电话,a.cyry_zz as 联系地址,a.cyry_zjcx as 驾证类型,convert(varchar(10),a.cyry_cclzrq,120) as 驾驶证初领日期,c.ZGZSQB_sqlb as 申请类别 from t_cyry_cyry a inner join T_CYRY_ZGZSQB c on a.cyry_sfzh=c.cyry_sfzh where a.cyry_sfzh='" & Me.DataGrid1.Item(Me.DataGrid1.CurrentRowIndex, 5) & "'"
myDa = New SqlClient.SqlDataAdapter(strSQL, myConn)
myDs = New DataSet
myDa.Fill(myDs, "zgz")
'//加载报表
Dim rptDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc.Load(Application.StartupPath.Substring(0, Application.StartupPath.LastIndexOf("\")) & "\crystalreport1.rpt")
'//绑定数据集
rptDoc.SetDataSource(myDs.Tables(0))
'//选择打印方式
If RadioButton1.Checked = True Then
'//打印预览
Dim fRpt As New frmRpt
With fRpt
.CrystalReportViewer1.ReportSource = rptDoc
.CrystalReportViewer1.Refresh()
.ShowDialog()
End With
Else
'//直接打印
rptDoc.PrintToPrinter(1, False, 1, 1)
End If
Me.Cursor = Cursors.Default
Catch ex As Exception
MsgBox("加载报表文件出错!" & ex.ToString, MsgBoxStyle.Critical, "错误提示")
Finally
myConn.Close()
myConn.Dispose()
myDa.Dispose()
myDs.Dispose()
Me.Cursor = Cursors.Default
End Try