使用devexpress在运行时在vb.net中创建一个休假报告

新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.VisualBasicImports SystemImports System.Windows.FormsImports DevExpress.XtraReports.UIImports System.Data.SqlClientImports WindowsApplicationFOR_DEMO_REPORT.PAYROLLCHAMPSDataSet11Public 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 ObjectEnd Class推荐答案 请不要重新发布相同的问题，编辑原文。Please do not repost the same question, edit the original. 这篇关于使用devexpress在运行时在vb.net中创建一个休假报告的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！