使用devexpress在运行时在vb.net中创建一个休假报告 [英] creating an leave report in vb.net at runtime using devexpress
问题描述
导入Microsoft.VisualBasic
导入系统
导入System.Windows.Forms
导入DevExpress.XtraReports .UI
Imports System.Data.SqlClient
导入WindowsApplicationFOR_DEMO_REPORT.PAYROLLCHAMPSDataSet11
公共级XtraReport
Dim rptViewer作为新的DevexReportPreview
Dim CompanyID As Integer = 0
Dim LeaveTypeID As Integer = 0
Dim LeaveTypeCode As Integer = 0
Dim LeaveTypeName As String = Nothing
Dim Remarks As String = Nothing
'使用rptViewer
Dim ds As New PayrollchampsDataSet11 Leave（ds）
Dim params As SqlParameter（）=
{
新SqlParameter（@ CompanyID，CompanyID），
新Sql参数（@ LeaveTypeID，LeaveTypeID），
新的SqlParameter（@ LeaveTypeCode，LeaveTypeCode），
新的SqlParameter（@ LeaveTypeName，LeaveTypeName），
新SqlParameter（@备注，备注），
}
Dim dt As DataTable = Day.LeaveDataTable（ Leave_Select，params）
Sub MySub（）
For k = 0到dt.Rows.Count - 1
Dim ds.Tables（PayrollchampsDataSet11 ）.ImportRow（dt.Rows）
下一页
结束子
storeImg（report.FindControl（XrPictureBox1，True））
Dim MdiParent = Me.LeaveTableAdapter1
Dim WindowState = FormWindowState。最大化
dim report.DataSource = ds
Dim ShowReportinViewer（报告）
Dim Show（）
Dim ReportViewer1 As Object
结束类
Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports DevExpress.XtraReports.UI
Imports System.Data.SqlClient
Imports WindowsApplicationFOR_DEMO_REPORT.PAYROLLCHAMPSDataSet11
Public Class XtraReport
Dim rptViewer As New DevexReportPreview
Dim CompanyID As Integer = 0
Dim LeaveTypeID As Integer = 0
Dim LeaveTypeCode As Integer = 0
Dim LeaveTypeName As String = Nothing
Dim Remarks As String = Nothing
'With rptViewer
Dim ds As New PayrollchampsDataSet11 Leave(ds)
Dim params As SqlParameter() =
{
New SqlParameter("@CompanyID", CompanyID),
New SqlParameter("@LeaveTypeID", LeaveTypeID),
New SqlParameter("@LeaveTypeCode", LeaveTypeCode),
New SqlParameter("@ LeaveTypeName", LeaveTypeName),
New SqlParameter("@ Remarks",Remarks),
}
Dim dt As DataTable = Day.LeaveDataTable("Leave_Select", params)
Sub MySub()
For k = 0 To dt.Rows.Count - 1
Dim ds.Tables(" PayrollchampsDataSet11").ImportRow(dt.Rows)
Next
End Sub
storeImg(report.FindControl("XrPictureBox1", True))
Dim MdiParent = Me.LeaveTableAdapter1
Dim WindowState = FormWindowState.Maximized
dim report.DataSource = ds
Dim ShowReportinViewer(Report)
Dim Show()
Dim ReportViewer1 As Object
End Class
推荐答案
请不要重新发布相同的问题，编辑原文。
Please do not repost the same question, edit the original.
这篇关于使用devexpress在运行时在vb.net中创建一个休假报告的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
